Page 1 of 1

Set REXX RC based on a field value

PostPosted: Mon Oct 19, 2015 10:52 pm
by nkulkarni
Hi,

I'm executing a REXX program PROGRAM1 as below

//*
//TSOBATCH EXEC PGM=IKJEFT1A,DYNAMNBR=200,PARM='PROGRAM1'               
//SYSPROC  DD   DISP=SHR,DSN=ABC.DEF.GHI                       
//SYSTSPRT DD   DISP=(NEW,KEEP,DELETE),                                 
//         DSN=ABC.DEF.GHI.TSOBATCH.REXX.OUTPUT,                   
//         SPACE=(TRK,(50,20),RLSE),                                   
//         BLKSIZE=27951,RECFM=FB,LRECL=121,DSORG=PS                   
//SYSTSIN  DD   DUMMY                                                   
//*         


in REXX program PROGRAM1, I have a field called RCSTEP.

I need to set the return code of the JCL STEP "TSOBATCH" to 01 if the field RCSTEP contains values anything other than 00 or 98 or 99.

If RCSTEP contains values 00 or 98 or 99 then return code of JCL STEP "TSOBATCH" should be 00.

Could anyone please help me with this one?

Re: Set REXX RC based on a field value

PostPosted: Mon Oct 19, 2015 11:08 pm
by prino
myrc.   = 1
myrc.00 = 0
myrc.98 = 0
myrc.99 = 0

exit myrc.rcstep

SIASD!

Re: Set REXX RC based on a field value

PostPosted: Mon Oct 19, 2015 11:41 pm
by nkulkarni
Thank You Prino