Example 1
The ON statement defines decollating instructions for all the reports in class D.
Figure 305 ON CLASS Example – Decollation Instructions
----- CONTROL-D/V CATEGORY DAILY JOB PLRPT010 ----------- (R.S)
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
===========================================================================
DEF COPIES 00 LVL 90 USER UNIDENT DEST MAX COPIES 05
===========================================================================
ON CLASS = D EXTWTR DEST FORM
PRT COPIES 01 LVL 20 USER MGT DEST MAX COPIES 10
PRINT/CDAM PARMS =
WHEN LINE 00001 - 00001 COL 00014 - 00046 PRINT REF NXT CT AND/OR
STRING = E M P L O Y E E S R E P O R T
DO NAME = EMPLOYEES REPORT
DO USER = MANAGEMENT LVL LINE COL -
S A T SYNONYM = CONCAT =
DO USER = * LVL LINE COL 00064 - 00074
S A T SYNONYM = CONCAT =
DO PRINT = STD MUST =
DO BACKUP = BKP0031D
DO
WHEN LINE - COL - PRINT REF NXT CT AND/OR
STRING =
DO
===========================================================================
FILL IN REPORT DEFINITION. CMDS: EDIT, SCHED, SHPF, PATH 14.00.06
Example 2
The ON statement defines decollating instructions for a compressed dataset created by DD statement DAREP4 in PGMSTEP APUX0030 of this job.
Figure 306 ON DSN Example
-------- CONTROL-D CATEGORY DAILY JOB PLRPT010 -----------(R.S)
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
===========================================================================
DEF COPIES 00 LVL 90 USER UNIDENT DEST MAX COPIES 05
===========================================================================
ON DSN = DDNAME=DAREP4,PGMSTEP=APUX0030
PRT COPIES 01 LVL 20 USER MGT DEST MAX COPIES 02
PRINT/CDAM PARMS =
WHEN LINE 00001 - 00001 COL 00014 - 00046 PRINT REF NXT CT AND/OR
STRING = E M P L O Y E E S R E P O R T
DO NAME = * LINE COL -
DO USER = MANAGEMENT LVL LINE COL -
S A T SYNONYM = CONCAT =
DO USER = * LVL LINE COL 00064 - 00074
S A T SYNONYM = CONCAT =
DO PRINT = STD MUST =
DO BACKUP = BKP0031D
DO
WHEN LINE - COL - PRINT REF NXT CT AND/OR
STRING =
DO
===========================================================================
FILL IN REPORT DEFINITION. CMDS: EDIT, SCHED, SHPF 14.00.06
Example 3
The ON statement defines decollating instructions for the SYSDATA part of the job output.
Figure 307 ON SYSDATA Example
-------- CONTROL-D CATEGORY DAILY JOB PLRPT010 -----------(R.S)
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
===========================================================================
DEF COPIES LVL USER DEST MAX COPIES 05
===========================================================================
ON SYSDATA
PRT COPIES LVL USER DEST MAX COPIES
PRINT/CDAM PARMS =
WHEN LINE - COL - PRINT REF NXT CT AND/OR
STRING =
DO USER = PRODCNTL LVL LINE COL -
S A T SYNONYM = CONCAT =
DO NAME = PRODUCTION JCL
DO BACKUP = BKP0007D
DO
WHEN LINE - COL - PRINT REF NXT CT AND/OR
STRING =
DO
===========================================================================
ON CLASS = D EXTWTR DEST FORM
PRT COPIES 01 LVL 20 USER MGT DEST MAX COPIES
PRINT/CDAM PARMS =
FILL IN REPORT DEFINITION. CMDS: EDIT, SCHED, SHPF 14.00.06
Example 4
The ON statement defines decollating instructions for all the SYSOUT of the job. The output to be decollated is not restricted to a specified program step, procedure step, ddname or class.
Figure 308 ON SYSOUT Example
----- CONTROL-D/V CATEGORY SYSOUT JOB M38 ----------- (R.S)
COMMAND ===> SCROLL===> CRSR
+-----------------------------------------------------------------------------+
===========================================================================
DEF COPIES LVL USER DEST CTDPC MAX COPIES
===========================================================================
ON SYSOUT PGMSTEP PROCSTEP DDNAME CLASS
PRT COPIES LVL USER DEST CTDPC MAX COPIES
PRINT/CDAM PARMS =
WHEN LINE - COL - PRINT REF NXT CT AND/OR
STRING =
DO PRINT = CTDPC MUST =
DO
WHEN LINE - COL - PRINT REF NXT CT AND/OR
STRING =
DO
===========================================================================
ON
PRT COPIES LVL USER DEST MAX COPIES
PRINT/CDAM PARMS =
WHEN LINE - COL - PRINT REF NXT CT AND/OR
STRING =
DO
FILL IN REPORT DEFINITION. CMDS: EDIT, SCHED, SHPF, PATH 11.55.59
Example 5
The ON TRNCLASS statement performs standard decollation from the sysout in SPOOL, using DAL transformation.
Note: The ON TRNCLASS statement cannot be used together with other ON CLASS statements for the same class, and can be used only for an AFPDS Category 5 report. It is not necessary to use a DO BACKUP for the original AFPDS report.
Figure 309 ON TRNCLASS Example
=============== DECOLLATION FROM SPOOL ====================
CATEGORY ON_TRNCLASS JOBNAME TRNSFOR GENERIC MONITOR
=========================================================================
ON TRNCLASS = A EXTWTR DEST FORM
CLIQUE = CLIQUE01
PRT COPIES LVL USER DEST MAX COPIES
PRINT/CDAM PARMS =
WHEN LINE 00001 - 00010 COL 00010 - 00020 PRINT REF NXT CT AND/OR
STRING = STRING1
DO USER = USER01 LVL LINE COL -
S N T SYNONYM = CONCAT =
DO NAME = NAME TRNCLASS REPORT
DO MIGRATE = MIGMIS
DO
WHEN LINE 00001 - 00010 COL 00010 - 00020 PRINT REF NXT CT AND/OR
STRING = STRING2
DO USER = USER02 LVL LINE COL -
S N T SYNONYM = CONCAT =
DO NAME = NAME TRNCLASS REPORT
DO MIGRATE = MIGNIS
DO
WHEN LINE 00001 - 00010 COL 00020 - 00030 PRINT REF NXT CT AND/OR
STRING = STRING3
DO USER = * LVL LINE COL 00030 - 00040
S N T SYNONYM = CONCAT =
DO NAME = * LINE COL 00040 - 00050
DO MIGRATE = MIGMIS
DO
WHEN LINE - COL - PRINT REF NXT CT AND/OR
STRING =
Example 6
The ON CLASS statement creates a CDAM file from the sysout in SPOOL. The ON TRNDSN statement uses DAL transformation to perform decollation from the CDAM file created by the ON CLASS statement.
Figure 310 ON TRNDSN Example 1
CATEGORY SPOOL JOBNAME TRNSFOR GENERIC MONITOR
=========================================================================
DEF COPIES LVL USER DEST MAX COPIES
=========================================================================
ON CLASS = A EXTWTR DEST FORM
PRT COPIES LVL USER DEST MAX COPIES
PRINT/CDAM PARMS =
WHEN LINE - COL - PRINT REF NXT CT AND/OR
STRING =
DO USER = USRBKP LVL LINE COL -
S N T SYNONYM = CONCAT =
DO NAME = NAME BKPCLASS REPORT
DO BACKUP = BKPMIS
DO PRINT = PRTMIS MUST =
DO
WHEN LINE - COL - PRINT REF NXT CT AND/OR
STRING =
DO
=========================================================================
ON TRNDSN = PREFIX=CTD.PFX <=== prefix defined in AMPREFD in CTDPARM
CLIQUE = CLIQUE01
PRT COPIES LVL USER DEST MAX COPIES
PRINT/CDAM PARMS =
WHEN LINE 00001 - 00010 COL 00010 - 00020 PRINT REF NXT CT AND/OR
STRING = STRING1
DO USER = USER01 LVL LINE COL -
S N T SYNONYM = CONCAT =
DO NAME = NAME TRNCLASS REPORT
DO MIGRATE = MIGMIS
DO
WHEN LINE 00001 - 00010 COL 00010 - 00020 PRINT REF NXT CT AND/OR
STRING = STRING2
DO USER = USER02 LVL LINE COL -
S N T SYNONYM = CONCAT =
DO NAME = NAME TRNCLASS REPORT
DO MIGRATE = MIGNIS
DO
WHEN LINE 00010 - 00020 COL 00020 - 00030 PRINT REF NXT CT AND/OR
STRING = STRING3
DO USER = * LVL LINE COL 00030 - 00040
S N T SYNONYM = CONCAT =
DO NAME = * LINE COL 00040 - 00050
DO MIGRATE = MIGMIS
DO
WHEN LINE - COL - PRINT REF NXT CT AND/OR
STRING =
Example 7
The ON DSN statement creates a backup of the CDAM file. The ON TRNDSN statement uses DAL transformation to perform decollation from that CDAM. A new CDAM file is created during ON TRNDSN decollation.
Figure 311 ON TRNDSN Example 2
========================== DECOLLATION FROM CDAM =========================
CATEGORY ON_TRNDSN JOBNAME TRNSFOR GENERIC MONITOR
=========================================================================
DEF COPIES LVL USER DEST MAX COPIES
=========================================================================
ON DSN = PREFIX=CTD.TRN
PRT COPIES LVL USER DEST MAX COPIES
PRINT/CDAM PARMS =
WHEN LINE - COL - PRINT REF NXT CT AND/OR
STRING =
DO USER = USRBKP LVL LINE COL -
S N T SYNONYM = CONCAT =
DO NAME = NAME DSNBKP REPORT
DO BACKUP = BKPMIS
DO PRINT = PRTMIS MUST =
DO
WHEN LINE - COL - PRINT REF NXT CT AND/OR
STRING =
DO
=========================================================================
ON TRNDSN = PREFIX=CTD.TRN
CLIQUE = CLIQUE02
PRT COPIES LVL USER DEST MAX COPIES
PRINT/CDAM PARMS =
WHEN LINE 00001 - 00010 COL 00010 - 00020 PRINT REF NXT CT AND/OR
STRING = STRING1
DO USER = USER01 LVL LINE COL -
S N T SYNONYM = CONCAT =
DO NAME = NAME TRNDSN REPORT
DO MIGRATE = MIGMIS
DO
WHEN LINE 00001 - 00010 COL 00010 - 00020 PRINT REF NXT CT AND/OR
STRING = STRING2
DO USER = USER02 LVL LINE COL -
S N T SYNONYM = CONCAT =
DO NAME = NAME TRNDSN REPORT
DO MIGRATE = MIGMIS
DO
WHEN LINE 00010 - 00020 COL 00020 - 00030 PRINT REF NXT CT AND/OR
STRING = STRING3
DO USER = * LVL LINE COL 00030 - 00040
S N T SYNONYM = CONCAT =
DO NAME = * LINE COL 00040 - 00050
DO MIGRATE = MIGMIS
DO
WHEN LINE - COL - PRINT REF NXT CT AND/OR
Parent Topic |