zOs/TX/MFNVTR2O

//YMFNVR2O JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//*
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
//   PARM=(DBZF,'YMFNVR2O.REORG'),
//   REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBZF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
     REORG TABLESPACE MF01$.$2A150A PART 1 : 100
         LOG NO
         SORTDATA
         COPYDDN(TCOPYD)
         SHRLEVEL CHANGE
         MAPPINGTABLE S100447.MAPTAB03
         MAXRO 300
         DRAIN ALL
         DELAY 1500
         TIMEOUT TERM
         UNLOAD CONTINUE
         PUNCHDDN TPUNCH
         SORTKEYS
         SORTDEVT DISK
         SORTNUM 160
         STATISTICS
           INDEX ALL
         REPORT NO
           UPDATE ALL
         DISCARD DISCARDDN TDISC
         FROM TABLE OA1Z.$2TMF150A1
             WHEN (MF150060 >= '2010-04-07-23.00.00.000000')