JCL - IEBUPDTE Example 5: Create New Master Data Set and Delete Selected Records

JCL - IEBUPDTE Example 5: Create New Master Data Set and Delete Selected Records

In this example, a new master sequential data set is created from partitioned input and selected logical records are deleted.
Neste exemplo, um novo conjunto de dados sequenciais mestre é criado a partir da entrada particionada e os registros lógicos selecionados são excluídos.

  //UPDATE   JOB  ...
  //STEP1    EXEC PGM=IEBUPDTE,PARM=MOD
  //SYSPRINT DD  SYSOUT=A
  //SYSUT1   DD  DSNAME=DCB.PARTDS,DISP=(OLD,KEEP)
  //             VOLUME=SER=111112
  //SYSUT2   DD  DSNAME=SEQDS,UNIT=tape,LABEL=(2,SL),
  //             DISP=(,KEEP),VOLUME=SER=001234,
  //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=2000)
  //SYSIN    DD  *
  ./     CHANGE   NEW=PS,NAME=OLDMEMB1
 
  (Data statement 1, sequence number 00000123)
 
  ./     DELETE   SEQ1=223,SEQ2=246
 
  (Data statement 2, sequence number 00000224)
 
  /*

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

SYSUT1 DD defines the input partitioned data set DCB.PARTDS, which resides on a disk volume.
SYSUT2 DD defines the output sequential data set, SEQDS.
The data set is written as the second data set on a tape volume.
SYSIN DD defines the control data set, which follows in the input stream.
CHANGE identifies the input member (OLDMEMB1) and indicates that the output is a sequential data set (NEW=PS).
The first data statement replaces the logical record whose sequence number is identical to the sequence number in the data statement (00000123).
If no such logical record exists, the data statement is incorporated in the proper sequence within the output data set.
The DELETE detail statement deletes logical records having sequence numbers from 223 through 246, inclusive.
The second data statement is inserted in the proper sequence in the output data set, because no logical record with the sequence number 224 exists (it was deleted in the previous statement).

Note that only one member can be used as input when converting to sequential organization.

SYSUT1 DD define o conjunto de dados particionados de entrada DCB.PARTDS, que reside em um volume de disco.
SYSUT2 DD define o conjunto de dados sequenciais de saída, SEQDS.
O conjunto de dados é gravado como o segundo conjunto de dados em um volume de fita.
SYSIN DD define o conjunto de dados de controle, que segue no fluxo de entrada.
CHANGE identifica o membro de entrada (OLDMEMB1) e indica que a saída é um conjunto de dados sequencial (NEW = PS).
A primeira instrução de dados substitui o registro lógico cujo número de seqüência é idêntico ao número de seqüência na instrução de dados (00000123).
Se esse registro lógico não existir, a declaração de dados é incorporada na sequência apropriada dentro do conjunto de dados de saída.
A instrução de detalhes DELETE exclui registros lógicos com números de sequência de 223 a 246, inclusive.
A segunda instrução de dados é inserida na seqüência apropriada no conjunto de dados de saída, porque nenhum registro lógico com o número de seqüência 224 existe (ele foi excluído na instrução anterior).

Observe que apenas um membro pode ser usado como entrada ao converter para a organização sequencial.

Parent topic: IEBUPDTE Examples