zOs/JCL/OS810LOA

$#@
$>. fedit()
$@=/jcl/
//A540769L 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='DP2G,A540769L.LOAD'                  00020001
//SYSMAP   DD SYSOUT=*
//UTPRINT  DD SYSOUT=*
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DP2G.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
$@% loadPart 1 33
$@% loadPart 2 34
$@% loadPart 3 35
$@% loadPart 4 36
$@% loadPart 5  1
$@% loadPart 6  2
$@% loadPart 7  3
$@% loadPart 8  4
$@% loadPart 9  5
$@% loadPart 10 26
$@% loadPart 11 27
$@% loadPart 12 28
$@% loadPart 13 29
$@% loadPart 14 30
$@% loadPart 15 31
$@% loadPart 16 32
$/jcl/

$proc $@=/loadPart/
$@ parse arg , paVon paBis
$=paVon=- paVon
$=paBis=- paBis
EXEC SQL
  DECLARE CUR$paVon CURSOR FOR
    $@selCols
        FROM OA1P.TOS800A1 where partition = $paVon
    union all
    $@selCols
        FROM OA1P.TOS801A1 where partition = $paVon
    union all
    $@selCols
        FROM OA1P.TOS802A1 where partition = $paVon
ENDEXEC
LOAD DATA LOG NO
    STATISTICS INDEX ALL KEYCARD
    SORTDEVT DISK
    WORKDDN(TSYUTS,TSOUTS)
  INTO TABLE  OA1P.TOS810A1 PART $paBis
    RESUME NO REPLACE COPYDDN TCOPYS
    INCURSOR CUR$paVon
$/loadPart/
$proc $@=/selCols/
    select $paBis partition
           , DATE
           , USERID
           , TRAN_CODE
           , LTERM
           , CIF_NR
           , DEPOT_NR
           , KONTO_NR
           , NAME_1
           , NAME_2
           , VORNAME
           , ORT
           , STRASSE
           , GEB_DAT
           , BUDAT_VON
           , BUDAT_BIS
           , CLEAR_NR
           , CSID_NR
           , BKST_GRP
           , BKST
           , B_UNIT
           , DOMIZIL
           , EBENE
           , INFO
           , K_ART
           , K_SEG_CODE
           , BILD_VAR
           , SUCHTYP
$/selCols/
$#out                                              20150411 09:50:23
$#out                                              20150411 09:09:13
$#out                                              20150411 09:08:41
$#out                                              20150411 09:08:23