|
|
|
|
|
The following example shows a CTJVER output report for a job that is to be submitted by Control-M monitor.
The job is part of SMART table SAMPLE08.
The following figure shows the relevant parts of the SMART Table Entity Definition in Screen 2. The SMART Table contains variable that %%EX_SYSTEM will be set in the JCL.
Figure JV14 SMART Table with variable %%EX_SYSTEM - Example 6
TBL SAMPLE08 CTJP.TESTS.SCHEDULE(SAMPLE08)
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
| TABLE SAMPLE08 GROUP |
| OWNER N18A |
| APPL |
| DESC SAMPLE08 - SMART TABLE |
| |
| ADJUST CONDITIONS N TBL MAXWAIT 00 STAT CAL |
| SET VAR %%EX_SYSTEM=%%$SYSNAME |
| SET VAR |
| DOCMEM SAMPLE08 DOCLIB CTMP.V900.DOC |
| =========================================================================== |
| SCHEDULE RBC JVERRBC LEVEL TBL |
| DAYS ALL DCAL |
| AND/OR |
| WDAYS WCAL |
| MONTHS 1- Y 2- Y 3- Y 4- Y 5- Y 6- Y 7- Y 8- Y 9- Y 10- Y 11- Y 12- Y |
| DATES |
| CONFCAL SHIFT MAXWAIT 00 |
| SCHEDULE RBC ACTIVE FROM UNTIL |
| =========================================================================== |
The following figure shows the relevant parts of the JOB Definition SAMPLE08 in Screen 2. The JOB definition table contains variable that %%EXDATE will be set in the JCL.
Figure JV15 Job definition with variable %%EXDATE - Example 6
JOB: SAMPLE08 LIB CTJP.TESTS.SCHEDULE TABLE: SAMPLE08
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
| MEMNAME SAMPLE08 MEMLIB CTJP.TESTS.JCL |
| OWNER N18A TASKTYPE JOB PREVENT-NCT2 DFLT N |
| APPL GROUP |
| DESC SAMPLE08 - JOB SUBMITED BY CONTROL-M MONITOR |
| |
| OVERLIB STAT CAL |
| SCHENV SYSTEM ID NJE NODE |
| SET VAR %%EXDATE=%%ODATE |
| SET VAR |
| CTB STEP AT NAME TYPE |
| DOCMEM SAMPLE08 DOCLIB CTMP.V900.DOC |
| =========================================================================== |
| SCHEDULE RBC JVERRBC |
| SCHEDULE RBC |
| RELATIONSHIP (AND/OR) O |
| DAYS DCAL |
| AND/OR |
| WDAYS WCAL |
| MONTHS 1- Y 2- Y 3- Y 4- Y 5- Y 6- Y 7- Y 8- Y 9- Y 10- Y 11- Y 12- Y |
| DATES |
| CONFCAL SHIFT RETRO N MAXWAIT 00 D-CAT |
| MINIMUM PDS |
| DEFINITION ACTIVE FROM UNTIL |
| =========================================================================== |
The following figure shows JCL of the job specified in the SAMPLE08 definition above. The job contains three statements that are resolved when Control-M monitor submits the job:
%%EX_SYSTEM - A JES2 statement that sends the printout to a specific z/OS system. %%SAMPLE08_OLD=%%$CALCDTE %%$ODATE -1 - A Control-M statement to resolve the day of the day before the run Figure JV16 Job with three statements to be resolved - Example 6
//SAMPLE08 JOB ,BR14,MSGCLASS=X,MSGLEVEL=(1,1)
/*ROUTE PRINT %%EX_SYSTEM
//*
//* %%SET %%ODATE_OLD=%%$CALCDTE %%$ODATE -1
//* %%SET %%SAMPLE08_OLD =%%SUBSTR %%ODATE_OLD 3 6
//*
//DELETE EXEC PGM=IEFBR14,COND=EVEN
//OLDFILE DD DISP=(MOD,DELETE),
// DSN=CTJP.SAMPLE08.D%%SAMPLE08_OLD
//*
//ALLOC EXEC PGM=IEFBR14,COND=EVEN
//NEWFILE DD DISP=(,DELETE),DSN=CTJP.SAMPLE08.D%%EXDATE,
// UNIT=SYSDA,SPACE=(CYL,(10,10),RLSE)
The following figure shows the job that performs the verification.
Figure JV17 Verified job - Sample08 - Example 6
//CTJCTMS1 JOB 0,YY,CLASS=A,MSGCLASS=X,
// NOTIFY=&SYSUID
//*******************************************************************
//**
//** PARAMETERS TO CTJVER
//** ML=D/I/W/E I=INFO W=WARING E=ERROR
//** FA=D/Y/N
//** FE=D/Y/N
//** ME=D/Y/N
//** D= DEFAULT Y=YES N=NO
//** STATEMENTS
//** USER= IF NOT VERIFY THE USER THAT IS NOT
//** THE CTJVER
//** LIB= MEM= LIB IS MANDATORY
//** MEM IS OPTIONAL AND SUPPORT MASKING (* & %)
//**
//*******************************************************************
// JCLLIB ORDER=IOAP.V900.PROCLIB
// INCLUDE MEMBER=IOASET
//JCLVRFY EXEC CTJVER
//SYSIN DD *
SCHEDLIB=CTJP.TESTS.SCHEDULE MEM=SAMPLE08
/*
The CTJVER utility output report, shown in the following figure, includes various messages. To simplify the reading and interpretation of the messages, Control-M JCL Verify combines the messages that are issued by the system in the JESYSMSG member with the JCL statements.
Figure JV18 CTJVER utility - SYSPRINT - Example 6
CTJU01I FA=D FE=D JES=D ME=D ML=D
CTJU01I SCHEDLIB=CTJP.TESTS.SCHEDULE MEM=SAMPLE08
CTJ000I Control-M/JCL Verify is starting. Level IJ10086
CTJ00CI Runtime parameters: FA=Y FE=Y JES=Y ME=Y ML=I USER=N18A
CTJ002I Start processing MEMBER SAMPLE08 DSNAME=CTJP.TESTS.JCLS
CTJR05I //SAMPLE08 JOB ,BR14,MSGCLASS=X,MSGLEVEL=(1,1)
CTJ008I Start verifying JOB SAMPLE08 MEMBER SAMPLE08
1 //SAMPLE08 JOB ,BR14,MSGCLASS=X,MSGLEVEL=(1,1),
// USER=N18A
//*NET ID=AESUSER
//*---- SUBMITTED BY CONTROL-M (FROM MEMLIB) ODATE=130628
//*---- SCHEDULE (UNKNOWN)
//*---- SCHEDULED DUE TO RBC:
//*---- JCL CTJP.TESTS.JCLS(SAMPLE08)
//*---- CONTROL-M JOB IDENTIFICATION: ORDER ID= RUN NO.=00001
CTJR05I /*ROUTE PRINT %%EX_SYSTEM
/*ROUTE PRINT MVS3
//*
CTJR05I //* %%SET %%ODATE_OLD=%%$CALCDTE %%$ODATE -1
//* %%SET %%ODATE_OLD=%%$CALCDTE 20120628 -1
CTJR05I //* %%SET %%SAMPLE08_OLD =%%SUBSTR %%ODATE_OLD 3 6
//* %%SET %%SAMPLE08_OLD =%%SUBSTR 20130627 3 6
//*
2 //DELETE EXEC PGM=IEFBR14,COND=EVEN
CTJP0GI 2 INFORMATION: PGM IEFBR14 found in LINKLIST SYS1.LINKLIB
3 //OLDFILE DD DISP=(MOD,DELETE),
CTJR05I // DSN=CTJP.SAMPLE08.D%%SAMPLE08_OLD
// DSN=CTJP.SAMPLE08.D130627
CTJD06W 3 WARNING: DSN with DISP=DELETE not found. DSN=CTJP.SAMPLE08.D130627
//*
4 //ALLOC EXEC PGM=IEFBR14,COND=EVEN
CTJP0GI 4 INFORMATION: PGM IEFBR14 found in LINKLIST SYS1.LINKLIB
CTJR05I //NEWFILE DD DISP=(,DELETE),DSN=CTJP.SAMPLE08.D%%EXDATE,
5 //NEWFILE DD DISP=(,DELETE),DSN=CTJP.SAMPLE08.D130628,
// UNIT=SYSDA,SPACE=(CYL,(10,10),RLSE)
6 //
CTJ009I Processing ended RC=0004 for JOB SAMPLE08 MEMBER SAMPLE08
CTJ003I Processing ended RC=0004 REASON 00000000 MEMBER SAMPLE08 DSNAME=CTJP.TESTS.JCLS
CTJU02I Control-M/JCL Verify Utility ended. RC=0004
In the above sample:
Note: if the MEMLIB is a DD name like GENERAL, the library name is the first library in the DD statement concatenation.
Parent Topic |