Set REXX RC based on a field value
Posted: Mon Oct 19, 2015 10:52 pm
Hi,
I'm executing a REXX program PROGRAM1 as below
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?
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?