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
//*
//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?
