zOs/TX/REC01RON

//A540769N JOB (CP00,KE50),'DB2 reo',
//             MSGCLASS=T,TIME=1440,SCHENV=DP4G,
//             NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//* reorg Log=NO, copy=NO
//*
//STEP1    EXEC PGM=DSNUTILB,TIME=1440,
//             PARM=(DP4G,'A540769N.UXUTIL'),
//             REGION=0M
//SYSPRINT   DD SYSOUT=*
//*YSPRINT   DD DSN=DSN.JOBRUN.A540769M.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 QZ92A1T.REC01 PARTLEVEL 0
---- reorg -------------------------------------------------------------
  REORG TABLESPACE  LIST TPLIST
    LOG NO
    SORTDATA
 -- COPYDDN(TCOPYD)
    SHRLEVEL NONE
    UNLDDN TSRECO
    UNLOAD CONTINUE
    PUNCHDDN TPUNCH
    DISCARDDN TDISC
    SORTKEYS
    SORTDEVT DISK
    STATISTICS
      INDEX ALL KEYCARD
      UPDATE ALL