PCOMM is not responding to calls from VBA.

[PuddinPie]

Hello I have some VBA coding that works fine in XP but in Win 7 it does not work. It's happening after the PCOMM window object call which opens a mainframes window but fails when waiting for ready.

Code: Select all

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

It stops at

autECLOIAObj.WaitForInputReady

, but there is not error message it just stops.

Any help would be greatly appreciated.

Thank you.

[HansV]

Welcome to Eileen's Lounge!

SendKeys is notoriously unreliable under Windows 7. I don't know if there is a good alternative, and unfortunately our PCOMM expert isn't very active any more.

[PuddinPie]

Ok. Thank's.

[PuddinPie]

So you know this has been resolved. It was an issue with the PCOMM version. From 6.0.0 to 6.0.5 there is an error in comunication but PComm ver 6.0.6 and up has the issue resolved.

[HansV]

Thanks for the heads up!