In this example, the sample JCL is reformatted (without saving the resulting JCL) using the following batch utility:
Batch utility for reformatting sample JCL
//JCLENR EXEC CTJENR,REF=Y
//SYSIN DD *
LIB=WORK.LIB MEM=MEM1
The following is the output of the utility:
SYSPRINT from CTJENR batch
CTJU00I Control-M/JCL Verify Utility started. Date/Time 25.08.15 / 15:30
CTJU01I REF=Y ENF=N SAV=N OVR=N ENV=GENERAL CTM=Y NODE=LOCAL
CTJU01I LIB=WORK.LIB MEM=MEM1
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
CTJE19I Runtime parameters: SAV=N OVR=N CTM=Y ENV=GENERAL
************************************************************************
CTJ002I * Start processing MEMBER=MEM1 JOBNAME=IEFBR14 *
CTJ008I * DSNAME=WORK.LIB *
************************************************************************
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
CTJU02I Control-M/JCL Verify Utility ended. RC=0000
Parent Topic |