JCL - IEBUPDTE Example 3: Create New Library Using SYS1.MACLIB as a Source

JCL - IEBUPDTE Example 3: Create New Library Using SYS1.MACLIB as a Source

In this example, a three-member partitioned data set (NEWMCLIB) is created.
The data set will contain two members, ATTACH and DETACH, copied from an existing partitioned data set (SYS1.MACLIB), and a new member, EXIT, which is contained in the control data set.

Neste exemplo, um conjunto de dados particionados de três membros (NEWMCLIB) é criado.
O conjunto de dados conterá dois membros, ATTACH e DETACH, copiados de um conjunto de dados particionado existente (SYS1.MACLIB) e um novo membro, EXIT, que está contido no conjunto de dados de controle.

  //UPDATE   JOB  ...
  //STEP1    EXEC PGM=IEBUPDTE,PARM=MOD
  //SYSPRINT DD  SYSOUT=A
  //SYSUT1   DD  DSNAME=SYS1.MACLIB,DISP=SHR
  //SYSUT2   DD  DSNAME=DEV.DRIVER3.NEWMCLIB,UNIT=disk,
  //             DISP=(NEW,CATLG),SPACE=(TRK,(100,,10)),
  //             DCB=(RECFM=F,LRECL=80,BLKSIZE=4000)
  //SYSIN    DD  DATA
  ./      REPRO   NAME=ATTACH,LEVEL=00,SOURCE=1,LIST=ALL
  ./      REPRO   NAME=DETACH,LEVEL=00,SOURCE=1,LIST=ALL
  ./        ADD   NAME=EXIT,LEVEL=00,SOURCE=1,LIST=ALL
  ./     NUMBER   NEW1=10,INCR=100
 
  (Data records for EXIT member)
 
  ./      ENDUP
  /*

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

SYSUT1 DD defines the input partitioned data set SYS1.MACLIB, which is assumed to be cataloged.
SYSUT2 DD defines the output partitioned data set DEV.DRIVER3,NEWMCLIB.
Enough space is allocated to allow for subsequent modifications without creating a new master data set.
SYSIN DD defines the control data set, which follows in the input stream.
The REPRO function statements identify the existing input members (ATTACH and DETACH) to be copied onto the output data set.
These members are also listed in the message data set (because LIST=ALL is specified).
The ADD function statement indicates that records (subsequent data statements) are to be placed as members in the output partitioned data set, called EXIT.
The data statements are to be listed in the message data set.
The NUMBER detail statement assigns sequence numbers to the data statements.
(The data statements contain blank sequence numbers in columns 73 through 80.)
The first record of the output member is assigned sequence number 10; subsequent record numbers are increased by 100.
ENDUP signals the end of SYSIN data.

Note that the three named input members (ATTACH, DETACH, and EXIT) do not have to be specified in the order of their collating sequence in the old master.

SYSUT1 DD define o conjunto de dados particionados de entrada SYS1.MACLIB, que se supõe estar catalogado.
SYSUT2 DD define o conjunto de dados particionados de saída DEV.DRIVER3, NEWMCLIB.
Espaço suficiente é alocado para permitir modificações subsequentes sem criar um novo conjunto de dados mestre.
SYSIN DD define o conjunto de dados de controle, que segue no fluxo de entrada.
As instruções da função REPRO identificam os membros de entrada existentes (ATTACH e DETACH) a serem copiados no conjunto de dados de saída.
Esses membros também são listados no conjunto de dados da mensagem (porque LIST = ALL é especificado).
A instrução da função ADD indica que os registros (instruções de dados subsequentes) devem ser colocados como membros no conjunto de dados particionado de saída, denominado EXIT. As declarações de dados devem ser listadas no conjunto de dados da mensagem.
A instrução de detalhes NUMBER atribui números de sequência às instruções de dados.
(As declarações de dados contêm números de sequência em branco nas colunas 73 a 80.)
O primeiro registro do membro de saída recebe o número de sequência 10; os números de registros subsequentes aumentam em 100.
ENDUP sinaliza o fim dos dados SYSIN.

Observe que os três membros de entrada nomeados (ATTACH, DETACH e EXIT) não precisam ser especificados na ordem de sua sequência de intercalação no mestre antigo.

Parent topic: IEBUPDTE Examples