In the following example, CTJVER verifies a job containing an ADRDSSU step.
Figure JV33 ADRDSSU – Example 16
//M91K JOB
//BACKUP EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
IF MAXCC > 8 THEN DO
DUMP DATASET(INCLZDE(PAYROLL.FEDTAX.**) -
BY((DSCHA,EQ,YES) (MGMTCLAS,EQ,DAILY))) -
OUTDD(DROUT)
Figure JV34 CTJVER output of verifying the job in example 16
CTJ000I Control-M/JCL Verify is starting. Level K27
CTJ00CI Runtime parameters: FA=Y FV=Y JES=Y ME=Y ML=I CTM=Y STDR=Y UT=Y
***************************************************************
CTJ002I * Start processing MEMBER=CTJUADG7 JOBNAME=M91K
CTJ008I * DSNAME=M91.TEST.CNTL
***************************************************************
CTJR05I //M91K JOB
1 //M91K JOB
// MSGCLASS=X,
// MSGLEVEL=(1,1)
2 //BACKUP EXEC PGM=ADRDSSU
CTJP0GI 2 INFORMATION: PGM ADRDSSU found in LINKLIST SYS1.LINKLIB
3 //SYSPRINT DD SYSOUT=*
CTJ105I 4 //SYSIN DD * GENERATED BY CTJVER
IF MAXCC > 8 THEN DO
DUMP DATASET(INCLZDE(PAYROLL.FEDTAX.**) -
BY((DSCHA,EQ,YES) (MGMTCLAS,EQ,DAILY))) -
OUTDD(DROUT)
CTJUV0I INFORMATION: Verifying utility ADRDSSU
CTJUHOI ADRDSSU IF MAXCC > 8 THEN DO
CTJUHOI ADRDSSU DUMP DATASET(INCLZDE(PAYROLL.FEDTAX.**) -
CTJUHOI ADRDSSU BY((DSCHA,EQ,YES) (MGMTCLAS,EQ,DAILY))) -
CTJUHOI ADRDSSU OUTDD(DROUT)
CTJUHOI ADRDSSU ADR181T TOO MANY LEVELS OF 'IF' COMMAND NESTING
CTJUV1I INFORMATION: Verifying utility ADRDSSU ended RC=0008
5 //
CTJ009I Processing ended RC=0008 for JOB M91K MEMBER CTJUADG7 DSN=M91.TEST.CNTL
CTJ003I Processing ended RC=0008 REASON 00000000 MEMBER CTJUADG7 DSNAME
Parent Topic |