zOs/JCL/DB2REOQU

//A540769S JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//*  REORG DSN_QUERY_TABLE UND DSN_QUERY_AUX
//*      UM DEN RIESIGEN PLATZ WIEDER FREIZUKRIEGEN
//*
//*  VORHER LÖSCHEN MIT WK.REXX(QUERYDEL)
//*
//***************************************************
//REOQU EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DBTF,'A540769S.REORG'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBTF.DBAA.LISTDEF(TEMPL)
//SYSIN  DD *
 --  LISTDEF LST#REO   INCLUDE TABLESPACE DB2PLAN.S100447S
 --                    INCLUDE TABLESPACE DB2PLAN.S100447X
 --  COPY LIST LST#REO COPYDDN TCOPYD SHRLEVEL REFERENCE
     REORG TABLESPACE DB2PLAN.CMNBATCS
         LOG NO
         SORTDATA
         COPYDDN(TCOPYD)
         SHRLEVEL CHANGE
         MAPPINGTABLE S100447.MAPTAB02
         MAXRO 300
         DRAIN ALL
         DELAY 1500
         TIMEOUT TERM
         UNLOAD CONTINUE
         WORKDDN(TSYUTD,TSOUTD)
         SORTKEYS
         SORTDEVT DISK
         SORTNUM 160
         STATISTICS
           INDEX ALL
         REPORT NO
           UPDATE ALL
     REORG TABLESPACE DB2PLAN.CMNBATCX
         LOG NO
         SORTDATA
         COPYDDN(TCOPYD)
         SHRLEVEL REFERENCE
         UNLOAD CONTINUE
         WORKDDN(TSYUTD,TSOUTD)
     RUNSTATS TABLESPACE DB2PLAN.CMNBATCX
           INDEX ALL
         REPORT NO
           UPDATE ALL
         SHRLEVEL CHANGE