Santty
New User
Joined: 20 Nov 2007 Posts: 37 Location: USA
|
|
|
|
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 |
|