Passing RC from REXX to JCL

Marlon · Posted: Sat Mar 14, 2009 3:07 am

i found out this thread, and I badly need this solution

1) If I'll be using ISPSTART CMD, where will I code it is it on my rexx or my jcl?

2) if I'll be using;
ZISPFRC = Your_return_code
Address ISPEXEC "VPUT (ZISPFRC)"

This is my code in my rexx script

...
...
"execio * diskr filein (finis stem in."
if rc <> 0 then
call error_rtn
exit

error_rtn:
say err_dec
retcode = rc
Address ISPEXEC "VPUT (retcode)"

how will I pass retcode parameter inside my JCL? Sorry for this stupid question I'm just confuse. Hope someone can explain this to me.

Pedro · Posted: Sat Mar 14, 2009 9:37 am

Your error routine is using retcode, but you should use ZISPFRC instead if you are using ISPF.

Your subject is about passing RC from REXX to JCL, but you do not need ISPF to do that. Instead of getting ISPF involved, I think your rexx should just pass back a return code on the RETURN instruction.