zOs/JCL/DB2LOAD2

//A540769L JOB (CAS25071,0000,,0000),'UNLOAD',
//         MSGCLASS=T,TIME=1440,
//         NOTIFY=A540769
//*MAIN CLASS=LOG
//S1       EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD'                  00020001
//SYSMAP   DD SYSOUT=*
//SYSUT1   DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT  DD DISP=(,PASS),UNIT=SYSDA
//SYSERR   DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
TEMPLATE U3098378
     DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A007A.UNL')
     DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U3098378 LOG NO  RESUME NO REPLACE COPYDDN(TCOPYD)
 EBCDIC  CCSID(00500,00000,00000)
 INTO TABLE "OA1A"."TNG007A1"
 WHEN(00001:00002) = X'000D'
 ( "NG007001"
        POSITION(  00003:00018) CHAR(00016)
 , "NG007010"
        POSITION(  00019:00044) TIMESTAMP EXTERNAL
 , "NG007011"
        POSITION(  00045:00070) TIMESTAMP EXTERNAL
 , "NG007012"
        POSITION(  00071:00096) TIMESTAMP EXTERNAL
 , "NG007013"
        POSITION(  00097:00122) TIMESTAMP EXTERNAL
 , "NG007014"
        POSITION(  00123:00130) CHAR(00008)
 , "NG007020"
        POSITION(  00131:00134) CHAR(00004)
 , "NG007021"
        POSITION(  00135:00138) CHAR(00004)
 , "NG007022"
        POSITION(  00139:00139) CHAR(00001)
 , "NG007023"
        POSITION(  00140:00143) CHAR(00004)
 )
TEMPLATE U5597954
     DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A009A.UNL')
     DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U5597954 LOG NO  RESUME NO REPLACE COPYDDN(TCOPYD)
 EBCDIC  CCSID(00500,00000,00000)
 INTO TABLE "OA1A"."TNG009A1"
 WHEN(00001:00002) = X'003C'
 ( "NG009001"
        POSITION(  00003:00018) CHAR(00016)
 , "NG009010"
        POSITION(  00019:00044) TIMESTAMP EXTERNAL
 , "NG009011"
        POSITION(  00045:00070) TIMESTAMP EXTERNAL
 , "NG009012"
        POSITION(  00071:00096) TIMESTAMP EXTERNAL
 , "NG009013"
        POSITION(  00097:00122) TIMESTAMP EXTERNAL
 , "NG009014"
        POSITION(  00123:00130) CHAR(00008)
 , "NG009020"
        POSITION(  00131:00134) CHAR(00004)
 , "NG009021"
        POSITION(  00135:00150) CHAR(00016)
 )
TEMPLATE U2310274
     DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A010A.UNL')
     DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U2310274 LOG NO  RESUME NO REPLACE COPYDDN(TCOPYD)
 EBCDIC  CCSID(00500,00000,00000)
 INTO TABLE "OA1A"."TNG010A1"
 WHEN(00001:00002) = X'000F'
 ( "NG010001"
        POSITION(  00003:00018) CHAR(00016)
 , "NG010010"
        POSITION(  00019:00044) TIMESTAMP EXTERNAL
 , "NG010011"
        POSITION(  00045:00070) TIMESTAMP EXTERNAL
 , "NG010012"
        POSITION(  00071:00096) TIMESTAMP EXTERNAL
 , "NG010013"
        POSITION(  00097:00122) TIMESTAMP EXTERNAL
 , "NG010014"
        POSITION(  00123:00130) CHAR(00008)
 , "NG010020"
        POSITION(  00131:00134) CHAR(00004)
 , "NG010021"
        POSITION(  00135:00150) CHAR(00016)
 )
TEMPLATE U5014602
     DSN('SHR21.DIV.P021.WKDSN.NG02A1P.A038A.UNL')
     DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U5014602 LOG NO  RESUME NO REPLACE COPYDDN(TCOPYD)
 EBCDIC  CCSID(00500,00000,00000)
 INTO TABLE "OA1A"."TNG038A1"
 WHEN(00001:00002) = X'003D'
 ( "NG038001"
        POSITION(  00003:00018) CHAR(00016)
 , "NG038010"
        POSITION(  00019:00044) TIMESTAMP EXTERNAL
 , "NG038011"
        POSITION(  00045:00070) TIMESTAMP EXTERNAL
 , "NG038012"
        POSITION(  00071:00096) TIMESTAMP EXTERNAL
 , "NG038013"
        POSITION(  00097:00122) TIMESTAMP EXTERNAL
 , "NG038014"
        POSITION(  00123:00130) CHAR(00008)
 , "NG038020"
        POSITION(  00131:00134) CHAR(00004)
 , "NG038021"
        POSITION(  00135:00137) CHAR(00003)
 )