zOs/JCL/DB2REODI

//A540769S 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=(DBOC,'A540769S.REODIS'),
//   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 *                   -- aus lctl library
     LISTDEF LST INCLUDE TABLESPACE NI04A1T.A301A03 PARTLEVEL
     COPY LIST LST COPYDDN TCOPYD PARALLEL SHRLEVEL REFERENCE
     REORG TABLESPACE NI04A1T.A301A03
         LOG NO
         SORTDATA
         COPYDDN(TCOPYD)
         SHRLEVEL NONE
         UNLOAD CONTINUE
         WORKDDN(TSYUTD,TSOUTD)
         SORTKEYS
         SORTDEVT DISK
         STATISTICS
           INDEX ALL KEYCARD
         REPORT NO
           UPDATE ALL
         UNLDDN    TSRECD
         DISCARDDN TDISC
         PUNCHDDN TPUNCH
             DISCARD FROM TABLE OA1T.TNI301A103A
                  WHEN ( BOOKFLAG = 'Y' )