zOs/TX/QBDPSREO

//A540769S JOB (CP00,KE50),'DB2 reo',
//             MSGCLASS=T,TIME=1440,SCHENV=DP4G,
//             NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//* ux utility generator reo
//*           who RZ4 DP4G A540769 2
//*           20.02.14 15:11:58 A540769S 09
//*
//STEP1    EXEC PGM=DSNUTILB,TIME=1440,
//             PARM=(DP4G,'A540769S.UXUTIL'),
//             REGION=0M
//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=DP4G.DBAA.LISTDEF(TEMPL)
//INDUMMY    DD DUMMY
//SYSIN      DD *
  LISTDEF TPLIST
    INCLUDE TABLESPACE QTXDBX.ABDPS PARTLEVEL
    INCLUDE TABLESPACE QTXDBY.ABDPS 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