// Routine to send the Clear Screen command and then wait until the Session Calms down private void ClearScreenAndWait() { _Handler.SendKey("@C"); _Handler.WaitForSession(SessionDisplayWaitType.NotBusy, 20000); TraceScreen(); }
private bool SetOpeningState() { try { // if we are doing 3270 if (_use3270) { // connect to the host if not already done so if (m_Handler == null) { m_Handler = new SessionDisplay(); m_Handler.Connect("TRANSPORT=SNA;LOGICALUNITNAME=" + this.InputLUNameBox.Text.Trim().ToUpperInvariant()); m_Handler.Connection.HostCodePage = 37; // set the large form, so that we can see 3270 stuff this.Width = _largeWindowSize; // wait for the Message 10 Screen m_Handler.WaitForContent("TERM NAME", 20000); // try to connect to CICS m_Handler.SendKey("LOGON APPLID(" + this.InputCICSNameBox.Text.Trim().ToUpperInvariant() + ")@E"); // must be in PLU session m_Handler.WaitForSession(SessionDisplayWaitType.PLUSLU, 20000); // wait for the blurb to come m_Handler.WaitForContent(@"DEMONSTRATION", 20000); // go to the clear screen ClearScreenAndWait(); _hostOK = true; } } else { // squash the form down! this.Width = 1049; this.Height = 588; _hostOK = true; } } catch (Exception ex) { MessageBox.Show(ex.Message); if (m_Handler != null) { m_Handler.Disconnect(); } m_Handler = null; return(false); } DisableEverything(); EnableWorkTab(); return(true); }