zOs/JCL/KEM4000P

//KEM4000P JOB (PD00,KE50,,SP00000000),'DB2',
//             MSGCLASS=E,TIME=1440
//*MAIN CLASS=SUBP2
//*
//* REORG DISCARD FÜR TABLESPACE AUSFÜHREN
//*
//P05     EXEC PGM=DSNUTILB,
//             PARM='DBOF,KEM4000P.REORG'
//STEPLIB  DD  DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//SYSPRINT DD  SYSOUT=*
//UTPRINT  DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSTEMPL DD  DISP=SHR,DSN=DBOF.DBAA.LISTDEF(TEMPL)
//ARCHPUN   DD DSN=TSS.SKA.PF22.KEM4000P.UNLOA.P.#DT#,
//             DISP=(NEW,CATLG,CATLG),
//             SPACE=(TRK,(1,1),RLSE),
//             MGMTCLAS=BAT#ZJ,DATACLAS=EYN0XP
//ARCHIVE   DD DSN=TSS.SKA.PF22.KEM4000P.UNLOA.W.#DT#,
//             DISP=(NEW,CATLG,CATLG),
//             MGMTCLAS=BAT#ZJ,DATACLAS=EYN0XP,
//             SPACE=(CYL,(2000,2000),RLSE)
//*            DCB=(BLKSIZE=8192),
//SYSIN    DD  *
 COPY  TABLESPACE KS09A1P.A841H
         COPYDDN(TCOPYD)
         SHRLEVEL REFERENCE

 REORG TABLESPACE KS09A1P.A841H
         LOG NO
         SORTDATA NOSYSREC SORTKEYS
         COPYDDN(TCOPYD)
         SHRLEVEL CHANGE
         DRAIN_WAIT 0
           RETRY 0
           RETRY_DELAY 300
         MAPPINGTABLE S100447.KEM4000P
           MAXRO 300
           DRAIN WRITERS
           LONGLOG CONTINUE
           DELAY 1200
           TIMEOUT TERM
         UNLDDN(TSRECD)
         WORKDDN(TSYUTD,TSOUTD)
         STATISTICS
           INDEX ALL
             KEYCARD
             REPORT NO
             UPDATE ALL
             HISTORY NONE
             FORCEROLLUP NO
         PUNCHDDN  ARCHPUN
         DISCARDDN ARCHIVE
         DISCARD NOPAD FROM TABLE OA1P.TKS841H1 WHEN
            (KS841001 < CURRENT DATE - 3 MONTHS)
//*
// IF ((ABEND) OR (P05.RC GT 4) ) THEN
//*
//* TERM UTIL
//*
//P08     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSTSIN   DD *
 DSN S(DBOF)
   -TERM UTIL(KEM4000P.*)
 END
//*
//* DISPLAY DATABASE
//*
//P09     EXEC PGM=IKJEFT01
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSTSIN   DD *
 DSN S(DBOF)
   -DIS DB(KS09A1P) SP(A841H) LOCKS    LIMIT(*)
   -DIS DB(KS09A1P) SP(A841H) CLAIMERS LIMIT(*)
   -DIS DB(KS09A1P) SP(A841H) USE      LIMIT(*)
 END
// ENDIF