Example 1: Write IBM standard labels on three tapes

Figure 1 is a manual processing example. Serial numbers 001234, 001235, and 001236 are placed on three 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. Writing IBM standard labels on three tapes

  //LABEL1   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)
  /*

Control statement description:

TAPE DD defines the tape unit 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.