zOs/WK/PLANREO

//Y4PLANRE JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//**AIN CLASS=LOG0                                                      00040000
//REO   EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DBBA,'Y4PLANRE.REORG'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBBA.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
LISTDEF LST       INCLUDE TABLESPACE DB2PLAN.CMNBATC* ALL
                  EXCLUDE TABLESPACE DB2PLAN.CMNBATCH ALL
LISTDEF LSTBASE   INCLUDE LIST LST  BASE
LISTDEF LSTLOB    INCLUDE LIST LST  LOB
REORG TABLESPACE LIST LSTBASE
    LOG NO
    SORTDATA
    COPYDDN(TCOPYD)
    SHRLEVEL CHANGE
    MAPPINGTABLE S100447.MAPTAB03
    MAXRO 300
    DRAIN ALL
    DELAY 1500
    TIMEOUT TERM
    UNLDDN TSRECD
    UNLOAD CONTINUE
    PUNCHDDN TPUNCH
    DISCARDDN TDISCA
    SORTKEYS
    SORTDEVT DISK
    STATISTICS
      INDEX ALL KEYCARD
      REPORT NO UPDATE ALL
REORG TABLESPACE LIST LSTLOB
    SHRLEVEL REFERENCE
    COPYDDN(TCOPYD)
    UNLOAD CONTINUE