zOs/JCL/TWB512LX

//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=*
//SYSERR   DD DISP=(,PASS),UNIT=SYSDA,DATACLAS=NULL30,
//            SPACE=(CYL,(100,1000))
//SYSUT1   DD DISP=(,PASS),UNIT=SYSDA,DATACLAS=NULL30,
//            SPACE=(CYL,(100,1000))
//SORTOUT  DD DISP=(,PASS),UNIT=SYSDA,DATACLAS=NULL30,
//            SPACE=(CYL,(100,1000))
//UTPRINT    DD SYSOUT=*
//SYSUDUMP   DD SYSOUT=*
//SYSTEMPL   DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
    TEMPLATE UNL8   DSN('SHR21.DIV.P021.WB12A1P.A512A.UN08')
    LOAD DATA INDDN UNL8 RESUME YES SHRLEVEL CHANGE
        EBCDIC  CCSID(00500,00000,00000)
      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)
 )
 COPY TABLESPACE WB512A.A512H COPYDDN(TCOPYD) SHRLEVEL REFERENCE