CTJENR Example 4

This example is similar to Example 3, except that in this example the JCL will be saved to the MEM2 member in the WORK.LIB1 library.

Batch utility for enforcement of the sample JCL and saving the resulting JCL

//JCLENR  EXEC CTJENR,ENF=Y,SAV=Y     

//SYSIN    DD   *                 

 LIB=WORK.LIB MEM=MEM1 SAVLIB=WORK.LIB1 SAVMEM=MEM2

Enforced JCL saved in the MEM2 member in the WORK.LIB1 library

 "THIS RECORD IS ADDED BY ENFORCEMENT SAMPLE RULE ENFSAMP FROM TABLE ENFS

 //IEFBR14  JOB ,BR14,MSGCLASS=X,                                        

 //     NOTIFY=USER,MSGLEVEL=(1,1)                                       

 //S1       EXEC PGM=IEFBR14,COND=EVEN                                   

 //NEWTEMP     DD    SPACE=(TRK,1),DSN=NEW.FILE.NO.DISP                  

 //FILEOK DD    DISP=SHR,DSN=CTJP.V900.JCL.SAMPLES