Figure 152A CAPTURE BY W (word) - Example of Job Definition
======================================================================
OUT JOB2-OK 1801 +
AUTO-ARCHIVE Y SYSDB Y MAXDAYS MAXRUNS
RETENTION: # OF DAYS TO KEEP # OF GENERATIONS TO KEEP
SYSOUT OP (C,D,F,N,R) FROM
MAXRERUN RERUNMEM
CAPTURE BY W (W - WORD / C - CHAR)
SEARCH SUBMITTED
SKIP 00000004 ROWS
SKIP 002 WORDS DELIMITER _
TAKE 07 WORDS
INTO %%VAR_A
CAPTURE BY (W - WORD / C - CHAR)
CYCLIC TYPE: C INTERVAL FROM
Figure 152B CAPTURE BY - Example of SYSOUT
29 APR 2015 JOB EXECUTION DATE
19 CARDS READ
681 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
37 SYSOUT SPOOL KBYTES
0.10 MINUTES EXECUTION TIME
1 //N27ASMCL JOB ,ASM,TIME=NOLIMIT,REGION=0M,MSGLEVEL=(1,1),
// USER=N27,
// CLASS=A,
// MSGCLASS=X
//*---- SUBMITTED BY CONTROL-M (FROM MEMLIB) ODATE=150429
//*---- SCHEDULE CTMP.V900.OPR.SCHEDULE(REGJOB)
//*---- SCHEDULED DUE TO RBC: !NORBC
//*---- JCL N27.LIB.CNTL(RUNTEST3)
//*---- CONTROL-M JOB IDENTIFICATION: ORDER ID=00020 RUN NO. =00001
//*JOBFROM N27
2 // JCLLIB ORDER=IOAP.V900.PROCLIB
3 // INCLUDE MEMBER=IOASET
XX*************************************************************
The SYSOUT is searched for the word, SUBMITTED, then 4 rows (including the row with the word SUBMITTED) are skipped. Then, in the 5th row, 2 words are skipped ("//*----" and "CONTROL-M"). The following 7 words are then taken: "JOB", "IDENTIFICATION:", "ORDER", "ID=00020", "RUN", "NO.", and "=00001" and placed into the AuditEdit variable, %%VAR_A.
Figure 153 CAPTURE BY C (character) - Example of Job Definition
======================================================================
OUT JOB2-OK 1801 +
AUTO-ARCHIVE Y SYSDB Y MAXDAYS MAXRUNS
RETENTION: # OF DAYS TO KEEP # OF GENERATIONS TO KEEP
SYSOUT OP (C,D,F,N,R) FROM
MAXRERUN RERUNMEM
CAPTURE BY C (W – WORD / C – CHAR)
SEARCH SUBMITTED
SKIP 00000004 ROWS
SKIP 018 CHARS
TAKE 49 CHARS (EMPTY \ ZEROS - TILL END OF THE LINE)
INTO %%VAR_B
CAPTURE BY (W - WORD / C - CHAR)
CYCLIC TYPE: C INTERVAL FROM
The SYSOUT is searched for the word, SUBMITTED, then 4 rows (including the row with the word SUBMITTED) are skipped. Then, in the 5th row, 18 words are skipped ("//*---- CONTROL-M "). The following 49 characters are then taken: "JOB IDENTIFICATION: ORDER ID=00020 RUN NO. =00001" and placed into the AuditEdit variable, %%VAR_B.
Parent Topic |