CTJENR Example 5

In this example, the sample JCL is enforced and reformatted, and then saved to the MEM2 member (if MEM2 already exists, it will be overwritten) in the WORK.LIB1 library using the following batch utility:

Batch utility for enforcement and reformatting of the sample JCL and saving the result

//JCLVENR  EXEC CTJENR,ENF=Y,REF=Y,SAV=Y,OVR=Y                    

//SYSIN    DD   *                                                 

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

The following is the output of the utility:

SYSPRINT from CTJENR batch utility for enforcement and reformatting of the sample JCL

  CTJU00I Control-M/JCL Verify Utility started. Date/Time 25.08.15 / 15:40

  CTJU01I REF=Y ENF=Y SAV=Y OVR=Y ENV=GENERAL CTM=Y NODE=LOCAL           

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

  CTJ000I Control-M/JCL Verify is starting. Level IJ10248                

  CTJM0DI Control-M/JCL Verify processing performed by Monitor L0JMON   /

  CTJE13I Control-M/JCL Verify processing REFORMAT AND ENFORCEMENT       

  CTJE19I Runtime parameters:    SAV=Y OVR=Y CTM=Y ENV=GENERAL           

          ************************************************************************ 

  CTJ002I * Start processing MEMBER=MEM1    JOBNAME=IEFBR14                      *

  CTJ008I *                  DSNAME=WORK.LIB                                     *

          ************************************************************************ 

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

  CTJ00SI RULE-INFO: REFORMAT SAMPLE RULE FOR JOB STATEMENT              

          //IEFBR14  JOB ,BR14,MSGCLASS=X,MSGLEVEL=(1,1),NOTIFY=USER     

  CTJ00SI RULE-INFO: REFORMAT SAMPLE RULE FOR EXEC STATEMENT 

          //S1       EXEC PGM=IEFBR14,COND=EVEN                          

  CTJ00SI RULE-INFO: REFORMAT SAMPLE RULE FOR DD STATEMENT               

          //NEWTEMP  DD DSN=NEW.FILE.NO.DISP,                            

          //            SPACE=(TRK,1)                                    

  CTJ00SI RULE-INFO: REFORMAT SAMPLE RULE FOR DD STATEMENT               

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

          //            DISP=SHR                                         

  CTJ009I Processing ended RC=0000 for JOB IEFBR14  MEMBER MEM1          

  CTJ003I Processing ended RC=0000 REASON 00000000 MEMBER MEM1     DSNAME=WORK.LIB

  CTJE11I Updated JCL saved to member MEM2     in library WORK.LIB1      

  CTJU02I Control-M/JCL Verify Utility ended. RC=0000

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

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

 //IEFBR14  JOB ,BR14,MSGCLASS=X,MSGLEVEL=(1,1),NOTIFY=USER              

 //S1       EXEC PGM=IEFBR14,COND=EVEN                                   

 //NEWTEMP  DD DSN=NEW.FILE.NO.DISP,                                     

 //            SPACE=(TRK,1)                                             

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

 //            DISP=SHR