zOs/REXX/ELARICLU

//A540769T JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//DDL      EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSTSIN  DD *
    DSN SYSTEM(DVBP)
   RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//***PRINT DD DISP=SHR,DSN=A540769.WK.TEXW(PDBGENNJ)
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSIN    DD * DISP=SHR,DSN=A540769.WK.SQL(PDBGENNJ)
SET CURRENT SQLID = 'S100447';
ALTER INDEX BUA.IPDRW003  NOT CLUSTER ;
ALTER INDEX BUA.IDRWIT001 CLUSTER ;
COMMIT ;
  DROP INDEX BUA.IPDHA007; -- INDEX BUA.IPDHA006 holds all rel. Columns
  COMMIT;
  DROP INDEX BUA.IPDHA008; -- INDEX BUA.IPDHA010 HOLDS ALL REL. COLUMNS
  commit;
  DROP INDEX BUA.IPDHA009; -- INDEX BUA.IPDHA011 HOLDS ALL REL. COLUMNS
  COMMIT;
//STEP1 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 XBDRW001.SIT002 PARTLEVEL
     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