| View previous topic :: View next topic |
| Author |
Message |
to_agrawals
Beginner
Joined: 12 Dec 2002
Posts: 26
Topics: 16
|
 Posted: Thu Jul 31, 2003 5:15 am Post subject: Call a REXX exec from another REXx exec |
 |
|
Hi Team,
Can we call a REXX exec from another REXX exec?
Here are 2 simple codes:
CODE1
/** REXX **/
SAY 'I AM IN PROGRM ONE'
ADDRESS TSO "TSOEXEC CALL 'PQ00.LMS.UAGARS1.L0EXELIB(EXPOS02)'"
SAY 'I AM BACK IN PROGRAM ONE'
CODE2
/** REXX **/
SAY 'I AM IN PROGRAM 2'
RETURN
The error that I got was :
I AM IN PROGRM ONE,
CALL ENDED DUE TO ERROR+,
SYSTEM ABEND CODE 806 REASON CODE 0004,
3 *-* ADDRESS TSO "TSOEXEC CALL 'PQ00.LMS.UAGARS1.L0EXELIB(EXPOS02)'",
+++ RC(-4095) +++,
I AM BACK IN PROGRAM ONE,
Please help
Thanks |
|
| Back to top |
|
 |
coolman
Intermediate
Joined: 03 Jan 2003
Posts: 283
Topics: 27
Location: US
|
| Posted: Thu Jul 31, 2003 7:19 am Post subject: |
|
|
Did you put both code1 and code2 in the same pds ?
The PDS should be concatenated to SYSEXEC/SYSPROC
Hope this helps...
Cheers,
Coolman.
________
Falcon
Last edited by coolman on Sat Feb 05, 2011 1:25 am; edited 1 time in total |
|
| Back to top |
|
|
ofer71
Intermediate
Joined: 12 Feb 2003
Posts: 358
Topics: 4
Location: Israel
|
| Posted: Thu Jul 31, 2003 7:50 am Post subject: |
|
|
Hi
Try | Code: | | ADDRESS TSO "EXEC 'your.pds(rexx_member)'" |
O.
________
The Championship by Lexus
Last edited by ofer71 on Sat Feb 05, 2011 11:00 am; edited 1 time in total |
|
| Back to top |
|
|
Mervyn
Moderator
Joined: 02 Dec 2002
Posts: 415
Topics: 6
Location: Hove, England
|
| Posted: Thu Jul 31, 2003 4:58 pm Post subject: |
|
|
If you're in ISPF, you could also try:
| Code: |
address ispexec "SELECT CMD(%rexx_member)"
|
_________________
The day you stop learning the dinosaur becomes extinct |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
