IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

IBM Personal Communications session is going to closed


IBM Mainframe Forums -> All Other Mainframe Topics
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
wikiavinash

New User


Joined: 28 Jun 2021
Posts: 4
Location: India

PostPosted: Mon Jun 28, 2021 6:38 pm
Reply with quote

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.
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 2792
Location: NYC,USA

PostPosted: Mon Jun 28, 2021 7:11 pm
Reply with quote

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.
Back to top
View user's profile Send private message
wikiavinash

New User


Joined: 28 Jun 2021
Posts: 4
Location: India

PostPosted: Mon Jun 28, 2021 7:27 pm
Reply with quote

Yes, screen is getting closed without giving any error message..
Back to top
View user's profile Send private message
wikiavinash

New User


Joined: 28 Jun 2021
Posts: 4
Location: India

PostPosted: Mon Jun 28, 2021 7:31 pm
Reply with quote

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
Back to top
View user's profile Send private message
wikiavinash

New User


Joined: 28 Jun 2021
Posts: 4
Location: India

PostPosted: Mon Jun 28, 2021 8:20 pm
Reply with quote

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]

Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> All Other Mainframe Topics

 


Similar Topics
Topic Forum Replies
No new posts insert into session tables with UR DB2 0
No new posts How could i share my personal dataset... TSO/ISPF 1
This topic is locked: you cannot edit posts or make replies. How could i share my personal dataset... TSO/ISPF 1
No new posts Creating ISPF Screens with Scrname vi... TSO/ISPF 10
No new posts Display FTP Session Count within TSO TSO/ISPF 3
Search our Forums:

Back to Top