zOs/JCL/DB2REOMU

//QRXYZZZP JOB (PD00,KE50,,SP00000000),
//             'DB2',
//             MSGCLASS=E,
//             TIME=1440
//*MAIN CLASS=DBOF
//*
//*     Muster für produktiven Reorg job mit inline Statistics
//*          CtrlKarten sind inline ===>>> dbof.dbaa.listdef/lctl
//*          JobNamen QRXYZZZ Anpassen
//*          Db EL01A1P und Ts Namen Anpassen
//*          mapping Table bei kidi63 bestellen
//*
//****** reorg für tablespaces ausführen
//SREO     EXEC PGM=DSNUTILB,
//             PARM='DBOF,QRXYZZZP.REORG'
//STEPLIB    DD  DSN=DB2@.RZ2.P0.DSNLOAD,DISP=SHR
//SYSPRINT   DD  SYSOUT=*
//UTPRINT    DD  SYSOUT=*
//SYSUDUMP   DD  SYSOUT=*
//SYSTEMPL   DD  DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN      DD  *   ===>>> DSN=DBOF.DBAA.LISTDEF(QRXYZZZ1),DISP=SHR
 LISTDEF LST
  INCLUDE TABLESPACE EL01A1P.A831C4 PARTLEVEL

REORG TABLESPACE LIST LST
         LOG NO
         SORTDATA NOSYSREC SORTKEYS
         COPYDDN(TCOPYD)
         SHRLEVEL CHANGE
         DRAIN_WAIT 40
           RETRY 20
           RETRY_DELAY 180
         MAPPINGTABLE S100447.QRXYZZZP
           MAXRO 40
           DRAIN WRITERS
           LONGLOG CONTINUE
           TIMEOUT TERM
         UNLDDN(TSRECD)
         WORKDDN(TSYUTD,TSOUTD)
         SORTDEVT DISK
  --     SORTNUM 24
         STATISTICS
           INDEX ALL KEYCARD
           UPDATE ALL REPORT NO HISTORY NONE FORCEROLLUP NO
// IF ABEND OR RC GT 4 THEN
//****** display DB and term utility
//STERM    EXEC PGM=IKJEFT01
//SYSTSPRT   DD SYSOUT=*
//SYSPRINT   DD SYSOUT=*
//SYSTSIN    DD *  ===>>> DSN=DBOF.DBAA.LCTL(QRXYZZZ2),DISP=SHR
 DSN S(DBOF)
   -DIS DB(EL01A1P) SP(*) LOCKS    ONLY LIMIT(*)
   -DIS DB(EL01A1P) SP(*) CLAIMERS ONLY LIMIT(*)
   -DIS DB(EL01A1P) SP(*) USE      ONLY LIMIT(*)
   -TERM UTIL(QRXYZZZP.*)
 END
// ENDIF