Before: Move multiple DO statements from one ON block to another. Command MM (Multiple Move) is specified at the beginning and the end of the DO statements that are moved. Command A (After) specifies the location after which these lines are placed.
Figure 474 Example 3 - Use of Multiple Move Command - Before
------- CONTROL-D/V CATEGORY DAILY JOB * (R.S)
COMMAND ===> SCROLL===> CRSR
+------------------------------------+
__
LINE - COL - PRINT REF NEXT PAGE CONTID AND/OR
__ STRING =
__ DO NAME = PRODUCTION JCL LINE COL -
MM DO USER = NONPRODCNTL LVL LINE COL - S N T
SYNONYM = CONCAT =
__ DO BACKUP = BKP0007D
__ DO SHOUT TO TSO-001 URGENCY
MM = NON-PRODUCTION JCL COMPLETED
__ WHEN LINE - COL - PRINT REF NXT CT AND/OR
__ STRING =
__ DO
__ ===========================================================================
__ ON CLASS = B EXTWTR DEST FORM
__ PRT COPIES LVL USER DEST MAX COPIES
__ PRINT/CDAM PARMS = ALLOCOPT=JOBSDSN1
__ PRINT/CDAM PARMS =
__ WHEN LINE - COL - PRINT REF NXT CT AND/OR
__ STRING =
A_ DO NAME = NON-PRODUCTION JCL LINE COL -
__ DO
FILL IN REPORT DEFINITION. CMDS: EDIT, SCHED, SHPF, PATH 18.47.45
After: The three specified DO statements have been moved to the specified location.
Figure 475 Example 3 - Use of Multiple Move Command - After
------- CONTROL-D/V CATEGORY DAILY JOB * - (R.S)
COMMAND ===> SCROLL===> CRSR
+------------------------------------+
__ WHEN LINE - COL - PRINT REF NXT CT AND/OR
__ STRING =
__ DO NAME = PRODUCTION JCL LINE COL -
__ DO
__ WHEN LINE - COL - PRINT REF NXT CT AND/OR
__ STRING =
__ DO
__ ===========================================================================
__ ON CLASS = B EXTWTR DEST FORM
__ PRT COPIES LVL USER DEST MAX COPIES
__ PRINT/CDAM PARMS = ALLOCOPT=JOBSDSN1
__ PRINT/CDAM PARMS =
__ WHEN LINE - COL - PRINT REF NXT CT AND/OR
__ STRING =
__ DO NAME = NON-PRODUCTION JCL LINE COL -
__ DO USER = NONPRODCNTL LVL LINE COL - S N T
__ DO BACKUP = BKP0007D
__ DO SHOUT TO TSO-001 URGENCY R
FILL IN REPORT DEFINITION. CMDS: EDIT, SCHED, SHPF, PATH 18.50.58
Parent Topic |