zOs/TX/PER13LOC

//A540769W JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*MAIN CLASS=LOG                                                       00040000
//S1       EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD'                  00020001
//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 CUR1 CURSOR FOR
         SELECT  CZ32301 I1, CZ32313 I2
               , CZ32301 J1, CZ32313 J2
               , CZ32301 K1, CZ32313 K2
               , CZ32301 L1, CZ32313 L2
                           , CZ32313 M2
                           , CZ32313 N2
                           , CZ32313 O2
         FROM CHSKA000DBTF.OA1T.TCZ323A1
         WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR1  LOG NO  RESUME NO REPLACE COPYDDN(TCOPYD)
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 STATISTICS INDEX(ALL KEYCARD)
 INTO TABLE  A540769.TPER13