JCL - IEBUPDTE Example 8: Renumber and Insert Records into a Library Member



Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

JCL - IEBUPDTE Example 8: Renumber and Insert Records into a Library Member

In this example, two blocks (three logical records per block) are inserted into an existing member, and the member is placed in the existing partitioned data set.
A portion of the output member is also renumbered.
Neste exemplo, dois blocos (três registros lógicos por bloco) são inseridos em um membro existente e o membro é colocado no conjunto de dados particionado existente.
Uma parte do membro de saída também é renumerada.

  //UPDATE   JOB  ...
  //STEP1    EXEC PGM=IEBUPDTE,PARM=MOD
  //SYSPRINT DD  SYSOUT=A
  //SYSUT1   DD  DSNAME=PDS,UNIT=disk,DISP=(OLD,KEEP),
  //             VOLUME=SER=111112
  //SYSUT2   DD  DSNAME=PDS,UNIT=disk,DISP=(OLD,KEEP),
  //             VOLUME=SER=111112
  //SYSIN    DD  *
  ./  CHANGE NAME=RENUM,LIST=ALL,LEVEL=01,SOURCE=0,SEQFLD=(765,783)
  ./  NUMBER SEQ1=AA015,NEW1=AA020,INCR=5,INSERT=YES
 
  (Data statement 1)
  (Data statement 2)
  (Data statement 3)
 
  ./  NUMBER SEQ1=AA030,INSERT=YES
 
  (Data statement 4)
  (Data statement 5)
  (Data statement 6)
  (Data statement 7, sequence number AA035)
 
  /*

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

  • SYSUT1 and SYSUT2 DD define the partitioned data set PDS.
  • SYSIN DD defines the control data set, which follows in the input stream.
  • The CHANGE function statement identifies the input member RENUM.
    The entire member is listed in the message data set.
  • The NUMBER detail statements specify the insert operations (INSERT=YES) and control the renumbering operation.
  • Data statements 1, 2, 3, and 4, 5, 6 are the blocks of logical records to be inserted.
    Because they contain blank sequence numbers, sequence numbers are assigned when the data statements are inserted.
  • Data statement 7, because it contains a sequence number, stops the insert operation.
    The sequence number is identical to the number on the next record in the old master data set; consequently, data statement 7 will replace the equally numbered old master record in the output data set.

The existing logical records in this example have sequence numbers AA010, AA015, AA020, AA025, AA030, AA035, AA040, AA045, AA050, BB010, and BB015.
The insertion and renumbering operations are performed as follows:

  1. Data statement 1 is assigned sequence number AA020 (NEW1=AA020) and inserted after existing logical record AA015 (SEQ1=AA015).
  2. Data statements 2 and 3 are assigned sequence numbers AA025 and AA030 (INCR=5) and are inserted after data statement 1.
  3. Existing logical records AA020, AA025, and AA030 are assigned sequence numbers AA035, AA040, and AA045, respectively.
  4. Data statement 4 is assigned sequence number AA050 and inserted.
    (The SEQ1=AA030 specification in the second NUMBER statement places this data statement after existing logical record AA030, which has become logical record AA045.)
  5. Data statements 5 and 6 are assigned sequence numbers AA055 and AA060 and are inserted after data statement 4.
  6. Existing logical record AA035 is replaced by data statement 7, which is assigned sequence number AA065.
  7. The remaining logical records in the member are renumbered until logical record BB010 is encountered.
    Because this record has a sequence number higher than the next number to be assigned, the renumbering operation is ended.

  • SYSUT1 e SYSUT2 DD definem o conjunto de dados particionado PDS.
  • SYSIN DD define o conjunto de dados de controle, que segue no fluxo de entrada.
  • A instrução da função CHANGE identifica o membro de entrada RENUM.
    Todo o membro é listado no conjunto de dados da mensagem.
  • As instruções de detalhes NUMBER especificam as operações de inserção (INSERT = YES) e controlam a operação de renumeração.
  • As declarações de dados 1, 2, 3 e 4, 5, 6 são os blocos de registros lógicos a serem inseridos.
    Como eles contêm números de seqüência em branco, os números de seqüência são atribuídos quando as instruções de dados são inseridas.
  • A declaração de dados 7, porque contém um número de sequência, interrompe a operação de inserção.
    O número de sequência é idêntico ao número no próximo registro no antigo conjunto de dados mestre; conseqüentemente, a declaração de dados 7 substituirá o antigo registro mestre igualmente numerado no conjunto de dados de saída.

Os registros lógicos existentes neste exemplo têm números de sequência AA010, AA015, AA020, AA025, AA030, AA035, AA040, AA045, AA050, BB010 e BB015.
As operações de inserção e renumeração são realizadas da seguinte forma:

  1. A instrução de dados 1 recebe o número de sequência AA020 (NEW1 = AA020) e é inserida após o registro lógico AA015 existente (SEQ1 = AA015).
  2. As declarações de dados 2 e 3 recebem os números de sequência AA025 e AA030 (INCR = 5) e são inseridas após a declaração de dados 1.
  3. Os registros lógicos existentes AA020, AA025 e AA030 são atribuídos aos números de sequência AA035, AA040 e AA045, respectivamente.
  4. A declaração de dados 4 recebe o número de sequência AA050 e é inserida.
    (A especificação SEQ1 = AA030 na segunda instrução NUMBER coloca esta instrução de dados após o registro lógico AA030 existente, que se tornou o registro lógico AA045.)
  5. As declarações de dados 5 e 6 recebem os números de sequência AA055 e AA060 e são inseridas após a declaração de dados 4.
  6. O registro lógico AA035 existente é substituído pela instrução de dados 7, à qual é atribuído o número de sequência AA065.
  7. Os registros lógicos restantes no membro são renumerados até que o registro lógico BB010 seja encontrado.
    Como este registro possui um número de sequência superior ao próximo número a ser atribuído, a operação de renumeração é encerrada.

Table 1 shows existing sequence numbers, data statements inserted, and the new sequence numbers.
A Tabela 1 mostra os números de sequência existentes, as declarações de dados inseridas e os novos números de sequência.

Sequence Numbers and Data Statements Inserted
Números de sequência e declarações de dados inseridos		 New Sequence Numbers
Novos números de sequência
AA010 AA010
AA015 AA015
Data statement 1 AA020
Data statement 2 AA025
Data statement 3 AA030
AA020 AA035
AA025 AA040
AA030 AA045
Data statement 4 AA050
Data statement 5 AA055
Data statement 6 AA060
AA035 (Data statement 7) AA065
AA040 AA070
AA045 AA070
AA050 AA075
BB010 BB010
BB015 BB015

Parent topic: IEBUPDTE Examples


© Copyright IBM Corp.