zOs/JCL/ELARADPA

//Y540769E  JOB (CP00,KE50),                                            00010001
//         MSGCLASS=T,TIME=1440,
//         RESTART=REORG,
//         NOTIFY=A540769
//*MAIN CLASS=LOG
//SQL      EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99                       00020001
//SYSTSIN  DD *
    DSN SYSTEM(DVBP)
   RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSIN    DD *     DISP=SHR,DSN=A540769.WK.SQL(TNI250G)
set current sqlid = 'S100447';
alter table BUA.XBEHL001IT002001
    add partition ending at (7) ;
commit;
//   IF RC <= 4 THEN
//REORG EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DVBP,'A540769T.REORG'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DVBP.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
     LISTDEF LST#REO
         INCLUDE TABLESPACE XBEHL001.SIT002 PARTLEVEL(7)
     REORG TABLESPACE LIST LST#REO
         LOG NO
         SORTDATA
         COPYDDN(TCOPYD)
         SHRLEVEL CHANGE
         MAPPINGTABLE S100447.MAPTAB03
         MAXRO 1000
         DRAIN ALL
         DELAY  300
         TIMEOUT TERM
         UNLOAD CONTINUE
         PUNCHDDN TPUNCH
         DISCARDDN TDISCA
         NOSYSREC
         SORTKEYS
         SORTDEVT DISK
         SORTNUM 160
         STATISTICS
           INDEX ALL
         REPORT NO
           UPDATE ALL
//   ENDIF