JCL z/OS DFSMS - IEBDG Example 2: Ripple 10-byte Alphabetic Pattern

JCL z/OS DFSMS - IEBDG Example 2: Ripple 10-byte Alphabetic Pattern

In this example, a 10-byte alphabetic pattern is rippled.
At the end of the job step the first output record contains ABCDEFGHIJ, followed by data in location 11 through 80 from the input record;
the second record contains BCDEFGHIJK followed by data in locations 11 through 80, and so forth.

Neste exemplo, um padrão alfabético de 10 bytes é ondulado.
No final da etapa do trabalho, o primeiro registro de saída contém ABCDEFGHIJ, seguido pelos dados na localização 11 a 80 do registro de entrada;
o segundo registro contém BCDEFGHIJK seguido por dados nos locais 11 a 80 e assim por diante.

  //RIPPLE   JOB  ...
  //STEP1    EXEC PGM=IEBDG
  //SYSPRINT DD  SYSOUT=A
  //SEQIN    DD  DSNAME=INSET,UNIT=tape,VOL=SER=222222,
  //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),DISP=(OLD,KEEP)
  //SEQOUT   DD  DSNAME=OUTSET,UNIT=disk,VOLUME=SER=111111,
  //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),
  //             DISP=(,KEEP),SPACE=(TRK,(10,10))
  //SYSIN    DD  *
       DSD     OUTPUT=(SEQOUT),INPUT=(SEQIN)
       FD      NAME=FIELD1,LENGTH=10,FORMAT=AL,ACTION=RP,STARTLOC=1
       CREATE  QUANTITY=100,INPUT=SEQIN,NAME=FIELD1
       END
  /*

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

SEQIN DD defines an input sequential data set (INSET).
The data set was originally written on a standard labeled tape volume.
SEQOUT DD defines the test output data set (OUTSET).
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 statements defining the input and output data sets.
The FD statement creates a 10-byte field in which the pattern ABCDEFGHIJ is initially placed.
The data is rippled after each output record is written.
CREATE constructs 100 output records in which the contents of a previously defined field (FIELD1) are included.
The CREATE statement uses input records from data set INSET as the basis of the output records.
END signals the end of a set of utility control statements.

SEQIN DD define um conjunto de dados sequenciais de entrada (INSET).
O conjunto de dados foi originalmente gravado em um volume de fita rotulado padrão.
SEQOUT DD define o conjunto de dados de saída de teste (OUTSET).
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 às instruções DD que definem os conjuntos de dados de entrada e saída.
A instrução FD cria um campo de 10 bytes no qual o padrão ABCDEFGHIJ é inicialmente colocado.
Os dados são propagados após cada registro de saída ser gravado.
CREATE constrói 100 registros de saída nos quais o conteúdo de um campo previamente definido (FIELD1) é incluído.
A instrução CREATE usa registros de entrada do conjunto de dados INSET como base dos registros de saída.
END sinaliza o fim de um conjunto de declarações de controle da concessionária.

Parent topic: IEBDG Examples