|
This example copies the entire input data set, including the JES2 control statement, because a new delimiter (JP) has been coded.
Otherwise, the /* in the JES2 control statement would have stopped the input.
Este exemplo copia todo o conjunto de dados de entrada, incluindo a instrução de controle JES2, porque um novo delimitador (JP) foi codificado.
Caso contrário, o / * na instrução de controle JES2 teria interrompido a entrada.
//EDIT6 JOB ...
//STEP1 EXEC PGM=IEBEDIT
//SYSPRINT DD SYSOUT=A
//SYSUT2 DD DSN=TAPEOUT,UNIT=tape,
// VOL=SER=001234,LABEL=(,SL),DISP=(NEW,KEEP)
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),
//SYSIN DD DUMMY
//SYSUT1 DD DATA,DLM=JP
//LISTVTOC JOB ...
/*MESSAGE JOB NEEDS VOLUME 338000
//FSTEP EXEC PGM=IEHLIST
//SYSPRINT DD SYSOUT=A
//DD2 DD UNIT=disk,VOL=SER=338000,DISP=OLD
//SYSIN DD *
LISTVTOC FORMAT,VOL=disk=338000
/*
The control statements are as follows:
As declarações de controle são as seguintes:
- SYSUT2 DD defines the output data set, TAPEOUT.
The data set will be the first data set on a standard label tape volume (001234).
- SYSIN DD defines a dummy control data set.
- SYSUT1 DD defines the input data set, which follows in the input stream.
The DLM parameter defines characters JP to act as a delimiter for the input data.
- IEBEDIT copies the JOB statement through the /* statement (including the LISTVTOC and MESSAGE job statements, FSTEP EXEC statement, and SYSPRINT, DD2 and SYSIN
DD statements).
- SYSUT2 DD define o conjunto de dados de saída, TAPEOUT.
O conjunto de dados será o primeiro conjunto de dados em um volume de fita de etiqueta padrão (001234).
- SYSIN DD define um conjunto de dados de controle fictício.
- SYSUT1 DD define o conjunto de dados de entrada, que segue no fluxo de entrada.
O parâmetro DLM define os caracteres JP para atuar como um delimitador para os dados de entrada.
- IEBEDIT copia a instrução JOB por meio da instrução / * (incluindo as instruções de trabalho LISTVTOC e MESSAGE, a instrução FSTEP EXEC e
as instruções SYSPRINT, DD2 e SYSIN DD).
Parent topic: IEBEDIT Examples
© Copyright IBM Corp.
|
