In this example, multiple JCL members (specified by MEM00*) are reformatted and enforced, and then saved to the WORK.LIB1 library (if there are members that already exist, they will be overwritten) using the following batch utility:
Batch utility for enforcement and reformatting of the multiple JCL members and saving the results
//JCLVENR EXEC CTJENR,ENF=Y,REF=Y,SAV=Y,OVR=Y
//SYSIN DD *
LIB=WORK.LIB MEM=MEM00* SAVLIB=WORK.LIB1
The following is the output of the utility:
SYSPRINT from CTJENR batch utility for enforcement and reformatting of the multiple JCL members
CTJU00I Control-M/JCL Verify Utility started. Date/Time 25.08.15 / 15:50
CTJU01I REF=Y ENF=Y SAV=N OVR=N ENV=GENERAL CTM=Y NODE=LOCAL
CTJU01I LIB=WORK.LIB MEM=MEM00*
CTJ000I Control-M/JCL Verify is starting. Level IJ10248
CTJM0DI Control-M/JCL Verify processing performed by Monitor L0JMON /
CTJ004I Processed 000002 members from WORK.LIB
CTJE13I Control-M/JCL Verify processing REFORMAT AND ENFORCEMENT
CTJE19I Runtime parameters: SAV=N OVR=N CTM=Y ENV=GENERAL
************************************************************************
CTJ002I * Start processing MEMBER=MEM0001 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 MEM0001
CTJ003I Processing ended RC=0000 REASON 00000000 MEMBER MEM0001 DSNAME=WORK.LIB
CTJE19I Runtime parameters: SAV=N OVR=N CTM=Y ENV=GENERAL
************************************************************************
CTJ002I * Start processing MEMBER=MEM0002 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=USER2
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 MEM0002
CTJ003I Processing ended RC=0000 REASON 00000000 MEMBER MEM0002 DSNAME=WORK.LIB
CTJU02I Control-M/JCL Verify Utility ended. RC=0000
Parent Topic |