Example 2: Write an ISO/ANSI Label on a Tape

In this 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.

  //LABEL2   JOB  ...
  //STEP1    EXEC PGM=IEHINITT
  //SYSPRINT DD  SYSOUT=A
  //ASCIILAB DD  DCB=DEN=2,UNIT=(tape,1,DEFER)
  //SYSIN    DD  *
  ASCIILAB INITT   SER=001001,OWNER='SAM A. BROWN',LABTYPE=AL
  /*

The control statements are as follows:

• ASCIILAB DD defines the tape volume to be used in the labeling operation.
• SYSIN DD defines the control data set, which follows in the input stream.
• ASCIILAB INITT specifies the serial number, owner ID and label type for the volume.Because the VERSION keyword was not specified, the ISO/ANSI tape will be created based on what is specified in the DEVSUPxx parmlib member or as a version 3 by default.