|
In this example, two procedures are to be placed in the cataloged procedure library, SYS1.PROCLIB.
The example assumes that the two procedures can be accommodated within the space originally allocated to the procedure library.
Neste exemplo, dois procedimentos devem ser colocados na biblioteca de procedimentos catalogados, SYS1.PROCLIB.
O exemplo assume que os dois procedimentos podem ser acomodados dentro do espaço originalmente alocado para a biblioteca de procedimentos.
//UPDATE JOB ...
//STEP1 EXEC PGM=IEBUPDTE,PARM=MOD
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSNAME=SYS1.PROCLIB,DISP=OLD
//SYSUT2 DD DSNAME=SYS1.PROCLIB,DISP=OLD
//SYSIN DD DATA
./ ADD LIST=ALL,NAME=ERASE,LEVEL=01,SOURCE=0
./ NUMBER NEW1=10,INCR=10
//ERASE EXEC PGM=IEBUPDTE
//DD1 DD UNIT=disk,DISP=(OLD,KEEP),VOLUME=SER=111111
//SYSPRINT DD SYSOUT=A
./ REPL LIST=ALL,NAME=LISTPROC
./ NUMBER NEW1=10,INCR=10
//LIST EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DISP=SHR,DSN=SYS1.PROCLIB(&MEMBER)
//SYSUT2 DD SYSOUT=A,DCB=(RECFM=F,BLKSIZE=80)
//SYSIN DD DATA
./ ENDUP
/*
The control statements are as follows:
As declarações de controle são as seguintes:
- SYSUT1 and SYSUT2 DD define the SYS1.PROCLIB data set, which is assumed to be cataloged.
- SYSIN DD defines the control data set, which follows in the input stream.
The data set contains the utility control statements and the data to be placed in the procedure library.
- The ADD function statement indicates that records (data statements) in the control data set are to be placed in the output.
The newly created procedure, ERASE, is listed in the message data set.
The ADD function will not take place if a member named ERASE already exists in the new master data set referenced by SYSUT2.
- The first NUMBER detail statement indicates that the new and replacement procedures are to be assigned sequence numbers.
The first record of each procedure is assigned sequence number 10; the next record is assigned sequence number 20, and so on.
- The ERASE EXEC statement marks the beginning of the first new procedure.
- The REPL function statement indicates that records (data statements) in the control data set are to replace an already existing member.
The member is stored in the new master data set referenced by SYSUT2.
The REPL function will only take place if a member named LISTPROC already exists in the old master data set referenced by SYSUT1.
- The second NUMBER detail statement is a duplicate of the first.
- The LIST EXEC statement marks the beginning of the second new procedure.
- The ENDUP statement marks the end of the SYSIN DD input data.
- SYSUT1 e SYSUT2 DD definem o conjunto de dados SYS1.PROCLIB, que é considerado catalogado.
- SYSIN DD define o conjunto de dados de controle, que segue no fluxo de entrada.
O conjunto de dados contém as instruções de controle do utilitário e os dados a serem colocados na biblioteca de procedimentos.
- A declaração da função ADD indica que os registros (declarações de dados) no conjunto de dados de controle devem ser colocados na saída.
O procedimento recém-criado, ERASE, é listado no conjunto de dados da mensagem.
A função ADD não ocorrerá se um membro denominado ERASE já existir no novo conjunto de dados mestre referenciado por SYSUT2.
- A primeira declaração de detalhes NUMBER indica que os procedimentos novos e de substituição devem receber números de sequência.
O primeiro registro de cada procedimento recebe o número de seqüência 10; o próximo registro recebe o número de sequência 20 e assim por diante.
- A instrução ERASE EXEC marca o início do primeiro novo procedimento.
- A instrução da função REPL indica que os registros (instruções de dados) no conjunto de dados de controle devem substituir um membro já
existente.
O membro é armazenado no novo conjunto de dados mestre referenciado por SYSUT2.
A função REPL só ocorrerá se um membro denominado LISTPROC já existir no antigo conjunto de dados mestre referenciado por SYSUT1.
- A segunda declaração de detalhes de NUMBER é uma duplicata da primeira.
- A instrução LIST EXEC marca o início do segundo novo procedimento.
- A instrução ENDUP marca o fim dos dados de entrada SYSIN DD.
Parent topic: IEBUPDTE Examples
© Copyright IBM Corp.
|
