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.

 //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   INDEX=A.B.C,ENTRIES=10,EMPTY
 ..*
 /*

The control statements are as follows:

• 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 BLDGDGIX JOB statement, EXEC statement, SYSPRINT, DD1, and SYSIN DD statements.)