zOs/JCL/QZCDPUTR

//A540769S JOB (CP00,KE50),'DB2 reo',
//             MSGCLASS=T,TIME=1440,SCHENV=DBOF,
//             NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//* ux utility generator reo
//*           who RR2 DBOF A540769 2
//*           16.07.14 15:22:38 A540769S 09
//*
//STEP1    EXEC PGM=DSNUTILB,TIME=1440,
//             PARM=(DBOF,'A540769S.UXUTIL'),
//             REGION=0M
//DDL        DD *
set current sqlid = 'S100447';
alter tablespace CD03A1P.A150A compress yes;
alter tablespace CD03A1P.A152A compress yes;
commit;
set current sqlid = 'S100447';
 drop                 INDEX OA1$.ICD150A$1;
 commit;
 CREATE               INDEX OA1$.ICD150A$1
        ON OA1P.TCD150A1
       (CD150001 ASC
       ,CD150002 ASC
       ,CD150003 ASC
       ,CD150005 ASC
       ,CD150006 ASC
       ,CD150011 ASC
       )
        not CLUSTER
        DEFINE yes
        COMPRESS NO
        BUFFERPOOL BP3
        CLOSE YES
        DEFER yes
        COPY NO
        USING STOGROUP "GSMS    "
            PRIQTY -1
            SECQTY -1
            ERASE NO
        FREEPAGE 10
        PCTFREE 10
        GBPCACHE CHANGED
        PIECESIZE 2097152K;
commit;
//SYSPRINT   DD SYSOUT=*
//*YSPRINT   DD DSN=DSN.JOBRUN.A540769S.STEP1.#DT#,
//*            DISP=(NEW,CATLG,CATLG),MGMTCLAS=BAT#NW,DSNTYPE=LARGE,
//*            DCB=(RECFM=FB,LRECL=132,DSORG=PS),SPACE=(CYL,(1,1000))
//SYSUDUMP   DD SYSOUT=*
//UTPRINT    DD SYSOUT=*
//SYSTEMPL   DD DISP=SHR,DSN=DBOF.DBAA.LISTDEF(TEMPL)
//INDUMMY    DD DUMMY
//SYSIN      DD *
  LISTDEF TPLIST
    INCLUDE TABLESPACE CD03A1P.A150A PARTLEVEL
    INCLUDE TABLESPACE CD03A1P.A152A PARTLEVEL
---- reorg -------------------------------------------------------------
  REORG TABLESPACE  LIST TPLIST
    LOG NO
    SORTDATA
    COPYDDN(TCOPYD)
    SHRLEVEL CHANGE
                 -- Achtung mapping table zufällig gewählt|
    MAPPINGTABLE S100447.MAPTAB09
    DRAIN_WAIT 40
      RETRY 20
      RETRY_DELAY 180
      MAXRO 40
      DRAIN WRITERS
      LONGLOG CONTINUE
      DELAY 1200
      TIMEOUT TERM
    UNLDDN TSRECD
    UNLOAD CONTINUE
    PUNCHDDN TPUNCH
    DISCARDDN TDISC
    SORTKEYS
    SORTDEVT DISK
    STATISTICS
      INDEX ALL KEYCARD
      UPDATE ALL