Automate to Attachmate Extra

[dprayner]

Hi people. Does anyone have a simple example of VBA code to automate to Attachmate Extra? I want to read the fields on a particular screen. Thaks DAVE

 

[Bogiemon]

I'm no expert with attachmate but could you use Session.Screen.GetString(row, column, length).

 

[Molby]

This is some code that I used years ago, when we had Attachmate:

Sub open
    Set System = CreateObject("EXTRA.System")
    Set Session = System.ActiveSession
    Do Until Session.Screen.Getstring(20, 2, 7) = "Command" And Session.Screen.Getstring(23, 20, 4) = "    "
      Session.Screen.MoveTo 24, 80
      Session.Screen.SendKeys ("<Pf3>")
      Do Until Session.Screen.Row <> 24 Or Session.Screen.Col <> 80
        Session.Screen.WaitHostQuiet (50)
      Loop
    Loop
End Sub

You can use Attachmate's own help files for more functions.

 

[dprayner]

Thank you guy. You're the best. DAVE