zOs/TX/QT002REO

//A540769P 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
//*           25.11.13 15:32:05 A540769P 06
//*
//STEP1    EXEC PGM=DSNUTILB,TIME=1440,
//             PARM=(DP4G,'A540769P.UXUTIL'),
//             REGION=0M
//SYSPRINT   DD SYSOUT=*
//*YSPRINT   DD DSN=DSN.JOBRUN.A540769P.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 DA54076X.QT002 PARTLEVEL
---- reorg -------------------------------------------------------------
  REORG TABLESPACE  LIST TPLIST
    LOG NO
    SORTDATA
    COPYDDN(TCOPYD)
    SHRLEVEL CHANGE
                 -- Achtung mapping table zufällig gewählt|
    MAPPINGTABLE S100447.MAPTAB06
    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