JCL - IEHINITT Place Two Groups of Serial Numbers on Six Tape Volumes



Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

JCL - IEHINITT Example 3: Place Two Groups of Serial Numbers on Six Tape Volumes
  • In this 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.

  • Neste exemplo, dois grupos de números de série (001234, 001235, 001236 e 001334, 001335, 001336) são colocados em seis 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 única unidade de fita de 9 trilhas.
  //LABEL3   JOB  ...
  //STEP1    EXEC PGM=IEHINITT
  //SYSPRINT DD  SYSOUT=A
  //LABEL    DD  DCB=DEN=2,UNIT=(tape,1,DEFER)
  //SYSIN    DD  *
  LABEL   INITT   SER=001234,NUMBTAPE=3
  LABEL   INITT   SER=001334,NUMBTAPE=3
  /*

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

  • LABEL 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.
  • LABEL INITT defines the two groups of serial numbers to be put on six tape volumes.

  • LABEL DD define a unidade de fita a ser usada na operação de etiquetagem.
  • SYSIN DD define o conjunto de dados de controle, que segue no fluxo de entrada.
  • LABEL INITT define os dois grupos de números de série a serem colocados em seis volumes de fita.

Parent topic: IEHINITT Examples



© Copyright IBM Corp.