Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Invoking panel while editing a component in changeman
Goto page Previous  1, 2
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
Santty

New User


Joined: 20 Nov 2007
Posts: 37
Location: USA

PostPosted: Fri May 07, 2010 9:28 pm    Post subject: Reply to: Invoking panel while editing a component in change
Reply with quote

Hi all,

Code:
DSNISPP= "'" || USERID() || ".TOOL.ISPPLIB'"
ADDRESS ISPEXEC 'LIBDEF ISPPLIB DATASET ID('DSNISPP')'

"ISPEXEC ADDPOP"
"VPUT (TYP,MMSG) SHARED"
"DISPLAY PANEL (TEST)"
"VGET (TYP,X) SHARED"


This is what the code i've used in my rexx macro. This overrides the system ISPPLIBs which is the reason for the issue i faced.

Now i've modified the code as follows:
Code:
DSNISPP= "'" || USERID() || ".TOOL.ISPPLIB'"
ADDRESS ISPEXEC 'LIBDEF ISPPLIB DATASET ID('DSNISPP') STACK'
"ISPEXEC ADDPOP"
"VPUT (TYP,MMSG) SHARED"
"DISPLAY PANEL (TEST)"
"VGET (TYP,X) SHARED"

Atlast i have added
Code:
ADDRESS ISPEXEC 'LIBDEF ISPPLIB'

to reset the system ISPPLIB.

And It works fine as i expected.

Thanks to all for making me to learn by myself icon_biggrin.gif
Back to top
View user's profile Send private message

View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Goto page Previous  1, 2
Page 2 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Execute Partially Edited Rexx Exec fr... AllenSieracki CLIST & REXX 14 Tue Jun 02, 2020 7:56 pm
No new posts Panel not found on PF3 with libdef of... harisukumaran TSO/ISPF 2 Tue Apr 28, 2020 9:00 pm
No new posts Invoking a CICS transaction from a no... danik56 CICS 7 Thu Dec 19, 2019 7:15 pm
No new posts Adding FIND to ISPF Panel display of ... Harold Barnes TSO/ISPF 3 Mon Oct 07, 2019 5:46 pm
No new posts Not seeing the error panel )ATTR Harold Barnes TSO/ISPF 4 Fri Sep 20, 2019 10:56 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us