JCL - IEHINITT Example 4: Place Serial Number on Eight Tape Volumes

JCL - IEHINITT Example 4: Place Serial Number on Eight Tape Volumes

In this example, serial numbers 001234, 001244, 001254, 001264, 001274, and so forth, are placed on eight tape volumes.
The labels are written in EBCDIC at 800 bits per inch.
Each volume labeled is mounted, when it is required, on one of four 9-track tape units.

Neste exemplo, os números de série 001234, 001244, 001254, 001264, 001274 e assim por diante, são colocados em oito volumes de fita.
Os rótulos são gravados em EBCDIC a 800 bits por polegada.
Cada volume identificado é montado, quando necessário, em uma das quatro unidades de fita de 9 trilhas.

  //LABEL4   JOB  ...
  //STEP1    EXEC PGM=IEHINITT
  //SYSPRINT DD  SYSOUT=A
  //LABEL    DD  DCB=DEN=2,UNIT=(tape,4,DEFER)
  //SYSIN    DD  *
  LABEL   INITT   SER=001234
  LABEL   INITT   SER=001244
  LABEL   INITT   SER=001254
  LABEL   INITT   SER=001264
  LABEL   INITT   SER=001274
  LABEL   INITT   SER=001284
  LABEL   INITT   SER=001294
  LABEL   INITT   SER=001304
  /*

The control statements are as follows:
As declarações de controle são as seguintes:

LABEL DD defines the tape unit used in the labeling operation.
SYSIN DD defines the control data set, which follows in the input stream.
The LABEL INITT statements define the tapes to be labeled by volume serial number.

LABEL DD define a unidade de fita usada na operação de etiquetagem.
SYSIN DD define o conjunto de dados de controle, que segue no fluxo de entrada.
As instruções LABEL INITT definem as fitas a serem rotuladas pelo número de série do volume.

Parent topic: IEHINITT Examples