zOs/JCL/TWB510LO

//A540769Q JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M,LINES=(999999,WARNING)
//*MAIN CLASS=LOG
//LOAD     EXEC PGM=DSNUTILB,PARM='DBAF,A540769F.LOAD'
//SYSPRINT   DD SYSOUT=*
//UTPRINT    DD SYSOUT=*
//SYSUDUMP   DD SYSOUT=*
//SYSUT1   DD DISP=(,PASS),UNIT=SYSDA
//SORTOUT  DD DISP=(,PASS),UNIT=SYSDA
//SYSTEMPL   DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
    TEMPLATE UNL4   DSN('SHR21.DIV.P021.WB12A1P.A510A.UN04')
    LOAD DATA INDDN UNL4 LOG NO  RESUME NO REPLACE COPYDDN(TCOPYD)
        EBCDIC  CCSID(00500,00000,00000)
        STATISTICS INDEX(ALL) UPDATE ALL
      INTO TABLE OA1A.TWB510H1
 WHEN(00001:00002) = X'0043'
 ( "WB510001"
        POSITION(  00003:00006) CHAR(00004)
 , "WB510002"
        POSITION(  00007:00018) CHAR(00012)
 , "WB510003"
        POSITION(  00019:00019) CHAR(00001)
 , "WB510004"
        POSITION(  00020:00039) CHAR(00020)
 , "WB510005"
        POSITION(  00040:00044) CHAR(00005)
 , "WB510006"
        POSITION(  00045:00047) CHAR(00003)
 , "WB510007"
        POSITION(  00048:00055) DECIMAL
 , "WB510008"
        POSITION(  00056:00063) DECIMAL
 , "WB510009"
        POSITION(  00064:00070) DECIMAL
 , "WB510010"
        POSITION(  00071:00072) CHAR(00002)
 , "WB510011"
        POSITION(  00073:00080) CHAR(00008)
 , "WB510012"
        POSITION(  00081:00083) CHAR(00003)
 , "WB510013"
        POSITION(  00084:00093) DATE EXTERNAL
 , "WB510014"
        POSITION(  00094:00119) TIMESTAMP EXTERNAL
 , "WB510015"
        POSITION(  00120:00145) TIMESTAMP EXTERNAL
 , "WB510016"
        POSITION(  00146:00209) CHAR(00064)
 , "WB510017"
        POSITION(  00210:00273) CHAR(00064)
 , "WB510018"
        POSITION(  00274:00280) DECIMAL
 , "WB510019"
        POSITION(  00281:00290) DATE EXTERNAL
 , "WB510020"
        POSITION(  00291:00292) CHAR(00002)
 , "WB510021"
        POSITION(  00293:00305) CHAR(00013)
 , "WB510022"
        POSITION(  00306:00309) CHAR(00004)
 , "WB510023"
        POSITION(  00310:00313) CHAR(00004)
 , "WB510024"
        POSITION(  00314:00326) CHAR(00013)
 , "WB510025"
        POSITION(  00327:00329) CHAR(00003)
 , "WB510026"
        POSITION(  00330:00339) DATE EXTERNAL
 , "WB510027"
        POSITION(  00340:00349) DATE EXTERNAL
 , "WB510028"
        POSITION(  00350:00359) DATE EXTERNAL
 , "WB510029"
        POSITION(  00360:00361) CHAR(00002)
 , "WB510030"
        POSITION(  00362:00371) DATE EXTERNAL
 , "WB510031"
        POSITION(  00372:00373) CHAR(00002)
 , "WB510032"
        POSITION(  00374:00399) TIMESTAMP EXTERNAL
 )
    TEMPLATE UNL3   DSN('SHR21.DIV.P021.WB12A1P.A510A.UN03')
    LOAD DATA INDDN UNL3 RESUME YES SHRLEVEL CHANGE
        EBCDIC  CCSID(00500,00000,00000)
      INTO TABLE OA1A.TWB510H1
 WHEN(00001:00002) = X'0043'
 ( "WB510001"
        POSITION(  00003:00006) CHAR(00004)
 , "WB510002"
        POSITION(  00007:00018) CHAR(00012)
 , "WB510003"
        POSITION(  00019:00019) CHAR(00001)
 , "WB510004"
        POSITION(  00020:00039) CHAR(00020)
 , "WB510005"
        POSITION(  00040:00044) CHAR(00005)
 , "WB510006"
        POSITION(  00045:00047) CHAR(00003)
 , "WB510007"
        POSITION(  00048:00055) DECIMAL
 , "WB510008"
        POSITION(  00056:00063) DECIMAL
 , "WB510009"
        POSITION(  00064:00070) DECIMAL
 , "WB510010"
        POSITION(  00071:00072) CHAR(00002)
 , "WB510011"
        POSITION(  00073:00080) CHAR(00008)
 , "WB510012"
        POSITION(  00081:00083) CHAR(00003)
 , "WB510013"
        POSITION(  00084:00093) DATE EXTERNAL
 , "WB510014"
        POSITION(  00094:00119) TIMESTAMP EXTERNAL
 , "WB510015"
        POSITION(  00120:00145) TIMESTAMP EXTERNAL
 , "WB510016"
        POSITION(  00146:00209) CHAR(00064)
 , "WB510017"
        POSITION(  00210:00273) CHAR(00064)
 , "WB510018"
        POSITION(  00274:00280) DECIMAL
 , "WB510019"
        POSITION(  00281:00290) DATE EXTERNAL
 , "WB510020"
        POSITION(  00291:00292) CHAR(00002)
 , "WB510021"
        POSITION(  00293:00305) CHAR(00013)
 , "WB510022"
        POSITION(  00306:00309) CHAR(00004)
 , "WB510023"
        POSITION(  00310:00313) CHAR(00004)
 , "WB510024"
        POSITION(  00314:00326) CHAR(00013)
 , "WB510025"
        POSITION(  00327:00329) CHAR(00003)
 , "WB510026"
        POSITION(  00330:00339) DATE EXTERNAL
 , "WB510027"
        POSITION(  00340:00349) DATE EXTERNAL
 , "WB510028"
        POSITION(  00350:00359) DATE EXTERNAL
 , "WB510029"
        POSITION(  00360:00361) CHAR(00002)
 , "WB510030"
        POSITION(  00362:00371) DATE EXTERNAL
 , "WB510031"
        POSITION(  00372:00373) CHAR(00002)
 , "WB510032"
        POSITION(  00374:00399) TIMESTAMP EXTERNAL
 )