Example 3: Place two groups of serial numbers on six tape volumes

Figure 1 is a manual processing example. Two groups of serial numbers (001234, 001235, 001236, and 001334, 001335, 001336) are placed on six tape volumes. The labels are written in EBCDIC at 800 bits per inch. Each volume labeled is mounted, when it is required, on a single 9-track tape unit. You must specify SYSIN commands for each volume you want to label, as Figure 1 shows.

Figure 1. Numbering tape volumes

  //LABEL3   JOB  ...
  //STEP1    EXEC PGM=EDGINERS
  //SYSPRINT DD  SYSOUT=A
  //TAPE     DD  DCB=DEN=2,UNIT=(tape,1,DEFER)
  //SYSIN    DD  *
  INIT  VOLUME(001234) LABEL(SL)
  INIT  VOLUME(001235) LABEL(SL)
  INIT  VOLUME(001236) LABEL(SL)
  INIT  VOLUME(001334) LABEL(SL)
  INIT  VOLUME(001335) LABEL(SL)
  INIT  VOLUME(001336) LABEL(SL)
  /*

Control statement description:

TAPE DD defines the tape unit to be used in the labeling operation.
SYSIN DD defines the control data set, which follows in the input stream.
INIT specifies that the tapes are to be labeled.