Updated Property Example

This example illustrates the two values of the Updated property, TRUE or FALSE.

Sub Main()

 Dim Sys As Object, Sess As Object, MyScreen As Object

 

 Set Sys = CreateObject("EXTRA.System")

' Assumes an open session

 Set Sess = Sys.ActiveSession

 Set MyScreen = Sess.Screen

 

 ' This macro is meant to be run from the start of an IBM SSCP
 ' screen. If the' enter key does not force a screen update,
 ' soon enough, the second Updated check will still return false.

 If MyScreen.Updated Then

  MsgBox "The screen has been updated."

 Else

  MsgBox "The screen has NOT been updated."

 End If

 

 MyScreen.SendKeys ("a<Enter>")

 

 If MyScreen.Updated Then

  MsgBox "The screen has been updated."

 Else

  MsgBox "The screen has NOT been updated."

 End If

 

End Sub