<< Click to Display Table of Contents >> Navigation:  Macro Samples > Attachmate’s Extra! macro sample supported by Quick3270

'----------------------------------------------------------------------
' This macro was created by the Macro Recorder.
' Session Document: "DISPLAY LOCALHOST.EDP"
' Date: Thursday, November 08, 2009 15:19:52
' User: Denis
'----------------------------------------------------------------------
 
' Global variable declarations
Global g_HostSettleTime%
 
Sub Main()
'----------------------------------------------------------------------
' Get the main system object
 Dim Sessions As Object
 Dim System As Object
 Set System = CreateObject("EXTRA.System")        ' Gets the system object
 If (System is Nothing) Then
         Msgbox "Could not create the EXTRA System object."
         STOP
 End If
 Set Sessions = System.Sessions
 
 If (Sessions is Nothing) Then
         Msgbox "Could not create the Sessions collection object."
         STOP
 End If
'----------------------------------------------------------------------
' Set the default wait timeout value
 g_HostSettleTime = 3000                ' milliseconds
 
 OldSystemTimeout& = System.TimeoutValue
 If (g_HostSettleTime > OldSystemTimeout) Then
         System.TimeoutValue = g_HostSettleTime
 End If
 
' Get the necessary Session Object
 Dim Sess0 As Object
 Set Sess0 = System.ActiveSession
 If (Sess0 is Nothing) Then
         Msgbox "Could not create the Session object.  Stopping macro playback."
         STOP
 End If
 If Not Sess0.Visible Then Sess0.Visible = TRUE
 Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
 
' This section of code contains the recorded events
 Sess0.Screen.Sendkeys("F<Enter>")
 Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
 Sess0.Screen.Sendkeys("<Pf3>")
 Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
 System.TimeoutValue = OldSystemTimeout
End Sub