IBM Mainframe Forum

Set autECLPSObj = CreateObject("PCOMM.autECLPS")
Set autECLConnList = CreateObject("PCOMM.autECLConnList")
Set objECLConnMgr = CreateObject("PCOMM.autECLConnMgr")
Set autECLOIAObj = CreateObject("PCOMM.autECLOIA")
autECLOIAObj.SetConnectionByName ("T")
objECLConnMgr.StartConnection ("Profile=C:\EU_APP\CLCAPSummary\CLCAPSummary ConnName=T WinState=Min")
autECLPSObj.SetConnectionByName ("T")

autECLConnList.Refresh

' Checks to see if a mainframe window is open.
Do While strReadyResault = 0
If autECLPSObj.Started = False Then
  WaitTime (2)
Else
    If autECLPSObj.Ready Then
    strReadyResault = 1
    WaitTime (1)
    Else
        WaitTime (2)
    End If
End If

Loop

' Access's CICS and checkes that its on the correct screen.
autECLOIAObj.WaitForInputReady
autECLPSObj.SetCursorPos 22, 2
autECLPSObj.SendKeys "CICS"
autECLOIAObj.WaitForInputReady
autECLPSObj.SendKeys "[enter]"
autECLOIAObj.WaitForInputReady