VBA Macro PCOMM

[dribei16]

I was wondering, is there a way for a VBA Macro to access a IBM Personal Communications instance, feed it some data and then retrive information to excel? I looked all around the net for it and I found some stuff but could not really understand it. Apparently some guy used an Object of type PCOMM.autECLConnMgr and did it Thanks!

 

[dribei16]

I found the complete library information in the Help for IBM

http://publib.boulder.ibm.com/infoc...om.ibm.pcomm.doc/books/html/host_access08.htm

It's extremely helpful as you can do pretty much anything with the IBM Pcomm window. You can automatize the work, as it helps a lot.

 

[redhat4all]

hi,

Have you been sucessful to use PCOMM.autECLConnMgr ?

 

[dribei16]

hi,

Have you been sucessful to use PCOMM.autECLConnMgr ?

It has been a very long time, but I used it extensively.

You need anything?

 

[redhat4all]

Yes, I am trying to do some automation using this I am getting some errors which I am really not able to understand. Is it possible for you to support .
Problem 1:
My Macro 1 – Sub XA() Dim Mgr As Object Dim Obj As Object Dim Hand As Long Dim PS As Object Set Mgr = CreateObject("PCOMM.autECLConnMgr") Set PS = CreateObject("PCOMM.autECLPS") Mgr.StartConnection ("profile=C:\XA_MACRO\TEST.WS connname=X") End Sub
My Macro 2- Private Sub abcdX() Dim autECLPSObj As Object Dim autECLConnList As Object Set autECLPSObj = CreateObject("PCOMM.autECLPS") Set autECLConnList = CreateObject("PCOMM.autECLConnList") ' Initialize the connection autECLConnList.Refresh autECLPSObj.SetConnectionByName ("X") autECLPSObj.SendKeys "AL", 5, 21 autECLPSObj.SendKeys "[ENTER]", 5, 21 autECLPSObj.SendKeys "[ENTER]", 5, 21 autECLPSObj.SendKeys "[ENTER]", 5, 21 autECLPSObj.SendKeys "EPDM", 20, 7 autECLPSObj.SendKeys "[ENTER]", 5, 21 autECLPSObj.SendKeys "6", 20, 7 autECLPSObj.SendKeys "[ENTER]", 5, 21 End Sub

They work when run individually or by using a call function. but I would like to write them in one macro.

Problem 2:
not able to use WaitForInputReady, WaitForSystemAvailable, and WaitForAppAvailable even when I call in autECLOIAObj. Do you have any idea why does this happen. Do I need to call any additional objects ?

It has been a very long time, but I used it extensively.

You need anything?

 

[MikeDub]

I've used it extensively.
Problem 1, how about putting your code up on github so its a little easier to read? then I can advise on that.
Problem 2, are you calling the objects like this ?

Here is how I do it in VB.NET code...

PCommsPause = CreateObject("PCOMM.autECLOIA")
PCommsPause.WaitForAppAvailable()
PCommsPause.WaitForInputReady()

And example of VBA Script code:

autECLSession.SetConnectionByName(ThisSessionName)
'wait until RCMS is ready
Sub RCMSWait
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
End Sub