Before: Copy a WHEN statement and some of its DO statements to another WHEN statement. Command CC (Multiple Copy) is specified at the beginning and the end of the lines that are copied. Command B (Before) specifies the location before which these lines are placed.
Figure 476 Example 4 - Use of Multiple Copy Command - Before
------- CONTROL-D/V CATEGORY DAILY JOB * (R.S)
COMMAND ===> SCROLL===> CRSR
+-----------------------------------+
__ ON CLASS = A EXTWTR DEST FORM
__ PRT COPIES LVL USER DEST MAX COPIES
__ PRINT/CDAM PARMS = ALLOCOPT=JOBSDSN1
__ PRINT/CDAM PARMS =
CC WHEN LINE 00001 - 00001 COL - PRINT REF NXT CT AND/OR
__ STRING = DD
__ DO NAME = PRODUCTION JCL LINE COL -
CC DO USER = PRODCNTL LVL LINE COL - S N T
SYNONYM = CONCAT =
__ DO BACKUP = BKP0007D
__ DO
B_ WHEN LINE - COL - PRINT REF NXT CT AND/OR
__ STRING =
__ DO
__ ===========================================================================
__ ON CLASS = C EXTWTR DEST FORM
__ PRT COPIES LVL USER DEST MAX COPIES
__ PRINT/CDAM PARMS =
__ WHEN LINE - COL - PRINT REF NXT CT AND/OR
__ STRING =
FILL IN REPORT DEFINITION. CMDS: EDIT, SCHED, SHPF, PATH 18.57.05
After: The specified WHEN and DO statements have been successfully copied.
Figure 477 Example 4 - Use of Multiple Copy Command - After
------- CONTROL-D/V CATEGORY DAILY JOB * (R.S)
COMMAND ===> SCROLL===> CRSR
+------------------------------------+
__ ON CLASS = A EXTWTR DEST FORM
__ PRT COPIES LVL USER DEST MAX COPIES
__ PRINT/CDAM PARMS = ALLOCOPT=JOBSDSN1
__ PRINT/CDAM PARMS =
__ WHEN LINE 00001 - 00001 COL - PRINT REF NXT CT AND/OR
__ STRING = DD
__ DO NAME = PRODUCTION JCL LINE COL -
__ DO USER = PRODCNTL LVL LINE COL - S N T
SYNONYM = CONCAT =
__ DO BACKUP = BKP0007D
__ DO
__ WHEN LINE 00001 - 00001 COL - PRINT REF NXT CT AND/OR
__ STRING = DD
__ DO NAME = PRODUCTION JCL LINE COL -
__ DO USER = PRODCNTL LVL LINE COL - S N T
__ DO
__ WHEN LINE - COL - PRINT REF NXT CT AND/OR
__ STRING =
__ DO
FILL IN REPORT DEFINITION. CMDS: EDIT, SCHED, SHPF, PATH 18.58.32
Parent Topic |