zOs/JCL/DB2LOAD1

//A540769L  JOB (CP00,KE50),                                            00010001
//         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 A3EJ46JC
     DSN('DBAF.DGDB9998.A401A01.P00000.D2006269.SYSREC')
     DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN A3EJ46JC LOG NO  RESUME NO REPLACE COPYDDN(TCOPYD)
 EBCDIC  CCSID(00500,00000,00000)
 SORTKEYS            10049464
 INTO TABLE A540769."TAV401A1"
 WHEN(00001:00002) = X'009B'
 ( "AV401001"
        POSITION(  00003:00018) CHAR(00016)
 , "AV401002"
        POSITION(  00019:00021) CHAR(00003)
 , "AV401003"
        POSITION(  00022:00033) CHAR(00012)
 , "AV401004"
        POSITION(  00034:00038) CHAR(00005)
 , "AV401005"
        POSITION(  00040:00047) DECIMAL
                          NULLIF(00039)=X'FF'
 , "AV401006"
        POSITION(  00049:00056) DECIMAL
                          NULLIF(00048)=X'FF'
 , "AV401007"
        POSITION(  00057:00064) DECIMAL
 , "AV401008"
        POSITION(  00065:00065) CHAR(00001)
 , "AV401009"
        POSITION(  00066:00069) CHAR(00004)
 , "AV401010"
        POSITION(  00070:00071) CHAR(00002)
 , "AV401011"
        POSITION(  00073:00080) DECIMAL
                          NULLIF(00072)=X'FF'
 , "AV401012"
        POSITION(  00082:00091) DATE EXTERNAL
                          NULLIF(00081)=X'FF'
 , "AV401013"
        POSITION(  00092:00095) CHAR(00004)
 , "AV401014"
        POSITION(  00096:00099) CHAR(00004)
 , "AV401015"
        POSITION(  00101:00108) DECIMAL
                          NULLIF(00100)=X'FF'
 , "AV401016"
        POSITION(  00109:00116) DECIMAL
 , "AV401017"
        POSITION(  00117:00119) CHAR(00003)
 , "AV401018"
        POSITION(  00120:00127) DECIMAL
 , "AV401019"
        POSITION(  00128:00135) DECIMAL
 , "AV401020"
        POSITION(  00136:00143) DECIMAL
 , "AV401021"
        POSITION(  00145:00154) DATE EXTERNAL
                          NULLIF(00144)=X'FF'
 , "AV401022"
        POSITION(  00155:00162) DECIMAL
 , "AV401023"
        POSITION(  00163:00170) DECIMAL
 , "AV401024"
        POSITION(  00171:00178) DECIMAL
 , "AV401025"
        POSITION(  00179:00186) DECIMAL
 , "AV401026"
        POSITION(  00187:00194) DECIMAL
 , "AV401027"
        POSITION(  00196:00205) DATE EXTERNAL
                          NULLIF(00195)=X'FF'
 , "AV401028"
        POSITION(  00207:00214) DECIMAL
                          NULLIF(00206)=X'FF'
 , "AV401029"
        POSITION(  00215:00222) DECIMAL
 , "AV401030"
        POSITION(  00223:00230) DECIMAL
 , "AV401031"
        POSITION(  00232:00241) DATE EXTERNAL
                          NULLIF(00231)=X'FF'
 , "AV401032"
        POSITION(  00242:00249) DECIMAL
 , "AV401033"
        POSITION(  00250:00257) DECIMAL
 , "AV401034"
        POSITION(  00258:00265) DECIMAL
 , "AV401035"
        POSITION(  00267:00276) DATE EXTERNAL
                          NULLIF(00266)=X'FF'
 , "AV401036"
        POSITION(  00277:00284) DECIMAL
 , "AV401037"
        POSITION(  00286:00295) DATE EXTERNAL
                          NULLIF(00285)=X'FF'
 , "AV401038"
        POSITION(  00296:00303) DECIMAL
 , "AV401039"
        POSITION(  00304:00311) DECIMAL
 , "AV401040"
        POSITION(  00312:00319) DECIMAL
 , "AV401041"
        POSITION(  00320:00326) CHAR(00007)
 , "AV401042"
        POSITION(  00327:00327) CHAR(00001)
 , "AV401043"
        POSITION(  00329:00338) DATE EXTERNAL
                          NULLIF(00328)=X'FF'
 , "AV401044"
        POSITION(  00339:00346) DECIMAL
 , "AV401045"
        POSITION(  00347:00347) CHAR(00001)
 , "AV401046"
        POSITION(  00348:00351) CHAR(00004)
 , "AV401047"
        POSITION(  00352:00353) CHAR(00002)
 , "AV401048"
        POSITION(  00355:00364) DATE EXTERNAL
                          NULLIF(00354)=X'FF'
 , "AV401049"
        POSITION(  00365:00372) DECIMAL
 , "AV401050"
        POSITION(  00373:00380) DECIMAL
 , "AV401051"
        POSITION(  00381:00383) CHAR(00003)
 , "AV401052"
        POSITION(  00384:00391) DECIMAL
 , "AV401053"
        POSITION(  00392:00392) CHAR(00001)
 , "AV401054"
        POSITION(  00393:00400) DECIMAL
 , "AV401055"
        POSITION(  00401:00401) CHAR(00001)
 , "AV401056"
        POSITION(  00402:00409) DECIMAL
 , "AV401057"
        POSITION(  00410:00410) CHAR(00001)
 , "AV401058"
        POSITION(  00411:00418) DECIMAL
 , "AV401059"
        POSITION(  00419:00426) DECIMAL
 , "AV401060"
        POSITION(  00427:00434) DECIMAL
 )