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