For IBM programs, use the NewScreenReady event to handle asynchronous behaviour.

Private Sub IbmScreen_NewScreenReady(ByVal sender As Variant)
  
  'Set the Screen ID variables used to identify which screen is active.
  Dim ScreenID1 As String
  Dim ScreenID2 As String
  Dim retVal As ReturnCode
       
  'Get values for the screen IDs every time a screen loads.
  ScreenID1 = Trim(ThisIbmScreen.GetText(1, 2, 3))
  ScreenID2 = Trim(ThisIbmScreen.GetText(1, 1, 5))
 
  'Compare the ScreenID values with known values to determine which screen is active.
  If ScreenID1 = "ATM" Then
     'Send command to host
     ThisIbmScreen.SendControlKey (ControlKeyCode_Transmit)
  ElseIf ScreenID2 = "LOGON" Or ScreenID2 = "Ready" Then
     'Send data to host
     ThisIbmScreen.SendKeys ("ISPF")
     'Send command to host
     ThisIbmScreen.SendControlKey (ControlKeyCode_Transmit)
  End If
   
End Sub


 

To set up your macro, record it and navigate through the screens you need to use. Then look at the recorded macro to find the strings that the WaitForString method is waiting for. In this example, we'll use the WaitForString3 method to wait for a screen in the Reflection demo to settle after we send a command. 

To set up your macro to wait for the host reply

1. Open Reflection and start a VT session. (for our example, we use a demo session with a Host name / IP Address of "demo:UNIX".)
2. On the log in screen, enter any credentials for user name and password.
3. On the Tools tab, in the Macros group, click Record Macro.
4. Perform the actions you want to automate with your macro. (In the example, at the demo prompt, enter "demodata".)
5. On the Tools tab, click Stop Recording.
6. In the Recording Complete dialog box, save the recorded macro in a session project and then open the Visual Basic Editor.
7. In the Visual Basic Project window, open the Recorded module for this session and find the strings referenced in the WaitForString3 method.   

   Get the strings to wait for	Copy Code
   'Wait for a string on the host screen before continuing returnValue = osCurrentScreen.WaitForString3(LF & "Command> ", NEVER_TIME_OUT, WaitForOption.WaitForOption_AllowKeystrokes)

8. Specify to wait for these strings in your macro, as shown below:

   Using WaitForString3	Copy Code
   Dim returnValue As Integer Const NEVER_TIME_OUT = 0 ThisScreen.SendKeys "demodata" ThisScreen.SendControlKey ControlKeyCode_Return 'Wait for a string on the host screen before continuing returnValue = osCurrentScreen.WaitForString3(LF & "Command> ", NEVER_TIME_OUT, WaitForOption.WaitForOption_AllowKeystrokes) 'Continue with commands

For Web documents, you can use the DocumentCompleted event to handle aynchronous behaviour.

Private Sub WebControl_DocumentCompleted(ByVal sender As Variant, ByVal Url As String)
  Dim wElementValue As WebElement
  Dim wElementArray() As WebElement

  'Get the heading text of the page
  wElementArray = ThisWebControl.Document.GetElementsByTagName("h1")

  'Search the heading text to find out if the browser is on the page with the form 
  If InStr(1, wElementArray(0).InnerHtml, "download instructions") > 0 Then
    'If on the page with the form, put an email in the Email form field
    Set wElementValue = ThisWebControl.Document.GetElementById("emailAddress")
    wElementValue.PutText ("customer@xyz.com")
  End If

End Sub