and ... > //STEP1 EXEC PGM=IRXJCL,PARM='SETRC BUILD,COPY' > //SYSEXEC DD DSN=IDF.PRODCLST.LIBRARY,DISP=SHR > //SYSTSPRT DD SYSOUT=* > //REXXLOG DD SYSOUT=* > //SYSPRINT DD SYSOUT=* > //SYSTSIN DD DUMMY > //* > //STEP1A EXEC PGM=WHATEVER,COND=(04,NE,STEP1) > //* IFF 4 is NE to the return code from STEP1 THEN Bypass this step > //* > //STEP1B EXEC PGM=WHATEVER,COND=(00,NE,STEP1) > //* IFF 0 is NE to the return code from STEP1 THEN Bypass this step ... > //STEP1C EXEC PGM=IEFBR14,COND=(00,LE,STEP1) > //* IFF STEP1 has executed THEN Bypass this step > //STEP1D EXEC PGM=WHATEVER,COND=(00,LE,STEP1C) > //* IFF STEP1 has NOT executed THEN Bypass this step ... for the Boolean Logic part
On 22/02/2017 17:26, John Mattson wrote: <snip> > //* REXX INITIAL STEP TO SET RC FOR IDF * > //*-------------------------------------------------------* > //STEP1 EXEC PGM=IRXJCL,PARM='SETRC BUILD,COPY' > //SYSEXEC DD DSN=IDF.PRODCLST.LIBRARY,DISP=SHR > //SYSTSPRT DD SYSOUT=* > //REXXLOG DD SYSOUT=* > //SYSPRINT DD SYSOUT=* > //SYSTSIN DD DUMMY > //* > //STEP1A EXEC PGM=WHATEVER,COND=(04,NE,STEP1) > //* IFF 4 is NE to the return code from STEP1 THEN Bypass this step > //* > //STEP1B EXEC PGM=WHATEVER,COND=(00,NE,STEP1) > //* IFF 0 is NE to the return code from STEP1 THEN Bypass this step > > It helps if you have some knowledge of Boolean Logic which should be taught > in programming schools but often no longer is. > Also, note that if the RC from STEP1 is 2 or 6, or anything other than 0 or > 4, then NEITHER step will execute and the job will finish with a good > return code, but really fail. There SHOULD be another test, basic > programming, test for ALL possible conditions whenever possible. > //STEP1C EXEC PGM=ABENDNOW,COND=((04,NE,STEP1),(00,NE,STEP1)) > //* IFF 4 is NE to the return code from STEP1 AND 0 NE THEN ABEND NOW!!! > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > . > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
