zOs/SQL/WM005RE

//A540769W JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*MAIN CLASS=LOG0
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DBAF,'A540769W.REORG'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBAF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
     LISTDEF LST#REO
       INCLUDE TABLESPACE  WM01A1A.A005A      PARTLEVEL
 --  REORG TABLESPACE DA540769.A200A03 PART 16 : 20 , 102 :108,111,88:90
     REORG TABLESPACE  LIST LST#REO
         LOG NO
         SORTDATA
         COPYDDN(TCOPYD)
         SHRLEVEL CHANGE
         MAPPINGTABLE S100447.MAPTAB07
         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
     --  SORTNUM  155
         STATISTICS
           INDEX ALL KEYCARD
           UPDATE ALL