View previous topic :: View next topic
|
Author |
Message |
jackzhang75
Active User
Joined: 09 Jun 2014 Posts: 125 Location: US
|
|
|
|
Hi,
I had the rexx A and this program will call other rexx . If i want to put REXX A in the sys2.clistlib and other rexx program are in different data set (My own rexx libary). How can i make it work ?
REXX A
Code: |
MYARG=userid()
call WHO
name=result
ADDRESS ISPEXEC
DO WHILE RC=0
"DISPLAY PANEL (PANEL)"
IF RC <> 8 THEN DO
SELECT
WHEN option='1' THEN rc=REX2CA()
WHEN option='2' THEN rc=REX2CRP()
WHEN option='3' THEN rc=REX2DIF()
WHEN option='4' THEN rc=REX2FAST()
WHEN option='5' THEN rc=REX2JCLP()
WHEN option='6' THEN rc=REX2PKZ()
WHEN option='7' THEN rc=REX2SS()
WHEN option='T' THEN rc=REX2TEST()
WHEN option='R' THEN rc=REXRMAIN() |
Thanks |
|
Back to top |
|
|
Paul Voyner
New User
Joined: 26 Nov 2012 Posts: 52 Location: UK
|
|
|
|
Well, there are several ways. This is one of them.
Code: |
mylib = 'UID.MY.EXEC'
Act:
Address "TSO"
"ALLOC FILE(SYSUEXEC) DA('"mylib"') SHR REUSE"
"ALTLIB ACTIVATE APPLICATION (EXEC) FILE(SYSUEXEC) "
... your code ....
Deact:
"ALTLIB DEACTIVATE APPLICATION(EXEC)"
"FREE FILE(SYSUEXEC ) |
|
|
Back to top |
|
|
jackzhang75
Active User
Joined: 09 Jun 2014 Posts: 125 Location: US
|
|
|
|
Thank you very much !
It works perfect ! |
|
Back to top |
|
|
|