Before: Delete the ON CLASS A block. Using the DB (Delete Block) command is the preferred method. The DB command removes all parameters, comments, continuation lines, and separator lines of the specified block. DB must be specified on a main line of the block (that is, ON CLASS).
Figure 472 Example 2 - Use of Delete Block Command - Before
------- CONTROL-D/V CATEGORY DAILY JOB * (R.S)
COMMAND ===> SCROLL===> CRSR
+-----------------------------------+
__ CATEGORY DAILY JOBNAME * GENERIC Y MONITOR 1
__ ===========================================================================
__ DEF COPIES 01 LVL USER UNIDENT DEST MAX COPIES
__ ===========================================================================
DB ON CLASS = A 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 = PRODUCTION JCL LINE COL -
__ DO USER = PRODCNTL LVL LINE COL - S N T
SYNONYM = CONCAT =
__ DO BACKUP = BKP0007D
__ DO
__ WHEN LINE - COL - PRINT REF NXT CT AND/OR
__ STRING =
__ DO
__ ===========================================================================
__ ON CLASS = B EXTWTR DEST FORM
FILL IN REPORT DEFINITION. CMDS: EDIT, SCHED, SHPF, PATH 18.37.54
After: The ON CLASS A block has been deleted.
Figure 473 Example 2 - Use of Delete Block Command - After
------- CONTROL-D/V CATEGORY DAILY JOB * (R.S)
COMMAND ===> SCROLL===> CRSR
+-----------------------------------+
__ CATEGORY DAILY JOBNAME * GENERIC Y MONITOR 1
__ ===========================================================================
__ DEF COPIES 01 LVL USER UNIDENT DEST MAX COPIES
__ ===========================================================================
__ ON CLASS = B EXTWTR DEST FORM
__ PRT COPIES LVL USER DEST MAX COPIES
__ PRINT/CDAM PARMS =
__ WHEN LINE - COL - PRINT REF NXT CT AND/OR
__ STRING =
__ DO NAME = PRODUCTION JCL LINE COL -
__ DO
__ ===========================================================================
__ ON
__ PRT COPIES LVL USER DEST MAX COPIES
__ PRINT/CDAM PARMS =
__ WHEN LINE - COL - PRINT REF NXT CT AND/OR
__ STRING =
__ DO
======= >>>>>>>>>> END OF JOB/REPORT PARAMETERS FOR THIS CATEGORY <<<<<<< =====
FILL IN REPORT DEFINITION. CMDS: EDIT, SCHED, SHPF, PATH 18.39.54
Parent Topic |