|
This example includes a job step from one job and excludes a job step from another job.
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.
Este exemplo inclui uma etapa de trabalho de um trabalho e exclui uma etapa de trabalho de outro trabalho.
O conjunto de dados de entrada contém três tarefas: JOBA, que inclui STEPA, STEPB, STEPC e STEPD; JOBB, que inclui STEPE, STEPF e STEPG; e JOBC, que inclui
STEPH e STEPJ.
//EDIT3 JOB ...
//STEP1 EXEC PGM=IEBEDIT
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSNAME=INSET,UNIT=disk,DISP=(OLD,KEEP),
// VOLUME=SER=111111
//SYSUT2 DD DSNAME=OUTTAPE,UNIT=tape,LABEL=(,NL),
// DCB=(DEN=2,RECFM=FB,LRECL=80,BLKSIZE=8160),
// DISP=(,KEEP)
//SYSIN DD *
EDIT START=JOBB,TYPE=INCLUDE,STEPNAME=(STEPF-STEPG)
EDIT START=JOBC,TYPE=EXCLUDE,STEPNAME=STEPJ
/*
The control statements are as follows:
As declarações de controle são as seguintes:
- SYSUT1 DD defines the input data set, INSET. The data set resides on a disk volume (111111).
- SYSUT2 DD defines the output data set, OUTTAPE.
The data set is to reside as the first or only data set on an unlabeled (800 bits per inch) tape volume.
- SYSIN DD defines the control data set, which follows in the input stream.
- The EDIT statements copy JOB statements and job steps as follows:
- The JOB statement and steps STEPF and STEPG for JOBB.
- The JOB statement and STEPH, excluding STEPJ, for JOBC.
- SYSUT1 DD define o conjunto de dados de entrada, INSET. O conjunto de dados reside em um volume de disco (111111).
- SYSUT2 DD define o conjunto de dados de saída, OUTTAPE.
O conjunto de dados deve residir como o primeiro ou único conjunto de dados em um volume de fita sem rótulo (800 bits por polegada).
- SYSIN DD define o conjunto de dados de controle, que segue no fluxo de entrada.
- As instruções EDIT copiam as instruções JOB e as etapas do trabalho da seguinte forma:
- A instrução JOB e as etapas STEPF e STEPG para JOBB.
- A instrução JOB e STEPH, excluindo STEPJ, para JOBC.
Parent topic: IEBEDIT Examples
© Copyright IBM Corp.
|