In this example, three unloaded sequential data sets are loaded from a labeled, 7-track tape volume (556 bits per inch) to a disk volume. Space is allocated by IEHMOVE. The example assumes that the disk volume is capable of supporting the data sets in their original forms.

                                                             72
  //LOAD     JOB  ...
  //STEP1    EXEC PGM=IEHMOVE
  //SYSPRINT DD  SYSOUT=A
  //SYSUT1   DD  UNIT=disk,VOLUME=SER=222222,DISP=OLD
  //DD1      DD  UNIT=disk,VOLUME=SER=111111,DISP=OLD
  //DD2      DD  UNIT=disk,VOLUME=SER=222222,DISP=OLD
  //TAPESETS DD  UNIT=tape,VOLUME=SER=001234,DISP=OLD,
  //             LABEL=(1,SL),DCB=(DEN=1,TRTCH=C)
  //SYSIN    DD  *
           MOVE   DSNAME=UNLDSET1,T0=disk=222222,             X
                 FROM=tape=(001234,1),FROMDD=TAPESETS
           MOVE   DSNAME=UNLDSET2,TO=disk=222222,             X
                 FROM=tape=(001234,2),FROMDD=TAPESETS
           MOVE   DSNAME=UNLDSET3,TO=disk=222222,             X
                 FROM=tape=(001234,3),FROMDD=TAPESETS
  /*

The control statements are discussed below:

• SYSUT1 DD defines the device that is to contain the work data set.
• DD1 DD defines the system residence device.
• DD2 DD defines a device on which the receiving volume is mounted.
• TAPESETS DD defines a device on which the source tape volume is mounted. DCB information is provided in this statement.
• SYSIN DD defines the control data set, which follows in the input stream.
• MOVE moves the unloaded data sets to the receiving volume.