|
In this example, output records are created entirely from utility control statements.
Three fields are created and used in the construction of the output records.
In two of the fields, alphabetic data is truncated; the other field is a numeric field that is incremented (indexed) by one after each output record is written.
Figure 1 shows the contents of the output records at the end of the job step.
Neste exemplo, os registros de saída são criados inteiramente a partir de instruções de controle do utilitário.
Três campos são criados e usados ??na construção dos registros de saída.
Em dois dos campos, os dados alfabéticos são truncados; o outro campo é um campo numérico que é incrementado (indexado) em um após cada registro de saída ser
gravado.
A Figura 1 mostra o conteúdo dos registros de saída no final da etapa do trabalho.
Figure 1. Output Records at job step completion
Figura 1. Registros de saída na conclusão da etapa do trabalho
72
//UTLYONLY JOB ...
//STEP1 EXEC PGM=IEBDG
//SYSPRINT DD SYSOUT=A
//SEQOUT DD DSNAME=OUTSET,UNIT=disk,DISP=(,KEEP),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),
// SPACE=(TRK,(10,10)),VOLUME=SER=111111
//SYSIN DD DATA
DSD OUTPUT=(SEQOUT)
FD NAME=FIELD1,LENGTH=30,STARTLOC=1,FORMAT=AL,ACTION=TL
FD NAME=FIELD2,LENGTH=30,STARTLOC=31,FORMAT=AL,ACTION=TR
FD NAME=FIELD3,LENGTH=10,STARTLOC=71,PICTURE=10, X
P'1234567890',INDEX=1
CREATE QUANTITY=100,NAME=(FIELD1,FIELD2,FIELD3),FILL=X'FF'
END
/*
The control statements are as follows:
As declarações de controle são as seguintes:
- SEQOUT DD defines the test output data set.
Ten tracks of primary space and ten tracks of secondary space are allocated for the sequential data set on a disk volume.
- SYSIN DD defines the control data set, which follows in the input stream.
- DSD marks the beginning of a set of utility control statements and refers to the DD statement defining the output data set.
- FD defines the contents of three fields to be used in the construction of output records.
The first field contains 30 bytes of alphabetic data to be truncated left after each output record is written.
The second field contains 30 bytes of alphabetic data to be truncated right after each output record is written.
The third field is a 10-byte field containing a packed decimal number (1234567890) to be increased by one after each record is written.
- CREATE constructs 100 output records in which the contents of previously defined fields (FIELD1, FIELD2, and FIELD3) are included.
Note that after each record is written, FIELD1 and FIELD2 are restored to full width.
- END signals the end of a set of utility control statements.
- SEQOUT DD define o conjunto de dados de saída de teste.
Dez trilhas de espaço primário e dez trilhas de espaço secundário são alocadas para o conjunto de dados sequenciais em um volume de disco.
- SYSIN DD define o conjunto de dados de controle, que segue no fluxo de entrada.
- DSD marca o início de um conjunto de instruções de controle do utilitário e se refere à instrução DD que define o conjunto de dados de
saída.
- FD define o conteúdo de três campos a serem usados na construção de registros de saída.
O primeiro campo contém 30 bytes de dados alfabéticos a serem truncados à esquerda após a gravação de cada registro de saída.
O segundo campo contém 30 bytes de dados alfabéticos a serem truncados logo após cada registro de saída ser gravado.
O terceiro campo é um campo de 10 bytes contendo um número decimal compactado (1234567890) a ser aumentado em um após cada registro ser gravado.
- CREATE constrói 100 registros de saída nos quais o conteúdo dos campos previamente definidos (FIELD1, FIELD2 e FIELD3) são incluídos.
Observe que depois que cada registro é gravado, FIELD1 e FIELD2 são restaurados para a largura total.
- END sinaliza o fim de um conjunto de declarações de controle da concessionária.
Parent topic: IEBDG Examples
© Copyright IBM Corp.
|
