JCL - IEHINITT Example 7: Write an ISO/ANSI Label with an Access Code

JCL - IEHINITT Example 7: Write an ISO/ANSI Label with an Access Code

In this example, a version 4 ISO/ANSI (AL) labeled tape is created with a nonblank access code.
The volume serial number is TAPE01.
Neste exemplo, uma fita rotulada ISO / ANSI (AL) versão 4 é criada com um código de acesso não vazio.
O número de série do volume é TAPE01.

  //LABEL7   JOB  ...
  //STEP1    EXEC PGM=IEHINITT
  //SYSPRINT DD  SYSOUT=A
  //LABEL    DD  UNIT=(tape,1,DEFER),DCB=DEN=4
  //SYSIN    DD  *
  LABEL  INITT  SER=TAPE01,OWNER=TAPOWNER,LABTYPE=AL,ACCESS=A,VERSION 4
  /*

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

LABEL DD defines the device on which the tape is mounted.
SYSIN DD defines the control data set, which follows in the input stream.
The INITT statement creates a Version 4 ISO/ANSI label for the tape with volume serial number TAPE01, owned by TAPOWNER.
The ACCESS code is specified as A, and the operating system that receives this volume must be able to recognize the A in order for the volume to be accepted.

LABEL DD define o dispositivo no qual a fita é montada.
SYSIN DD define o conjunto de dados de controle, que segue no fluxo de entrada.
A instrução INITT cria um rótulo ISO / ANSI Versão 4 para a fita com o número de série do volume TAPE01, de propriedade de TAPOWNER.
O código ACCESS é especificado como A e o sistema operacional que recebe esse volume deve ser capaz de reconhecer o A para que o volume seja aceito.

Parent topic: IEHINITT Examples