zOs/TX/QBPRBLOP

//A540769P JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M,SCHENV=DB2                          00030003
//*MAIN CLASS=LOG                                                       00040003
//S1       EXEC PGM=DSNUTILB,PARM='DP4G,A540769P.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 *
         FROM PBXX.TACCT_PROGRAM_20140701
         WHERE PLANNAME  LIKE 'BE077%'
         UNION ALL SELECT *
         FROM PBXX.TACCT_PROGRAM_20140702
         WHERE PLANNAME  LIKE 'BE077%'
ENDEXEC
LOAD DATA INCURSOR CUR1  LOG NO RESUME NO REPLACE
     COPYDDN(TCOPYD) STATISTICS INDEX ALL
 SORTDEVT DISK SORTNUM 50
 WORKDDN(TSYUTS,TSOUTS)
 INTO TABLE A540769.TACCT_PROGRAM20140701