//A540769Z JOB (CP00,KE50) 00010001
//*MAIN CLASS=LOG 00020000
//******* COPY PS 00030000
//S1 EXEC PGM=IEFBR14 00040000
//S2 EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD' 00050001
//SYSPRINT DD SYSOUT=* 00060000
//UTPRINT DD SYSOUT=* 00070000
//SYSIN DD DUMMY 00080000
// IF S1.RC = 7 THEN 00090002
//S3 EXEC PGM=GIBTESNI 00100002
// ENDIF 00110002
// IF NOT ABEND AND RC >= 0 AND RC <= 3 THEN 00120002
//ALLOK EXEC PGM=IEFBR14 00130000
// ELSE 00140002
//ABEND EXEC PGM=IEFBR14 00150000
// ENDIF 00160002
// IF S3.RUN OR S3.ABEND THEN 00170002
//RUNABE EXEC PGM=IEFBR14 00180002
// ELSE 00190002
//NOTRUN EXEC PGM=IEFBR14 00200002
// ENDIF 00210002