zOs/TX/WK993LOP

//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.A993P.UNL
//           DD DISP=SHR,DSN=DSN.TX.ZDAT.WK993.A993P.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
  ENFORCE CONSTRAINTS
  SORTDEVT DISK  -- DEFAULT ENFORCE CONSTRAINTS
  WORKDDN(TSYUTD,TSOUTD)
  -- MAPDDN(TMAPD) -- GEHT ES OHNE WIE UNTER V9?
  DISCARDDN(TDISC) -- mit discarDdn braucht es mapDdn und errDdn
  INDDN DIN
 INTO TABLE
 "A540769".
 "TWK993PAR"
 NUMRECS                    2
 ( "PARID"
  POSITION(  00003:00006) INTEGER
 , "NAME"
  POSITION(  00007:00038) VARCHAR
 )