zOs/JCL/DB2REOOF

//A540769R JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//***************************************************
//*  CREATED BY :  A540769
//*  TIMESTAMP  :  06/20/2006.09.40.21
//*  ENVIRONMENT:  ISPF 5.7MVS     TSO
//*  RELEASE    :  V7.4.02 08/31/2004
//*  DB2 VERSION:  810
//***************************************************
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DBAF,'A540769R.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  CD03A1A.A370A
     REORG TABLESPACE DA540769.A453A
         LOG NO
         SORTDATA
         COPYDDN(TCOPYD)
         SHRLEVEL NONE
    --   MAPPINGTABLE S100447.MAPTAB01
    --   MAXRO 300
    --   DRAIN ALL
    --   DELAY 1500
    --   TIMEOUT TERM
         UNLOAD PAUSE
         WORKDDN(TSYUTD,TSOUTD)
         UNLDDN TSRECD
         PUNCHDDN TPUNCH
         DISCARDDN TDISC
         SORTKEYS
         SORTDEVT DISK
         SORTNUM 160
         STATISTICS
           INDEX ALL
         REPORT NO
           UPDATE ALL