In the following example, CTJVER verifies a job containing an IEHPROGM step.
Figure JV29 IEHPROGM – Example 14
//M91I JOB ,ASM,MSGCLASS=X
//ZZZ EXEC PGM=IEHPROGM
//SYSPRINT DD SYSOUT=*
//A DD UNIT=3390,VOL=SER=IOAU03,DISP=SHR
//B DD UNIT=3390,VOL=SER=TL321M,DISP=SHR
SCRATCH VTOC,VOL=3390=IOAXXX
RENAME DSNAME=M91.JOBS.CNTL1,VOL=3390=IOAU03, X
NEWNAME=M91.JOBS.CNTL2
CATLG DSNAME=SYS1.LINKLIB,VOL=3390=TL321M
UNCATLG DSNAME=SYS1.LINKLIB
ADD DSNAME=M91.A,PASWORD2=NEWPAS,DATA='CHANGED BY X.Y ON 2.7.16'
DELETEP DSNAME=M91.A,VOL=3390=IOAU03
LIST DSNAME=M91.B,PASWORD1=NEWPAS
RENAME DSNAME=A,NEWNAME=D
SCRATCH VTOC,VOL=3390=TL321M,PURGE
Figure JV30 CTJVER output of verifying the job in example 14
CTJ000I Control-M/JCL Verify is starting. Level IJ10248
CTJ00CI Runtime parameters: FA=Y FV=Y JES=Y ME=Y ML=I CTM=Y STDR=Y UT=Y ENV=GENERAL USER=M91
************************************************************************
CTJ002I * Start processing MEMBER=PROGOK JOBNAME=M91I *
CTJ008I * DSNAME=M91.B *
************************************************************************
CTJR05I //M91I JOB ,ASM,MSGCLASS=X
CTJ00SI RULE-INFO: MEMBER NAME: PROGOK
1 //M91I JOB ,ASM,MSGCLASS=X,
// MSGLEVEL=(1,1),
// UJOBCORR='CTM_$UNKNWN$_00000'
//*---- SUBMITTED BY CONTROL-M (FROM MEMLIB) ODATE=150720
//*---- SCHEDULE (UNKNOWN)
//*---- SCHEDULED DUE TO RBC:
//*---- JCL M91.B(PROGOK)
//*---- CONTROL-M JOB IDENTIFICATION: ORDER ID=00000 RUN NO.=00001
2 //ZZZ EXEC PGM=IEHPROGM
CTJP0GI 2 INFORMATION: PGM IEHPROGM found in LINKLIST SYS1.LINKLIB
3 //SYSPRINT DD SYSOUT=*
4 //A DD UNIT=3390,VOL=SER=IOAU03,DISP=SHR
5 //B DD UNIT=3390,VOL=SER=TL321M,DISP=SHR
CTJ105I 6 //SYSIN DD * GENERATED BY CTJVER
SCRATCH VTOC,VOL=3390=IOAXXX
RENAME DSNAME=M91.JOBS.CNTL1,VOL=3390=IOAU03, X
NEWNAME=M91.JOBS.CNTL2
CATLG DSNAME=SYS1.LINKLIB,VOL=3390=TL321M
UNCATLG DSNAME=SYS1.LINKLIB
ADD DSNAME=M91.A,PASWORD2=NEWPAS,DATA='CHANGED BY X.Y ON 2.7.16'
DELETEP DSNAME=M91.A,VOL=3390=IOAU03
LIST DSNAME=M91.B,PASWORD1=NEWPAS
RENAME DSNAME=A,NEWNAME=B
SCRATCH VTOC,VOL=3390=TL321M,PURGE
CTJUV0I INFORMATION: Verifying utility IEHPROGM
CTJUH0I IEHPROGM SCRATCH VTOC,VOL=3390=IOAXXX
CTJUHEE IEHPROGM DD statement missing or invalid device type for volume IOAXXX
CTJUH0I IEHPROGM RENAME DSNAME=M91.JOBS.CNTL1,VOL=3390=IOAU03, X
CTJUH0I IEHPROGM NEWNAME=M91.JOBS.CNTL2
CTJUH0I IEHPROGM CATLG DSNAME=SYS1.LINKLIB,VOL=3390=TL321M
CTJD08W IEHPROGM WARNING: file was already cataloged. DSN=SYS1.LINKLIB
CTJUH0I IEHPROGM UNCATLG DSNAME=SYS1.LINKLIB
CTJSA6W IEHPROGM WARNING: Permission to UNCATALOG was not granted for SYS1.LINKLIB
CTJUH0I IEHPROGM ADD DSNAME=M91.A,PASWORD2=NEWPAS,DATA='CHANGED BY X.Y ON 2.7.16'
CTJUH0I IEHPROGM DELETEP DSNAME=M91.A,VOL=3390=IOAU03
CTJUH0I IEHPROGM LIST DSNAME=M91.B,PASWORD1=NEWPAS
CTJUH0I IEHPROGM RENAME DSNAME=A,NEWNAME=B
CTJUH2E IEHPROGM Required parameter or value missing - VOL=
CTJUH0I IEHPROGM SCRATCH VTOC,VOL=3390=TL321M,PURGE
CTJUHLE IEHPROGM Attempt to scratch the VTOC of the SYSRES volume
CTJUHHI IEHPROGM SCRATCH VTOC - individual file verification bypassed
CTJUV1I INFORMATION: Verifying utility IEHPROGM ended RC=0008
7 //
CTJ009I Processing ended RC=0008 for JOB M91I MEMBER PROGOK
CTJ003I Processing ended RC=0008 REASON 00000000 MEMBER PROGOK DSNAME=M91.B
Parent Topic |