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.

 //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:

• 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).