zOs/TX/PER22LOA

//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='DVBP,A540769L.LOAD'                  00020001
//SYSMAP   DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DVBP.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
TEMPLATE TSYUTDS  DSN('&SSID..&DB..&SN..P&PART(2)..D&TIME..SYSUT1')
                  DATACLAS(NULL12) MGMTCLAS(COM#E000)
                  SPACE(2000,2000) CYL UNCNT 59

TEMPLATE TSOUTDS  DSN('&SSID..&DB..&SN..P&PART(2)..D&DATE(3)..SRTOUT')
                  DATACLAS(NULL12) MGMTCLAS(COM#E000)
                  SPACE(2000,2000) CYL UNCNT 59
EXEC SQL
     DECLARE CUR1 CURSOR FOR
         SELECT *  FROM SYSIBM.SYSCOLUMNS
         UNION ALL SELECT *  FROM SYSIBM.SYSCOLUMNS
     WITH UR
ENDEXEC
LOAD DATA INCURSOR CUR1  LOG NO  RESUME YES
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTDS,TSOUTDS)
 INTO TABLE  A540769.TPER22CO
COPY TABLESPACE DA540769.APER22CO
    COPYDDN TCOPYD  FULL YES