zOs/JCL/DB2REONZ

//A540769N JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*MAIN CLASS=LOG0
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DBTF,'A540749N.REORG'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBTF.DBAA.LISTDEF(TEMPL)
//SYXXX DD *
tb  OA1T.TNI618A101A               ts NI02A1T.A618A              *dbtf
tb  OA1T.TNI675A101A               ts NI02A1T.A675A              *dbtf
tb  OA1T.TNI676A101A               ts NI02A1T.A676A              *dbtf
tb  OA1T.TNI677A101A               ts NI02A1T.A677A              *dbtf
tb  OA1T.TNI681A101A               ts NI02A1T.A681A              *dbtf
tb  OA1T.TNI681B101A               ts NI02A1T.A681B              *dbtf
tb  OA1T.TNI682A101A               ts NI02A1T.A682A              *dbtf
tb  OA1T.TNI682B101A               ts NI02A1T.A682B              *dbtf
//SYSIN DD *
     LISTDEF LST#REO
       INCLUDE TABLESPACE          NI02A1T.A618A  PARTLEVEL
       INCLUDE TABLESPACE          NI02A1T.A675A  PARTLEVEL
       INCLUDE TABLESPACE          NI02A1T.A676A  PARTLEVEL
       INCLUDE TABLESPACE          NI02A1T.A677A  PARTLEVEL
       INCLUDE TABLESPACE          NI02A1T.A681A  PARTLEVEL
       INCLUDE TABLESPACE          NI02A1T.A681B  PARTLEVEL
       INCLUDE TABLESPACE          NI02A1T.A682A  PARTLEVEL
       INCLUDE TABLESPACE          NI02A1T.A682B  PARTLEVEL

 --  REORG TABLESPACE DA540769.A200A03 PART 16 : 20 , 102 :108,111,88:90
     REORG TABLESPACE  LIST LST#REO
         LOG NO
         SORTDATA
         COPYDDN(TCOPYD)
         SHRLEVEL CHANGE
         MAPPINGTABLE S100447.MAPTAB05
         DRAIN_WAIT 40
           RETRY 20
           RETRY_DELAY 180
           MAXRO 40
           DRAIN WRITERS
           LONGLOG CONTINUE
           DELAY 1200
           TIMEOUT TERM
         UNLDDN TSRECD
         UNLOAD CONTINUE
         PUNCHDDN TPUNCH
         DISCARDDN TDISC
         SORTKEYS
         SORTDEVT DISK
     --  SORTNUM  155
         STATISTICS
           INDEX ALL KEYCARD
           UPDATE ALL