zOs/JCL/TWB512LO

//A540769P JOB (CP00,KE50),
//       'CATALOG',MSGCLASS=T,TIME=1440,
//         NOTIFY=&SYSUID,REGION=0M,LINES=(999999,WARNING)
//*MAIN CLASS=LOG
//LOAD     EXEC PGM=DSNUTILB,PARM='DBAF,A540769P.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 UNL9   DSN('SHR21.DIV.P021.WB12A1P.A512A.UN09')
    LOAD DATA INDDN UNL9 LOG NO  RESUME NO REPLACE COPYDDN(TCOPYD)
        EBCDIC  CCSID(00500,00000,00000)
        ENFORCE NO
        STATISTICS INDEX(ALL) UPDATE ALL
      INTO TABLE OA1A.TWB512H1
 WHEN(00001:00002) = X'0028'
 ( "WB5121"
        POSITION(  00003:00003) CHAR(00001)
 , "WB5122"
        POSITION(  00004:00006) CHAR(00003)
 , "WB5123"
        POSITION(  00007:00026) CHAR(00020)
 )