IBM Mainframe Forum

//A       EXEC PGM=IEBUPDTE
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  DISP=SHR,DSN=xxx
//SYSUT2   DD  DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(3,1)),
//             DCB=(RECFM=FB,LRECL=80,DSORG=PS)
//SYSIN    DD  *
./ CHANGE NAME=LISTPDIR,NEW=PS
./ NUMBER INSERT=YES,SEQ1=16800000,NEW1=16850000,INCR=50000
         JZ    OPENUT1             BR IF OK
         WTO   'LPD001E UNABLE TO OPEN SYSPRINT!',ROUTCDE=11,DESC=7
         SETCC RC,20               SET THE RETURN CODE
         J     EXIT                AND EXIT
OPENUT1  LA    1,OPARM2            LOAD ADDR OF THE OPEN PARM LIST
./ DELETE SEQ1=16900000,SEQ2=17100000
//B       EXEC PGM=ASMA90,PARM='OBJECT,NODECK,XREF(SHORT),NORLD',
//             COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//SYSLIB   DD  DISP=SHR,DSN=SYS1.MODGEN
//         DD  DISP=SHR,DSN=SYS1.MACLIB
//SYSLIN   DD  DISP=(,PASS),UNIT=SYSDA,SPACE=(TRK,(3,2)),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//SYSIN    DD  DISP=(OLD,DELETE),DSN=*.A.SYSUT2

//*--- ADD MEMBER ---
//NEWPDS   EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSOUD   DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSUT2   DD DSN=TSOID00.SPF1.SPUFI,DISP=SHR
//SYSIN    DD *
./ ADD NAME=TESTMEM,LIST=ALL
DATA LINE 1 NEW
DATA LINE 2 NEW
DATA LINE 3 NEW
DATA LINE 4 NEW
DATA LINE 5 NEW
./ ENDUP
/*
//


//* *** - ADD MEMBER ABOVE FIRST, THEN UPDATE MEMBER BELOW
//*--- REPLACE MEMBER ---
//MODPDS   EXEC PGM=IEBUPDTE,PARM=MOD
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSOUD   DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSUT1   DD DSN=TSOID00.SPF1.SPUFI,DISP=OLD     < MUST BE OLD
//SYSUT2   DD DSN=TSOID00.SPF1.SPUFI,DISP=MOD     < MUST BE MOD
//SYSIN    DD *
./ REPL NAME=TESTMEM,LIST=ALL
DATA LINE 1 MOD <===
DATA LINE 2 MOD
DATA LINE 3 MOD
DATA LINE 4 MOD
DATA LINE 5 MOD
./ ENDUP
/*
//