zOs/WK/PLANCOSL

//Y4PLANLC JOB (CP00,KE50),'DB2 REO',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//************ load CMNBATCH.ARCHIVE_COST_TABLE******************
//S1       EXEC PGM=DSNUTILB,PARM='DBAF,Y4PLANLC.COSTLO'
//SYSMAP   DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
EXEC SQL
  DECLARE CURCOST CURSOR FOR
    SELECT * FROM CMNBATCH.COST_TABLE
        WITH UR
ENDEXEC
LOAD DATA LOG YES RESUME YES
  SHRLEVEL CHANGE
  SORTDEVT DISK
  WORKDDN(TSYUTS,TSOUTS)
  INCURSOR CURCOST
  INTO TABLE  CMNBATCH.ARCHIVE_COST_TABLE
LISTDEF LST  INCLUDE TABLESPACE DB2PLAN.CMNBATCX
REORG TABLESPACE LIST LST
     LOG NO
     SORTDATA
     COPYDDN(TCOPYD)
     SHRLEVEL CHANGE
     MAPPINGTABLE S100447.MAPTAB03
     MAXRO 300
     DRAIN ALL
     DELAY 1500
     TIMEOUT TERM
     UNLDDN TSRECD
     UNLOAD CONTINUE
     PUNCHDDN TPUNCH
     DISCARDDN TDISCA
     SORTKEYS
     SORTDEVT DISK
     STATISTICS
       INDEX ALL KEYCARD
       REPORT NO UPDATE ALL