zOs/JCL/DB2LOA2

//A540769L JOB (CP00,KE50),                                             00010001
//       'LOAD',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=BS1
//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=*
//SYSTEMPL  DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
TEMPLATE U6390082
     DSN('TSS.SKA.DBOF.FZ01A1P.A021A.P000.UNLOAD.NEU')
     DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U6390082 LOG YES RESUME YES SHRLEVEL CHANGE
 EBCDIC  CCSID(00500,00000,00000)
 INTO TABLE "OA1A"."TFZ021A1"
 WHEN(00001:00002) = X'0016'
 ( "FZ02100"
        POSITION(  00003:00028) TIMESTAMP EXTERNAL
 , "FZ02101"
        POSITION(  00029:00044) CHAR(00016)
 , "FZ02102"
        POSITION(  00045:00060) CHAR(00016)
 , "FZ02103"
        POSITION(  00061:00064) INTEGER
 , "FZ02104"
        POSITION(  00065:00067) CHAR(00003)
 , "FZ02105"
        POSITION(  00068:00077) DATE EXTERNAL
 , "FZ02106"
        POSITION(  00078:00089) CHAR(00012)
 , "FZ02107"
        POSITION(  00090:00093) CHAR(00004)
 , "FZ02108"
        POSITION(  00094:00097) CHAR(00004)
 , "FZ02109"
        POSITION(  00098:00109) CHAR(00012)
 , "FZ02110"
        POSITION(  00110:00117) CHAR(00008)
 )
