|
In this example, serial number TAPE1 is placed on a tape volume, and serial numbers 001234 and 001235 are placed on two tape volumes.
The labels are written in EBCDIC at 800 and 1600 bits per inch, respectively.
Neste exemplo, o número de série TAPE1 é colocado em um volume de fita e os números de série 001234 e 001235 são colocados em dois volumes
de fita.
Os rótulos são gravados em EBCDIC a 800 e 1600 bits por polegada, respectivamente.
//LABEL5 JOB ...
//STEP1 EXEC PGM=IEHINITT
//SYSPRINT DD SYSOUT=A
//LABEL1 DD DCB=DEN=2,UNIT=(tape,1,DEFER)
//LABEL2 DD DCB=DEN=3,UNIT=(tape,1,DEFER)
//SYSIN DD *
LABEL1 INITT SER=TAPE1
LABEL2 INITT SER=001234,NUMBTAPE=2
/*
The control statements are as follows:
As declarações de controle são as seguintes:
- LABEL1 DD and LABEL2 DD define two tape volumes to be used in the labeling operation.
- SYSIN DD defines the control data set, which follows in the input stream.
- LABEL1 INITT places the serial number TAPE1 on the tape volume defined in LABEL1 DD.
LABEL2 INITT places the serial numbers 001234 and 001235 on the tape volume defined in LABEL2 DD.
- LABEL1 DD e LABEL2 DD definem dois volumes de fita a serem usados ??na operação de etiquetagem.
- SYSIN DD define o conjunto de dados de controle, que segue no fluxo de entrada.
- LABEL1 INITT coloca o número de série TAPE1 no volume da fita definido em LABEL1 DD.
LABEL2 INITT coloca os números de série 001234 e 001235 no volume da fita definido em LABEL2 DD.
Parent topic: IEHINITT Examples
© Copyright IBM Corp.
|
