Example 2: Write an ISO/ANSI label on a tape

Figure 1 is a manual processing example. Serial number 001001 is placed on one ISO/ANSI tape volume; the label is written at 800 bits per inch. The volume labeled is mounted, when it is required, on a 9-track tape unit. You must specify SYSIN commands for each volume you want to label, as Figure 1 shows.

Figure 1. Writing an ISO/ANSI label on a tape

  //LABEL2   JOB  ...
  //STEP1    EXEC PGM=EDGINERS
  //SYSPRINT DD  SYSOUT=A
  //TAPE     DD  DCB=DEN=2,UNIT=(tape,1,DEFER)
  //SYSIN    DD  *
  INIT VOLUME(001001) LABEL(AL)
  /*

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 the serial number and label type for the volume that is being labeled.