zOs/TX/WK925LOA

//A540769L  JOB (CP00,KE50),                                            00010001
//         MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
//         NOTIFY=F540769
//*MAIN CLASS=LOG
//S1       EXEC PGM=DSNUTILB,PARM='DP2G,A540769L.LOAD'                  00020001
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
TEMPLATE INP
     DSN('A540769.TMPUL.KS835.UNL')
     DISP(OLD,KEEP,KEEP)
LOAD DATA        LOG NO
           STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
 EBCDIC  CCSID(00500,00000,00000)
 SORTKEYS
  SORTDEVT DISK
  SORTNUM 160
 SORTKEYS           107735750
  WORKDDN(TSYUTD,TSOUTD)
  INDDN INP
  INTO TABLE A540769.TWK925A1 PART 3
       RESUME NO REPLACE COPYDDN(TCOPYD)
 ( "KS835010"
  POSITION(  00003:00022) CHAR(00020)
 , "KS835020"
  POSITION(  00023:00042) CHAR(00020)
 , "KS835030"
  POSITION(  00043:00062) CHAR(00020)
 , "KS835040"
  POSITION(  00063:00066) INTEGER
 , "KS835050"
  POSITION(  00067:00086) CHAR(00020)
 , "KS835060"
  POSITION(  00087:00090) CHAR(00004)
 , "KS835070"
  POSITION(  00091:00110) CHAR(00020)
 , "KS835080"
  POSITION(  00111:00130) CHAR(00020)
 , "KS835090"
  POSITION(  00131:00270) CHAR(00140)
 , "KS835100"
  POSITION(  00271:00272) CHAR(00002)
 , "KS835110"
  POSITION(  00273:00282) DATE EXTERNAL
 , "KS835120"
  POSITION(  00283:00292) DATE EXTERNAL
 , "KS835130"
  POSITION(  00293:00302) DATE EXTERNAL
 , "KS835140"
  POSITION(  00303:00312) DATE EXTERNAL
 , "KS835150"
  POSITION(  00313:00338) TIMESTAMP EXTERNAL
 , "KS835160"
  POSITION(  00339:00348) CHAR(00010)
 , "KS835170"
  POSITION(  00349:00374) TIMESTAMP EXTERNAL
 )