zOs/TX/WK988LOA

//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 DG20Q2RA
     DSN('DBAF.DGDB9998.A988A.P00000.D110902.REC')
     DISP(OLD,KEEP,KEEP)
LOAD DATA INDDN DG20Q2RA LOG YES RESUME YES
 EBCDIC  CCSID(00500,00000,00000)
 SORTKEYS
  SORTDEVT DISK
  WORKDDN(TSYUTD,TSOUTD)
 INTO TABLE
 "GDB9998".
 "TWK988A1"
 WHEN(00001:00002) = X'0302'
 NUMRECS                    3
 ( "WK988I"
  POSITION(  00003:00004) SMALLINT
 , "WK988D" = '31.12.2011'
 , "WK988T"
  POSITION(  00015:00040) TIMESTAMP EXTERNAL
 )