Saturday, April 12, 2014

How to copy selected steps of diff jobs into one job?



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.

 //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
/*

0 Comments:

Post a Comment

Subscribe to Post Comments [Atom]

<< Home