zOs/TX/WK958LOA

//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
//DIN     DD DISP=SHR,DSN=DSN.DBA.DBAF.C0008661.ULD.T0001
//SYSIN    DD *
LOAD DATA        LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
           STATISTICS INDEX(ALL) KEYCARD REPORT NO UPDATE ALL
 SORTKEYS
  SORTDEVT DISK
  SORTNUM 16
  WORKDDN(TSYUTD,TSOUTD)
 UNICODE CCSID(00367,01208,01200)
 INDDN DIN
  INTO TABLE GDB9998.TWK958
 ( "D"
  POSITION(  00003:00012) DATE EXTERNAL
 )