In the following example, CTJVER verifies a job containing an IDCAMS step.
Figure JV26 IDCAMS - Example 12
//M914 JOB ,ASM,MSGCLASS=X,
// REGION=0M,NOTIFY=&SYSUID
//D EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
SET MAXCC=0
IF MAXCC>0 THEN DO
IF LASTCC < 2 THEN DO
IF LASTCC < 3 THEN DO
IF LASTCC < 4 THEN DO
IF LASTCC < 5 THEN DO
IF LASTCC < 6 THEN DO
IF LASTCC < 7 THEN DO
IF LASTCC < 8 THEN DO
IF LASTCC < 9 THEN DO
ALTER M91.JOBS.* NEWNM(M91.ASM.*)
END
ELSE SET MAXCC = 16
END
ELSE SET MAXCC = 17
END
ELSE SET MAXCC = 18
END
ELSE SET MAXCC = 19
END
ELSE SET MAXCC = 20
END
ELSE SET MAXCC = 21
END
ELSE SET MAXCC = 22
END
ELSE SET MAXCC = 23
/*
//
END
Figure JV27 CTJVER output of verifying the job in Example 12
CTJU00I Control-M/JCL Verify Utility started. Date/Time 28.07.14 / 15:3-7. Level 8.0.02 N27
CTJU01I JES=D,FV=Y,FA=Y,ME=Y,ML=I
CTJU01I USER=M91 00003513
CTJU01I LIB=M91.A,MEM=ALTER1 00003616
CTJ000I Control-M/JCL Verify is starting. Level N27
CTJ00CI Runtime parameters: FA=Y FV=Y JES=Y ME=Y ML=I CTM=Y STDR=Y UT=Y ENV=GENERAL USER=M91
CTJ50GI ***********************************************************************
CTJ002I * Start processing MEMBER=ALTER1 JOBNAME=M914 *
CTJ008I * DSNAME=M91.A *
CTJ50GI ***********************************************************************
1 //M914 JOB ,ASM,MSGCLASS=X,
// REGION=0M,NOTIFY=&SYSUID, CTJV00E
// MSGLEVEL=(1,1)
IEFC653I SUBSTITUTION JCL -,ASM,MSGCLASS=X,REGION=0M,NOTIFY=M91,MSGLEVEL=(1,1)
//*---- SUBMITTED BY CONTROL-M (FROM MEMLIB) ODATE=140728
//*---- SCHEDULE (UNKNOWN)
//*---- SCHEDULED DUE TO RBC:
//*---- JCL M91.A(ALTER1)
//*---- CONTROL-M JOB IDENTIFICATION: ORDER ID=00000 RUN NO.=00001
2 //D EXEC PGM=IDCAMS
CTJP0GI 2 INFORMATION: PGM IDCAMS found in LINKLIST SYS1.LINKLIB
3 //SYSPRINT DD SYSOUT=*
4 //SYSTSIN DD *
SET MAXCC=0
IF MAXCC>0 THEN DO
IF LASTCC < 2 THEN DO
IF LASTCC < 3 THEN DO
IF LASTCC < 4 THEN DO
IF LASTCC < 5 THEN DO
IF LASTCC < 6 THEN DO
IF LASTCC < 7 THEN DO
IF LASTCC < 8 THEN DO
IF LASTCC < 9 THEN DO
ALTER M91.JOBS.* NEWNM(M91.ASM.*)
END
ELSE SET MAXCC = 16
END
ELSE SET MAXCC = 17
END
ELSE SET MAXCC = 18
END
ELSE SET MAXCC = 19
END
ELSE SET MAXCC = 20
END
ELSE SET MAXCC = 21
END
ELSE SET MAXCC = 22
END
ELSE SET MAXCC = 23
/*
CTJUV0E INFO: Verifying utility IDCAMS
CTJUA0I SET MAXCC=0 END
CTJUA0I IF MAXCC>0 THEN DO
CTJUA0I IF LASTCC < 2 THEN DO
CTJUA0I IF LASTCC < 3 THEN DO
CTJUA0I IF LASTCC < 4 THEN DO
CTJUA0I IF LASTCC < 5 THEN DO
CTJUA0I IF LASTCC < 6 THEN DO
CTJUA0I IF LASTCC < 7 THEN DO
CTJUA0I IF LASTCC < 8 THEN DO
CTJUA0I IF LASTCC < 9 THEN DO
CTJUA0I ALTER M91.JOBS.* NEWNM(M91.ASM.*)
CTJUAII M91.JOBS.ALOADE will be altered
CTJUAJI M91.ASM.ALOADE is the new name
CTJUAII M91.JOBS.C will be altered
CTJUAJI M91.ASM.C is the new name
CTJUAII M91.JOBS.CNTL will be altered
CTJUAJI M91.ASM.CNTL is the new name
CTJUAII M91.JOBS.CNTL1 will be altered
CTJUAJI M91.ASM.CNTL1 is the new name
CTJUAII M91.JOBS.LOAD will be altered
CTJUAJI M91.ASM.LOAD is the new name
CTJUAII M91.JOBS.LOADE will be altered
CTJUAJI M91.ASM.LOADE is the new name
CTJUAII M91.JOBS.OBJ will be altered
CTJUAJI M91.ASM.OBJ is the new name
CTJUA0I END
CTJUA0I ELSE SET MAXCC = 16
CTJUA0I END
CTJUA0I ELSE SET MAXCC = 17
CTJUA0I END
CTJUA0I ELSE SET MAXCC = 18
CTJUA0I END
CTJUA0I ELSE SET MAXCC = 19
CTJUA0I END
CTJUA0I ELSE SET MAXCC = 20
CTJUA0I END
CTJUA0I ELSE SET MAXCC = 21
CTJUA0I END
CTJUA0I ELSE SET MAXCC = 22
CTJUA0I END
CTJUA0I ELSE SET MAXCC = 23
CTJUV1I INFORMATION: Verifying utility IDCAMS ended RC=0000
5 //
CTJ009I Processing ended RC=0000 for JOB M914 MEMBER ALTER1
CTJ003I Processing ended RC=0000 REASON 00000000 MEMBER ALTER1 DSNAME=M91.A
************************************************************************
* Report Summary *
************************************************************************
MEMBER DSNAME ERR# WRN# MAX-RC
----------------------------------------------------------------------
ALTER1 M91.A 0000 0000 00
----------------------------------------------------------------------
TOTAL ISSUED - 56
INFORMATION MESSAGES - 56
WARNING MESSAGES - 0
ERRORS MESSAGES - 0
THE HIGHEST SEVERITY CODE ENCOUNTERD WAS 00
************************************************************************
* Statistics *
************************************************************************
JOBS\PROCS PROCESSED - 1
ENDED WITH ERRORS - 0
ENDED WITH WARNING - 0
ENDED OK - 1
STEP PROCESSED - 1
DD STATEMENTS PROCESSED - 16
CTJ50FI Control-M/JCL Verify Summary Report ended
CTJU02I Control-M/JCL Verify Utility ended. RC=0000
Parent Topic |