zOs/SQL/XC200REO
$#@
$>.fSub()
$@=[
$=parts=300
$=stp =10
//A540769W JOB (CP00,KE50),'DB2 REO',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBTF,'A540769W.REORG'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBTF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
$@do px=1 to $parts by $stp $@=[
$=tx=- min($parts,$px+$stp-1)
REORG TABLESPACE XC01A1T.A200A07 PART($px : $tx)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
$]
$]
$#out 20110411 11:19:56
$#out 20110411 11:18:21
//A540769W JOB (CP00,KE50),'DB2 REO',
// MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=LOG
//STEP1 EXEC PGM=DSNUTILB,TIME=1440,
// PARM=(DBTF,'A540769W.REORG'),
// REGION=0M
//DSSPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DISP=SHR,DSN=DBTF.DBAA.LISTDEF(TEMPL)
//SYSIN DD *
REORG TABLESPACE XC01A1T.A200A07 PART(1 : 10)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(11 : 20)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(21 : 30)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(31 : 40)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(41 : 50)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(51 : 60)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(61 : 70)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(71 : 80)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(81 : 90)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(91 : 100)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(101 : 110)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(111 : 120)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(121 : 130)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(131 : 140)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(141 : 150)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(151 : 160)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(161 : 170)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(171 : 180)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(181 : 190)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(191 : 200)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(201 : 210)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(211 : 220)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(221 : 230)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(231 : 240)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(241 : 250)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(251 : 260)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(261 : 270)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(271 : 280)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(281 : 290)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
REORG TABLESPACE XC01A1T.A200A07 PART(291 : 300)
LOG NO
SORTDATA
COPYDDN(TCOPYD)
SHRLEVEL CHANGE
MAPPINGTABLE S100447.MAPTAB07
MAXRO 300
DRAIN ALL
DELAY 1500
TIMEOUT TERM
UNLDDN TSRECD
UNLOAD CONTINUE
PUNCHDDN TPUNCH
DISCARDDN TDISC
SORTKEYS
SORTDEVT DISK
-- SORTNUM 155
STATISTICS
INDEX ALL KEYCARD
UPDATE ALL
$#out