Example 2: Copy Steps from Three Jobs

This example copies job steps from each of three jobs. The input data set contains three jobs: JOBA, which includes STEPA, STEPB, STEPC, and STEPD; JOBB, which includes STEPE, STEPF, and STEPG; and JOBC, which includes STEPH and STEPJ.

 //EDIT2    JOB  ...
 //STEP1    EXEC PGM=IEBEDIT
 //SYSPRINT DD  SYSOUT=A
 //SYSUT1   DD  DSN=INJOBS,DISP=(OLD,KEEP),VOLUME=SER=001234,
 //             UNIT=tape
 //SYSUT2   DD  DSN=OUTSTRM,UNIT=tape,DISP=(NEW,KEEP),
 //             DCB=(RECFM=F,LRECL=80,BLKSIZE=80),LABEL=(2,SL)
 //SYSIN    DD  *
        EDIT   START=JOBA,TYPE=INCLUDE,STEPNAME=(STEPC,STEPD)
        EDIT   START=JOBB,TYPE=INCLUDE,STEPNAME=STEPE
        EDIT   START=JOBC,TYPE=INCLUDE,STEPNAME=STEPJ
 /*

The control statements are as follows:

SYSUT1 DD defines the input data set, INJOBS. The data set resides on a standard labeled tape volume (001234).
SYSUT2 DD defines the output data set, OUTSTRM. The data set is to reside as the second data set on a standard labeled tape volume (001235). The short block size is very inefficient.
SYSIN DD defines the control data set, which follows in the input stream.
The EDIT statements copy the JOB statements and job steps described as follows:
1. The JOB statement and steps STEPC and STEPD for JOBA.
2. The JOB statement and STEPE for JOBB.
3. The JOB statement and STEPJ for JOBC.