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.

  //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:

• 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.