zOs/TX/WK928LOA

//A540769L  JOB (CP00,KE50),                                            00010001
//         MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
//         NOTIFY=A540769
//*MAIN CLASS=LOG
//S1       EXEC PGM=DSNUTILB,PARM='DBAF,A540769L.LOAD'                  00020001
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBAF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
TEMPLATE CJSI8M8L
     DSN('DSN.DBA.DBAF.C0006161.ULD.T0001')
     DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN CJSI8M8L LOG NO  RESUME NO REPLACE
          COPYDDN(TCOPYD)
 EBCDIC  CCSID(00500,00000,00000)
 SORTKEYS
  SORTDEVT DISK
  SORTNUM 160
  WORKDDN(TSYUTD,TSOUTD)
 DISCARDDN TDISC
 ERRDDN    TERRD
 INTO TABLE
 "GDB9998".
 "TWK928A1"
 WHEN(00001:00002) = X'009A'
 ( "KEY"
  POSITION(  00004:00023) CHAR(00020)
                          NULLIF(00003)=X'FF'
 , "FL1"
  POSITION(  00025:00032) FLOAT(53)
                          NULLIF(00024)=X'FF'
 )