JCL - IEHINITT Write an ISO/ANSI Label on a Tape



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

JCL - IEHINITT 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.
Neste exemplo, o número de série 001001 é colocado em um volume de fita ISO / ANSI; o rótulo é escrito em 800 bits por polegada.
O volume identificado é montado, quando necessário, em uma unidade de fita de 9 trilhas.

  //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:
As declarações de controle são as seguintes:

  • 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.

  • ASCIILAB DD define o volume da fita a ser usado na operação de etiquetagem.
  • SYSIN DD define o conjunto de dados de controle, que segue no fluxo de entrada.
  • ASCIILAB INITT especifica o número de série, ID do proprietário e tipo de rótulo para o volume.
    Como a palavra-chave VERSION não foi especificada, a fita ISO/ANSI será criada com base no que está especificado no membro DEVSUPxx parmlib ou como uma versão 3 por padrão.

Parent topic: IEHINITT Examples



© Copyright IBM Corp.