Previous Topic

Next Topic

Book Contents

Book Index

Example 3

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

Maintaining Valid Mission Definitions