JCL z/OS DFSMS - IEBDG Example 6: Construct Records with Your Own Patterns

JCL z/OS DFSMS - IEBDG Example 6: Construct Records with Your Own Patterns

In this example, 10 fields containing user-supplied character patterns are used in the construction of output records.
After a record is written, each field is rolled or waved, as specified in the applicable FD statement.
Figure 1 shows the contents of the output records at the end of the job step.

Neste exemplo, 10 campos contendo padrões de caracteres fornecidos pelo usuário são usados na construção de registros de saída.
Depois que um registro é escrito, cada campo é rolado ou ondulado, conforme especificado na declaração FD aplicável.
A Figura 1 mostra o conteúdo dos registros de saída no final da etapa do trabalho.

Figure 1. Contents of output records at job step completion
Figura 1. Conteúdo dos registros de saída na conclusão da etapa do trabalho

                                                                         72
  //ROLLWAVE JOB  ...
  //STEP1    EXEC PGM=IEBDG
  //SYSPRINT DD  SYSOUT=A
  //OUTSET   DD  DSNAME=SEQSET,UNIT=disk,DISP=(,KEEP),
  //             VOLUME=SER=SAMP,SPACE=(TRK,(10,10)),
  //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
  //SYSIN    DD  *
   DSD    OUTPUT=(OUTSET)
   FD     NAME=FIELD1,LENGTH=8,PICTURE=8,'   AAAAA',ACTION=RO
   FD     NAME=FIELD2,LENGTH=8,PICTURE=8,'BBBBB   ',ACTION=RO
   FD     NAME=FIELD3,LENGTH=8,PICTURE=8,'A   AA  ',ACTION=RO
   FD     NAME=FIELD4,LENGTH=8,PICTURE=8,' BB    B',ACTION=RO
   FD     NAME=FIELD5,LENGTH=8,PICTURE=8,'   AAA  ',ACTION=RO
   FD     NAME=FIELD6,LENGTH=8,PICTURE=8,'   CCCCC',ACTION=WV
   FD     NAME=FIELD7,LENGTH=8,PICTURE=8,'  DDDD  ',ACTION=WV
   FD     NAME=FIELD8,LENGTH=8,PICTURE=8,'  C  CC ',ACTION=WV
   FD     NAME=FIELD9,LENGTH=8,PICTURE=8,'  DD   D',ACTION=WV
   FD     NAME=FIELD10,LENGTH=8,PICTURE=8,'  CCC   ',ACTION=WV
   CREATE QUANTITY=300,NAME=(FIELD1,FIELD2,FIELD3,                       X
            FIELD4,FIELD5,FIELD6,FIELD7,FIELD8,FIELD9,FIELD10)
   END
  /*

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

PAROUT1 DD defines the first member (MEMBA) of the partitioned output data set.
This example assumes that the partitioned data set does not exist before this job step;
that is, this DD statement allocates space for the data set.
PAROUT2 and PAROUT3 DD define the second and third members, respectively, of the output partitioned data set.
Note that each DD statement specifies DISP=OLD and UNIT=AFF=PAROUT1.
SYSIN DD defines the control data set that follows in the input stream.
DSD marks the beginning of a set of utility control statements and refers to the DD statement defining the member applicable to that set of utility control statements.
FD defines the contents of a field that is used in the subsequent construction of output records.
CREATE constructs four records from combinations of previously defined fields.
END signals the end of a set of utility control statements.

PAROUT1 DD define o primeiro membro (MEMBA) do conjunto de dados de saída particionado.
Este exemplo assume que o conjunto de dados particionado não existe antes desta etapa do trabalho;
ou seja, esta instrução DD aloca espaço para o conjunto de dados.
PAROUT2 e PAROUT3 DD definem o segundo e o terceiro membros, respectivamente, do conjunto de dados particionados de saída.
Observe que cada instrução DD especifica DISP = OLD e UNIT = AFF = PAROUT1.
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 de utilitário e refere-se à instrução DD que define o membro aplicável a esse conjunto de instruções de controle de utilitário.
FD define o conteúdo de um campo que é usado na construção subsequente de registros de saída.
CREATE constrói quatro registros a partir de combinações de campos previamente definidos.
END sinaliza o fim de um conjunto de declarações de controle da concessionária.

Parent topic: IEBDG Examples