zOs/TX/WK993LOC

//A540769L JOB (CP00,KE50),                                             00010001
//           MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
//           NOTIFY=&SYSUID
//*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.TX.ZDAT.WK993.A993C.UNL
//SYSIN      DD *
LOAD DATA        LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
           STATISTICS INDEX(ALL KEYCARD) REPORT NO UPDATE ALL
 EBCDIC  CCSID(00500,00000,00000)
 SORTKEYS
  -- ENFORCE NO     -- default ist enforce constraints
  SORTDEVT DISK
  WORKDDN(TSYUTD,TSOUTD)
-- MAPDDN(TMAPD) -- GEHT ES OHNE WIE UNTER V9?
--DISCARDDN(TDISC) -- mit discarDDN braucht es errDdn und mapDdn(nur v9)
  INDDN DIN
 INTO TABLE
 "A540769".
 "TWK993CHI"
 NUMRECS                    5
 ( "PARID"
  POSITION(  00003:00006) INTEGER
 , "NAME"
  POSITION(  00007:00038) VARCHAR
 )