JCL - IEBUPDTE Insert Records into a Library Member



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

JCL - IEBUPDTE Example 7: Insert Records into a Library Member

In this example, a block of three logical records is inserted into an existing member, and the updated member is placed in the existing partitioned data set.
Neste exemplo, um bloco de três registros lógicos é inserido em um membro existente e o membro atualizado é colocado no conjunto de dados particionado existente.

  //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
  ./     NUMBER   SEQ1=15,NEW1=20,INCR=5,INSERT=YES
 
  (Data statement 1)
  (Data statement 2)
  (Data statement 3)
 
  /*

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 statement specifies the insert operation and controls the renumbering operation.
  • The data statements are the logical records to be inserted.
    (Sequence numbers are assigned when the data statements are inserted.)

In this example, the existing logical records have sequence numbers 10, 15, 20, 25, and 30.
Sequence numbers are assigned by the NUMBER detail statement, as follows:

  1. Data statement 1 is assigned sequence number 20 (NEW1=20) and inserted after existing logical record 15 (SEQ1=15).
  2. Data statements 2 and 3 are assigned sequence numbers 25 and 30 (INCR=5) and are inserted after data statement 1.
  3. Existing logical records 20, 25, and 30 are assigned sequence numbers 35, 40, and 45, respectively.

  • SYSUT1 e SYSUT2 DD definem o conjunto de dados particionados (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.
  • A instrução de detalhes NUMBER especifica a operação de inserção e controla a operação de renumeração.
  • As declarações de dados são os registros lógicos a serem inseridos.
    (Os números de sequência são atribuídos quando as declarações de dados são inseridas.)

Neste exemplo, os registros lógicos existentes têm números de sequência 10, 15, 20, 25 e 30.
Os números de sequência são atribuídos pela declaração de detalhes NUMBER, da seguinte maneira:

  1. A instrução de dados 1 recebe o número de sequência 20 (NEW1 = 20) e é inserida após o registro lógico existente 15 (SEQ1 = 15).
  2. As declarações de dados 2 e 3 são atribuídos aos números de sequência 25 e 30 (INCR = 5) e são inseridas após a declaração de dados 1.
  3. Os registros lógicos existentes 20, 25 e 30 são atribuídos aos números de sequência 35, 40 e 45, respectivamente.

Table 1 shows existing sequence numbers, data statements inserted, and the resultant 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 resultantes.

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
10 10
15 15
Data statement 1 20
Data statement 2 25
Data statement 3 30
20 35
25 40
30 45

Parent topic: IEBUPDTE Examples


© Copyright IBM Corp.