In this example, a sequential data set that was created by an IEBCOPY unload operation is loaded.

  //LOAD     JOB  ...
  //STEPA    EXEC PGM=IEBCOPY
  //SYSPRINT DD  SYSOUT=A
  //SYSUT1   DD  DSNAME=UNLOADSET,UNIT=tape,LABEL=(,SL),
  //             VOL=SER=TAPE01,DISP=OLD
  //SYSUT2   DD  DSNAME=DATASET4,UNIT=disk,VOL=SER=2222222,
  //             DISP=(NEW,KEEP),SPACE=(CYL,(10,5,10))
  //SYSUT3   DD  DSN=TEMP1,UNIT=disk,VOL=SER=111111,
  //             DISP=(NEW,DELETE),SPACE=(80,(15,1))
  //SYSIN    DD  DUMMY
  /*

The control statements are discussed below:

• SYSUT1 DD defines a sequential data set that was previously created by an IEBCOPY unload operation. The data set contains 28 members in sequential organization.
• SYSUT2 DD defines a new partitioned data set on a disk volume. This data set is to be kept after the load operation. Ten cylinders are allocated for the data set; ten blocks are allocated for directory entries.
• SYSUT3 DD defines a temporary spill data set on a disk volume.
• SYSIN DD defines the control data set. Because SYSIN is dummied, SYSUT1 defines a sequential data set, and SYSUT2 defines a partitioned data set, the entire SYSUT1 data set will be loaded into the SYSUT2 data set.