zOs/JCL/CMN

//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.REORG'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBOC.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
TEMPLATE TCOPYD   DSN('&SSID..&DB..&SN..P&PART(3)..&UNIQ.')
                  DATACLAS (NULL30) MGMTCLAS(COM#A011)
                  SPACE (10,250) CYL

     TEMPLATE TDISCA
          DSN('DSN.&SSID..&DB..&SN..D&DATE(3)..T&TIME..DISC')
                       DATACLAS (NULL30) MGMTCLAS(COM#A031)
                       SPACE (10,250) CYL
     TEMPLATE TPUNCH
          DSN('DSN.&SSID..&DB..&SN..D&DATE(3)..T&TIME..PUNC')
                       DATACLAS (NULL30) MGMTCLAS(COM#A031)
                       SPACE (1,2) CYL

--  CMNRLSCIM          SSXX28QT T DCMNT    SCMNTE21
     COPY TABLESPACE DCMNT.SCMNTE21 FULL YES
         COPYDDN(TCOPYD) SHRLEVEL CHANGE

     QUIESCE TABLESPACE DCMNT.SCMNTE21

     REORG TABLESPACE DCMNT.SCMNTE21
         LOG NO
         SORTDATA
         COPYDDN(TCOPYD)
         SHRLEVEL CHANGE
         MAPPINGTABLE S100447.CMNBATCH
         MAXRO 300
         DRAIN ALL
         DELAY 1500
         TIMEOUT TERM
         UNLOAD CONTINUE
         WORKDDN(TSYUTD,TSOUTD)
         PUNCHDDN TPUNCH
         DISCARDDN TDISCA
         SORTKEYS
         SORTDEVT DISK
         SORTNUM 60
         STATISTICS
           INDEX ALL
         REPORT NO
           UPDATE ALL
      DISCARD FROM TABLE (SSXX28QT.CMNRLSCIM)
      WHEN (TXT_RELEASE IN ('Z0608300'))
//
-----------
//* THIS JOB WILL REORGANISE THE DB2 TABLES WHILE AT THE SAME
//* TIME DISCARDING ROWS FOR THE RELEASE BEEING ARCHIVED.
//*
//* SSSS               DB2 SUBSYSTEM ID
//* DATABASE           DATABASE WHERE THE AUDIT TABLES ARE DEFINED
//* TBLSPACENN (01-11) TABLESPACE NAMES FOR THE AUDIT TABLES
//* CMNX               TARGET CHANGEMAN SUBSYSTEM
//* TRELEASE           TARGET RELEASE AND
//*                    AFTER THIS REORG.
//REORG  EXEC DSNUPROC,
//          UTPROC='',
//          UID='EROARCH0RERG',
//          SYSTEM='DBOC'
//*
//UTPRINT  DD SYSOUT=*
//SORTWK01 DD DSN=&WORK01,DISP=(,DELETE,DELETE),
//            UNIT=SYSDA,SPACE=(CYL,(50,1000))
//SORTWK02 DD DSN=&WORK02,DISP=(,DELETE,DELETE),
//            UNIT=SYSDA,SPACE=(CYL,(50,1000))
//WORK     DD DSN=&WORK,DISP=(,DELETE,DELETE),
//            UNIT=SYSDA,SPACE=(CYL,(50,1000))
//SORTOUT  DD DSN=&SORTOUT,DISP=(,DELETE,DELETE),
//            UNIT=SYSDA,SPACE=(CYL,(50,1000))
//SYSPUNCH DD DSN=&PUNCH,DISP=(,DELETE,DELETE),
//            UNIT=SYSDA,SPACE=(TRK,(1,1))
//SYSTEMPL DD DISP=SHR,DSN=DBOC.DBAA.LISTDEF(TEMPL)
//SYSIN  DD *
REORG TABLESPACE (DCMN.SCMN0E01)
      LOG NO
      SHRLEVEL CHANGE
      WORKDDN(WORK) COPYDDN(TCOPYD)
      DISCARD FROM TABLE (SSXX28Q0.CMNDIRSRC)
      WHEN (TXT_RELEASE = 'Z0608300')