|
This example copies the entire input data set.
The record containing the characters ..* in columns 1 through 3 is converted to a /* statement in the output data set.
Este exemplo copia todo o conjunto de dados de entrada.
O registro que contém os caracteres .. * nas colunas 1 a 3 é convertido em uma instrução / * no conjunto de dados de saída.
//EDIT5 JOB ...
//STEP1 EXEC PGM=IEBEDIT
//SYSPRINT DD SYSOUT=A
//SYSUT2 DD DSNAME=OUTTAPE,UNIT=tape,
// VOLUME=SER=001234,DISP=(NEW,KEEP),
// DCB=(RECFM=F,LRECL=80,BLKSIZE=80)
//SYSIN DD DUMMY
//SYSUT1 DD DATA
//BLDGDGIX JOB ...
// EXEC PGM=IEHPROGM
//SYSPRINT DD SYSOUT=A
//DD1 DD UNIT=disk,VOLUME=SER=111111,DISP=OLD
//SYSIN DD *
BLDG SCRATCH VTOC,VOL=3390=111111
..*
/*
The control statements are as follows:
As declarações de controle são as seguintes:
- SYSUT2 DD defines the output data set, OUTTAPE.
The data set will be the first data set on a 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 job is stopped when the statement /* is encountered.
(SYSUT1 therefore includes the DELETE JOB statement, EXEC statement, SYSPRINT, DD1, and SYSIN DD statements.)
- SYSUT2 DD define o conjunto de dados de saída, OUTTAPE.
O conjunto de dados será o primeiro conjunto de dados em um volume de fita (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 trabalho é interrompido quando a instrução / * é encontrada.
(SYSUT1, portanto, inclui as instruções DELETE JOB, EXEC, SYSPRINT, DD1 e SYSIN DD.)
Parent topic: IEBEDIT Examples
© Copyright IBM Corp.
|
