IBM Personal Communications session is going to closed

wikiavinash · New User Joined: 28 Jun 2021 Posts: 4 Location: India

IBM Personal Communications session is going to closed, whenever running VBScript file..

Trying to run the script in PCOMM session, which are recorded within PCOMM only. I have recorded by selecting options 1. VBScript File 2. Macro file I tried to run both the file but while running VBScript File, PCOMM session is going to closed and Macro file working fine for me.

Using tool I have also tried after converting the same recorded Macro file -> VBScript File, but getting the same issue.

Rohit Umarjikar · Posted: Mon Jun 28, 2021 7:11 pm

Welcome!
What is the issue ? Is session getting closed when you run VB script ? Also you can copy pase instead of uploading it and make a use of code tags as much as possible.

wikiavinash · New User Joined: 28 Jun 2021 Posts: 4 Location: India

Yes, screen is getting closed without giving any error message..

wikiavinash · New User Joined: 28 Jun 2021 Posts: 4 Location: India

Code when recorded using VBScript option..

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=1
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)

REM This line calls the macro subroutine
subSub1_

sub subSub1_()

autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "1"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
autECLSession.autECLPS.WaitForAttrib 21,6,"00","3c",3,10000
autECLSession.autECLPS.WaitForCursor 21,7,10000
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "2"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
autECLSession.autECLPS.WaitForAttrib 3,3,"10","3c",3,10000
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[pf3]"
end sub

wikiavinash · New User Joined: 28 Jun 2021 Posts: 4 Location: India

Code when recorded using Macro option..

Description =2
[wait app]
[wait inp inh]
"1
[enter]
[wait inp inh]
wait 10 sec until FieldAttribute 0000 at (21,6)
wait 10 sec until cursor at (21,7)
[wait app]
[wait inp inh]
"2
[enter]
[wait inp inh]
wait 10 sec until FieldAttribute 0008 at (3,3)
[wait app]
[wait inp inh]
[pf3]