zOs/TX/QBXC5LOA

//A540769L JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2                          00030003
//*MAIN CLASS=LOG0                                                      00040003
//S1       EXEC PGM=DSNUTILB,PARM='DP4G,A540769L.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 CUR1 CURSOR FOR
         SELECT '001' XC502_PART_NUMBER
               , LEFT(NAME, 30) XC502_DOC_UUID
               , 'FOR' XC502_DOC_FORMAT
               , ROW_NUMBER() OVER() + 4E6 XC502_DOC_CONTENT_SEQ
               , CREATOR || NAME           XC502_DOC_CONTENT
             FROM SYSIBM.SYSTables where 1 = 0
             FETCH FIRST 1000 ROWS ONLY
ENDEXEC
LOAD
 SORTDEVT DISK
 WORKDDN(TSYUTS,TSOUTS)
 LOG YES
 INTO TABLE QTXCRY.TQBXC5A1 PART 1
            INCURSOR CUR1 RESUME YES
EXEC SQL
     DECLARE CUR2 CURSOR FOR
         SELECT '002' XC502_PART_NUMBER
               , LEFT(NAME, 30) XC502_DOC_UUID
               , 'FOR' XC502_DOC_FORMAT
               , ROW_NUMBER() OVER() + 4E6 XC502_DOC_CONTENT_SEQ
               , CREATOR || NAME           XC502_DOC_CONTENT
             FROM SYSIBM.SYSTables where 1 = 0
             FETCH FIRST 1000 ROWS ONLY
ENDEXEC
LOAD
 SORTDEVT DISK
 WORKDDN(TSYUTS,TSOUTS)
 LOG YES
 INTO TABLE QTXCRY.TQBXC5A1 PART 2
         RESUME NO REPLACE
         INCURSOR CUR2
EXEC SQL
     DECLARE CUR3 CURSOR FOR
         SELECT '003' XC502_PART_NUMBER
               , LEFT(NAME, 30) XC502_DOC_UUID
               , 'FOR' XC502_DOC_FORMAT
               , ROW_NUMBER() OVER() + 4E6 XC502_DOC_CONTENT_SEQ
               , CREATOR || NAME           XC502_DOC_CONTENT
             FROM SYSIBM.SYSTables where 1 = 0
             FETCH FIRST 1000 ROWS ONLY
ENDEXEC
LOAD
 SORTDEVT DISK
 WORKDDN(TSYUTS,TSOUTS)
 LOG NO NOCOPYPEND
 INTO TABLE QTXCRY.TQBXC5A1 PART 3
            INCURSOR CUR3 RESUME YES
EXEC SQL
     DECLARE CUR4 CURSOR FOR
         SELECT '004' XC502_PART_NUMBER
               , LEFT(NAME, 30) XC502_DOC_UUID
               , 'FOR' XC502_DOC_FORMAT
               , ROW_NUMBER() OVER() + 4E6 XC502_DOC_CONTENT_SEQ
               , CREATOR || NAME           XC502_DOC_CONTENT
             FROM SYSIBM.SYSTables where 1 = 0
             FETCH FIRST 1000 ROWS ONLY
ENDEXEC
LOAD
 SORTDEVT DISK
 WORKDDN(TSYUTS,TSOUTS)
 LOG NO NOCOPYPEND
 INTO TABLE QTXCRY.TQBXC5A1 PART 4
         RESUME NO REPLACE
         INCURSOR CUR4