zOs/SQL/GBGRMIGU

//A540769I JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,CLASS=M1,                               00020000
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2ALL                       00030003
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99                       00020001
//SYSTSIN  DD *
    DSN SYSTEM(DP4G)
   RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=* DSN=A540769.TMP.TEXV(GRENZE)
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSINX   DD DISP=SHR,DSN=A540769.WK.SQL(FICDNEW)
//SYSIN    DD *
lock table oa1p.tqz007gbgrIxStats in exclusive mode;
update oa1p.tqz007gbgrIxStats t
    set updateStatsTime = loadTs
    where -- rz = 'RR2' and -- dbSys = 'DP2G' and
      ( select a.loadTS from oa1p.tqz007gbgrIxStats a
          where t.rz  = a.rz and t.dbSys = a.dbSys
            and t.dbName = a.dbName and t.ts   = a.ts
            and t.indexSpace = a.indexSpace
            and t.partition = a.partition and t.instance = a.instance
            and t.updateStatsTime < a.updateStatsTime
          order by a.updateStatsTime asc
          fetch first 1 rows only
      ) <= t.loadTS
;
commit
;
//A540769T JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,CLASS=M1,                               00020000
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2ALL                       00030003
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99                       00020001
//SYSTSIN  DD *
    DSN SYSTEM(DP4G)
   RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=* DSN=A540769.TMP.TEXV(GRENZE)
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSINX   DD DISP=SHR,DSN=A540769.WK.SQL(FICDNEW)
//SYSIN    DD *
lock table oa1p.tqz006gbgrTsStats in exclusive mode;
update oa1p.tqz006gbgrTsStats t
    set updateStatsTime = loadTs
    where -- rz = 'RR2' and -- dbSys = 'DP2G' and
      ( select a.loadTs from oa1p.tqz006gbgrTsStats a
          where t.rz  = a.rz and t.dbSys = a.dbSys
            and t.dbName = a.dbName and t.name = a.name
            and t.partition = a.partition and t.instance = a.instance
            and t.updateStatsTime < a.updateStatsTime
          order by a.updateStatsTime asc
          fetch first 1 rows only
      ) <= t.loadTs
;
commit