zOs/TX/PER10REO

//A540769R JOB (CP00,KE50),'DB2 ADMIN',                                 00010002
//         TIME=1440,REGION=0M,CLASS=M1,SCHENV=DB2ALL,                  00020004
//         MSGCLASS=T,NOTIFY=&SYSUID                                    00021002
//*
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DP4G,'A540769R.REORG'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DP4G.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
   LISTDEF LST
     INCLUDE TABLESPACE QZ92A1T.APER10 PARTLEVEL
     REORG TABLESPACE LIST LST
         LOG NO
         SORTDATA
         COPYDDN(TCOPYD)
         SHRLEVEL CHANGE
         MAXRO 40
         DRAIN_WAIT  40 RETRY 99 RETRY_DELAY 13  DRAIN WRITERS
             LONGLOG CONTINUE          DELAY 40
         UNLDDN TSRECD
         UNLOAD CONTINUE
         PUNCHDDN TPUNCH
         DISCARDDN TDISC
         SORTKEYS
         SORTDEVT DISK
         STATISTICS
           INDEX ALL KEYCARD
           UPDATE ALL