JCL z/OS DFSMS - IEBDG Example 1: Place Binary Zeros in Records Copied from Sequential Data Set

JCL z/OS DFSMS - IEBDG Example 1: Place Binary Zeros in Records Copied from Sequential Data Set

In this example, binary zeros are placed in two fields of 100 records copied from a sequential data set.
After the operation, each record in the copied data set (OUTSET) contains binary zeros in locations 20 through 29 and 50 through 59.

Neste exemplo, zeros binários são colocados em dois campos de 100 registros copiados de um conjunto de dados sequencial.
Após a operação, cada registro no conjunto de dados copiado (OUTSET) contém zeros binários nas localizações 20 a 29 e 50 a 59.

  //CLEAROUT JOB  ...
  //STEP1    EXEC PGM=IEBDG
  //SYSPRINT DD  SYSOUT=A
  //SEQIN    DD  DSNAME=INSET,UNIT=tape,DISP=(OLD,KEEP),
  //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),
  //             LABEL=(,NL),VOLUME=SER=222222
  //SEQOUT   DD  DSNAME=OUTSET,UNIT=tape,DISP=(,KEEP),
  //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),
  //             VOLUME=SER=222333,LABEL=(,NL)
  //SYSIN    DD  *
         DSD     OUTPUT=(SEQOUT),INPUT=(SEQIN)
         FD      NAME=FIELD1,LENGTH=10,STARTLOC=20
         FD      NAME=FIELD2,LENGTH=10,STARTLOC=50
         CREATE  QUANTITY=100,INPUT=SEQIN,NAME=(FIELD1,FIELD2)
         END
  /*

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

SEQIN DD defines a sequential input data set (INSET).
The data set was originally written on a unlabeled tape volume.
SEQOUT DD defines the test data set (OUTSET).
The output records are identical to the input records, except for locations 20 through 29 and 50 through 59, which contain binary zeros at the completion of the operation.
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 first and second FD statements create two 10-byte fields (FIELD1 and FIELD2).
Because no pattern is specified for these fields, each field contains the default fill of binary zeros.
The fields are to begin in the 20th and 50th bytes of each output record.
CREATE constructs 100 output records in which the contents of previously defined fields (FIELD1, FIELD2) are placed in their respective starting locations in each of the output records.
Input records from data set INSET are used 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 de entrada sequencial (INSET).
O conjunto de dados foi originalmente gravado em um volume de fita sem etiqueta.
SEQOUT DD define o conjunto de dados de teste (OUTSET).
Os registros de saída são idênticos aos registros de entrada, exceto para os locais 20 a 29 e 50 a 59, que contêm zeros binários na conclusão da operação.
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 primeira e a segunda instruções FD criam dois campos de 10 bytes (FIELD1 e FIELD2).
Como nenhum padrão é especificado para esses campos, cada campo contém o preenchimento padrão de zeros binários.
Os campos devem começar no 20º e 50º bytes de cada registro de saída.
CREATE constrói 100 registros de saída nos quais o conteúdo dos campos previamente definidos (FIELD1, FIELD2) são colocados em seus respectivos locais iniciais em cada um dos registros de saída.
Os registros de entrada do conjunto de dados INSET são usados ??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