zOs/SQL/GBGRHILO

//A540769T 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,A540769T.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 * from oa1p.tqz006gbgrTSStats
ENDEXEC
LOAD DATA INCURSOR CURT  LOG NO RESUME NO REPLACE
     COPYDDN(TCOPYD) STATISTICS INDEX(ALL)
 SORTDEVT DISK
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1P.TQZ006GBGRTSHJJJ
//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 CURI CURSOR FOR
  select * from oa1p.tqz007gbgrIXStats
ENDEXEC
LOAD DATA INCURSOR CURI  LOG NO RESUME NO REPLACE
     COPYDDN(TCOPYD) STATISTICS INDEX(ALL)
 SORTDEVT DISK
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE  OA1P.TQZ007GBGRIXHJJJ