TEMPLATE U6716199
     DSN('TSS.SKA.DBOF.FZ01A1P.A022A.P000.UNLOAD.NEU')
     DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN U6716199 LOG YES RESUME YES SHRLEVEL CHANGE
 EBCDIC  CCSID(00500,00000,00000)
 INTO TABLE "OA1A"."TFZ022A1"
 WHEN(00001:00002) = X'0018'
 ( "FZ02200"
        POSITION(  00003:00028) TIMESTAMP EXTERNAL
 , "FZ02201"
        POSITION(  00029:00044) CHAR(00016)
 , "FZ02202"
        POSITION(  00045:00048) INTEGER
 , "FZ02203"
        POSITION(  00049:00076) CHAR(00028)
 , "FZ02204"
        POSITION(  00077:00080) CHAR(00004)
 , "FZ02205"
        POSITION(  00081:00110) CHAR(00030)
 , "FZ02206"
        POSITION(  00111:00126) CHAR(00016)
 , "FZ02207"
        POSITION(  00127:00142) CHAR(00016)
 , "FZ02208"
        POSITION(  00143:00158) CHAR(00016)
 , "FZ02209"
        POSITION(  00159:00159) CHAR(00001)
 , "FZ02210"
        POSITION(  00160:00160) CHAR(00001)
 , "FZ02211"
        POSITION(  00161:00161) CHAR(00001)
 , "FZ02212"
        POSITION(  00162:00172) CHAR(00011)
 , "FZ02213"
        POSITION(  00173:00192) CHAR(00020)
 , "FZ02214"
        POSITION(  00193:00203) CHAR(00011)
 , "FZ02215"
        POSITION(  00204:00223) CHAR(00020)
 , "FZ02216"
        POSITION(  00224:00234) CHAR(00011)
 , "FZ02217"
        POSITION(  00235:00254) CHAR(00020)
 , "FZ02218"
        POSITION(  00256:00265) DATE EXTERNAL
                          NULLIF(00255)=X'FF'
 , "FZ02219"
        POSITION(  00267:00276) DATE EXTERNAL
                          NULLIF(00266)=X'FF'
 , "FZ02220"
        POSITION(  00278:00285) FLOAT(53)
                          NULLIF(00277)=X'FF'
 , "FZ02221"
        POSITION(  00286:00289) CHAR(00004)
 , "FZ02222"
        POSITION(  00291:00306) DECIMAL
                          NULLIF(00290)=X'FF'
 , "FZ02223"
        POSITION(  00307:00317) CHAR(00011)
 , "FZ02224"
        POSITION(  00318:00337) CHAR(00020)
 , "FZ02225"
        POSITION(  00338:00348) CHAR(00011)
 , "FZ02226"
        POSITION(  00349:00368) CHAR(00020)
 , "FZ02227"
        POSITION(  00369:00379) CHAR(00011)
 , "FZ02228"
        POSITION(  00380:00399) CHAR(00020)
 , "FZ02229"
        POSITION(  00400:00403) CHAR(00004)
 , "FZ02230"
        POSITION(  00405:00420) DECIMAL
                          NULLIF(00404)=X'FF'
 , "FZ02231"
        POSITION(  00421:00431) CHAR(00011)
 , "FZ02232"
        POSITION(  00432:00451) CHAR(00020)
 , "FZ02233"
        POSITION(  00452:00462) CHAR(00011)
 , "FZ02234"
        POSITION(  00463:00482) CHAR(00020)
 , "FZ02235"
        POSITION(  00483:00493) CHAR(00011)
 , "FZ02236"
        POSITION(  00494:00513) CHAR(00020)
 , "FZ02237"
        POSITION(  00514:00524) CHAR(00011)
 , "FZ02238"
        POSITION(  00525:00544) CHAR(00020)
 , "FZ02239"
        POSITION(  00545:00579) CHAR(00035)
 , "FZ02240"
        POSITION(  00580:00614) CHAR(00035)
 , "FZ02241"
        POSITION(  00615:00649) CHAR(00035)
 , "FZ02242"
        POSITION(  00650:00665) CHAR(00016)
 , "FZ02243"
        POSITION(  00666:00681) CHAR(00016)
 , "FZ02244"
        POSITION(  00682:00716) CHAR(00035)
 , "FZ02245"
        POSITION(  00717:00751) CHAR(00035)
 , "FZ02246"
        POSITION(  00752:00786) CHAR(00035)
 , "FZ02247"
        POSITION(  00787:00821) CHAR(00035)
 , "FZ02248"
        POSITION(  00822:00856) CHAR(00035)
 , "FZ02249"
        POSITION(  00857:00891) CHAR(00035)
 , "FZ02250"
        POSITION(  00892:00926) CHAR(00035)
 , "FZ02251"
        POSITION(  00927:00961) CHAR(00035)
 , "FZ02252"
        POSITION(  00962:00996) CHAR(00035)
 , "FZ02253"
        POSITION(  00997:01031) CHAR(00035)
 , "FZ02254"
        POSITION(  01032:01066) CHAR(00035)
 , "FZ02255"
        POSITION(  01067:01082) CHAR(00016)
 , "FZ02256"
        POSITION(  01083:01083) CHAR(00001)
 , "FZ02257"
        POSITION(  01084:01087) CHAR(00004)
 , "FZ02258"
        POSITION(  01089:01104) DECIMAL
                          NULLIF(01088)=X'FF'
 , "FZ02259"
        POSITION(  01105:01105) CHAR(00001)
 , "FZ02260"
        POSITION(  01106:01109) CHAR(00004)
 , "FZ02261"
        POSITION(  01111:01126) DECIMAL
                          NULLIF(01110)=X'FF'
 , "FZ02262"
        POSITION(  01127:01137) CHAR(00011)
 , "FZ02263"
        POSITION(  01138:01157) CHAR(00020)
 , "FZ02264"
        POSITION(  01158:01168) CHAR(00011)
 , "FZ02265"
        POSITION(  01169:01188) CHAR(00020)
 , "FZ02266"
        POSITION(  01189:01199) CHAR(00011)
 , "FZ02267"
        POSITION(  01200:01219) CHAR(00020)
 , "FZ02268"
        POSITION(  01220:01230) CHAR(00011)
 , "FZ02269"
        POSITION(  01231:01250) CHAR(00020)
 , "FZ02270"
        POSITION(  01251:01285) CHAR(00035)
 , "FZ02271"
        POSITION(  01286:01320) CHAR(00035)
 , "FZ02272"
        POSITION(  01321:01355) CHAR(00035)
 , "FZ02273"
        POSITION(  01357:01372) DECIMAL
                          NULLIF(01356)=X'FF'
 )