zOs/JCL/PO01LOA

//A540769D  JOB (CP00,KE50),                                            00010001
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=A540769
//*MAIN CLASS=LOG        SYSTEM=S12
//LOA      EXEC PGM=DSNUTILB,PARM='DBTF,A540769L.LOAD'                  00020001
//SYSMAP   DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
EXEC SQL
     DECLARE CUR1 CURSOR FOR
         SELECT *
         FROM CHSKA000DBZF.OA1Z.TPO001A1
ENDEXEC
LOAD DATA INCURSOR CUR1  LOG NO  RESUME NO REPLACE COPYDDN(TCOPYD)
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS ,TSOUTS )
 STATISTICS INDEX(ALL) UPDATE(ALL)
 INTO TABLE  F540769$.TPO001A1
EXEC SQL
     DECLARE CUR2 CURSOR FOR
         SELECT *
         FROM CHSKA000DBZF.OA1Z.TPO002A1
ENDEXEC
LOAD DATA INCURSOR CUR2  LOG NO  RESUME NO REPLACE COPYDDN(TCOPYD)
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS ,TSOUTS )
 STATISTICS INDEX(ALL) UPDATE(ALL)
 INTO TABLE  F540769$.TPO002A1
EXEC SQL
     DECLARE CUR3 CURSOR FOR
         SELECT *
         FROM CHSKA000DBZF.OA1Z.TPO003A1
ENDEXEC
LOAD DATA INCURSOR CUR3  LOG NO  RESUME NO REPLACE COPYDDN(TCOPYD)
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS ,TSOUTS )
 STATISTICS INDEX(ALL) UPDATE(ALL)
 INTO TABLE  F540769$.TPO003A1
EXEC SQL
     DECLARE CUR4 CURSOR FOR
         SELECT *
         FROM CHSKA000DBZF.OA1Z.TPO004A1
ENDEXEC
LOAD DATA INCURSOR CUR4  LOG NO  RESUME NO REPLACE COPYDDN(TCOPYD)
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS ,TSOUTS )
 STATISTICS INDEX(ALL) UPDATE(ALL)
 INTO TABLE  F540769$.TPO004A1
EXEC SQL
     DECLARE CUR5 CURSOR FOR
         SELECT *
         FROM CHSKA000DBZF.OA1Z.TPO005A1
ENDEXEC
LOAD DATA INCURSOR CUR5  LOG NO  RESUME NO REPLACE COPYDDN(TCOPYD)
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS ,TSOUTS )
 STATISTICS INDEX(ALL) UPDATE(ALL)
 INTO TABLE  F540769$.TPO005A1
EXEC SQL
     DECLARE CUR6 CURSOR FOR
         SELECT *
         FROM CHSKA000DBZF.OA1Z.TPO006A1
ENDEXEC
LOAD DATA INCURSOR CUR6  LOG NO  RESUME NO REPLACE COPYDDN(TCOPYD)
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS ,TSOUTS )
 STATISTICS INDEX(ALL) UPDATE(ALL)
 INTO TABLE  F540769$.TPO006A1