zOs/SQL/GBGRMIKI

//A540769I JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,CLASS=M1,                               00020000
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2ALL                       00030003
//S1       EXEC PGM=DSNUTILB,PARM='DP4G,A540769I.LOAD'                  00020001
//SYSMAP   DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DP4G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
EXEC SQL
DECLARE CURT CURSOR FOR
select
        RZ
      , DBSYS
      , updateStatsTime validBegin
      , value ( ( select e.updateStatsTime
            from oa1p.tqz007GbGrIxHjjj e
            where o.rz = e.rz and o.dbSys = e.dbSys
                and o.dbName = e.dbName and o.ts = e.ts
                and o.indexSpace = e.indexSpace
                and o.partition = e.partition
                and o.instance  = e.instance
                and o.updateStatsTime < e.updateStatsTime
            order by e.updateStatsTime asc
            fetch first 1 row only
        ), '9999-12-30-00.00.00') validEnd
      , LOADTS
      , INDEXTYPE
      , COMPRESS
      , IXPARTS
      , IXPGSZ
      , PIECESIZE
      , PIECEGB
      , LIMGB
      , TBCREATOR
      , TBNAME
      , TS
      , TSTY
      , TSPARTS
      , TSCLONE
      , TSINST
      , TSDSSIZE
      , TSDSGB
      , TSLIMGB
      , TSLIMPART
      , TSPGSZ
      , ORIGSTATSTIME updateStatsTime
      , NLEVELS
      , NPAGES
      , NLEAF
      , NACTIVE
      , SPACE
      , EXTENTS
      , LOADRLASTTIME
      , REBUILDLASTTIME
      , REORGLASTTIME
      , REORGINSERTS
      , REORGDELETES
      , REORGAPPENDINSERT
      , REORGPSEUDODELETES
      , REORGMASSDELETE
      , REORGLEAFNEAR
      , REORGLEAFFAR
      , REORGNUMLEVELS
      , STATSLASTTIME
      , STATSINSERTS
      , STATSDELETES
      , STATSMASSDELETE
      , COPYLASTTIME
      , COPYUPDATEDPAGES
      , COPYCHANGES
      , COPYUPDATELRSN
      , COPYUPDATETIME
      , LASTUSED
      , IBMREQD
      , DBID
      , ISOBID
      , PSID
      , PARTITION
      , INSTANCE
      , TOTALENTRIES
      , DBNAME
      , NAME
      , CREATOR
      , INDEXSPACE
      , REORGINDEXACCESS
      , DRIVETYPE
      , STATS101
    from oa1p.tqz007gbgrIXHjjj o
    where state = 'a'
    --  and rz = 'RR2'
ENDEXEC
LOAD DATA INCURSOR CURT  LOG NO RESUME NO REPLACE
     COPYDDN(TCOPYD) STATISTICS INDEX(ALL)
 SORTDEVT DISK
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1P.TQZ007GBGRIXSTATS
  LISTDEF TPLIST
    INCLUDE TABLESPACE QZ01A1P.A007A PARTLEVEL
---- COPY ----------------------------------------
  COPY LIST TPLIST COPYDDN(TCOPYD)
    FULL YES SCOPE PENDING
    PARALLEL
    SHRLEVEL CHANGE