zOs/SQL/PLANCLE7

//A540769R JOB (CP00,KE50),'DB2 REO',
//         MSGCLASS=T,TIME=1440,CLASS=M1,
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2ALL
//ALTER    EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSTSIN    DD *
    DSN SYSTEM(DE0G)
    RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT   DD SYSOUT=*
//SYSPRINT   DD SYSOUT=* DSN=A540769.TMP.TEXV(GRENZE)
//SYSUDUMP   DD SYSOUT=*
//SYSTERM    DD DUMMY
//SYSIN      DD *
alter index cmnbatch.PLAN_TABLE_IDX1 not cluster;
alter index cmnbatch.PLAN_TABLE_PROG_IX cluster;
//       IF ALTER.RUN AND ALTER.RC = 0 THEN
//REO      EXEC PGM=DSNUTILB,TIME=1440,
//             PARM=(DE0G,'A540769R.REORG'),
//             REGION=0M
//SYSPRINT   DD SYSOUT=*
//*YSPRINT   DD DSN=DSN.JOBRUN.A540769V.STEP1.#DT#,
//*            DISP=(NEW,CATLG,CATLG),MGMTCLAS=BAT#NW,DSNTYPE=LARGE,
//*            DCB=(RECFM=FB,LRECL=132,DSORG=PS),SPACE=(CYL,(1,1000))
//SYSUDUMP   DD SYSOUT=*
//SYSTEMPL   DD DISP=SHR,DSN=DE0G.DBAA.LISTDEF(TEMPL)
//UTPRINT    DD SYSOUT=*
//RNPRIN01   DD SYSOUT=*
//STPRIN01   DD SYSOUT=*
//INDUMMY    DD DUMMY
//SYSIN      DD *
-- OPTIONS PREVIEW
  LISTDEF TPLIST
    INCLUDE TABLE CMNBATCH.PLAN_TABLE PARTLEVEL
---- reorg -------------------------------------------------------------
  REORG TABLESPACE  LIST TPLIST
    LOG NO
    SORTDATA
    COPYDDN(TCOPYD)
    SHRLEVEL CHANGE
    DRAIN_WAIT 20
      RETRY 20
      RETRY_DELAY 180
      MAXRO 20
      DRAIN ALL
      LONGLOG CONTINUE
      DELAY 600
      TIMEOUT TERM
    UNLDDN TSRECD
    UNLOAD CONTINUE
    PUNCHDDN TPUNCH
    DISCARDDN TDISC
    SORTKEYS
    SORTDEVT DISK
    STATISTICS
      INDEX ALL KEYCARD
      UPDATE ALL
//       ENDIF