zOs/TX/PER26RE3

//A540769R JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2
//*MAIN CLASS=LOG
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DP4G,'A540769T.REORG'),
//   REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DP4G.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
     LISTDEF LST#REO   INCLUDE TABLESPACE QTXDBY.APER26 PARTLEVEL
     REORG TABLESPACE LIST LST#REO
         LOG NO
         SORTDATA
         COPYDDN(TCOPYD)
         SHRLEVEL CHANGE
         MAPPINGTABLE S100447.MAPTAB03
         MAXRO 300
         DRAIN ALL
         DELAY 1500
         TIMEOUT TERM
         UNLOAD CONTINUE
         PUNCHDDN TPUNCH
         DISCARDDN TDISCA
         SORTKEYS
         STATISTICS
           INDEX ALL
             KEYCARD FREQVAL NUMCOLS  1 COUNT 10
                     FREQVAL NUMCOLS  2 COUNT 10
                     FREQVAL NUMCOLS  3 COUNT 10
                     FREQVAL NUMCOLS  4 COUNT 10
                     FREQVAL NUMCOLS  5 COUNT 10
                     FREQVAL NUMCOLS  6 COUNT 10
                     FREQVAL NUMCOLS  7 COUNT 10
                     FREQVAL NUMCOLS  8 COUNT 10
                     FREQVAL NUMCOLS  9 COUNT 10
                     FREQVAL NUMCOLS 10 COUNT 10
           REPORT NO UPDATE ALL