home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a523 / 3.ddi / CASE5.CTL < prev    next >
Encoding:
Text File  |  1987-03-05  |  898 b   |  32 lines
  1. -- Loads EMP records from first 23 characters
  2. -- Creates and loads PROJ records for each PROJO listed
  3. -- for each employee
  4.  
  5. LOAD DATA
  6. INFILE CASE5.DAT 
  7. BADFILE CASE5.BAD    
  8. DISCARDFILE CASE5.DIS
  9. REPLACE
  10.  
  11. INTO TABLE EMP
  12.   (EMPNO    POSITION(1:4)   INTEGER EXTERNAL,
  13.    ENAME    POSITION(6:15)  CHAR,
  14.    DEPTNO   POSITION(17:18) CHAR,
  15.    MGR      POSITION(20:23) INTEGER EXTERNAL)
  16.  
  17. INTO TABLE PROJ
  18. -- PROJ has two columns, both not null: EMPNO and PROJNO
  19. WHEN PROJNO != '   '
  20.   (EMPNO    POSITION(1:4)   INTEGER EXTERNAL,
  21.    PROJNO   POSITION(25:27) INTEGER EXTERNAL)   -- 1st proj
  22.  
  23. INTO TABLE PROJ
  24. WHEN PROJNO != '   '
  25.   (EMPNO    POSITION(1:4)   INTEGER EXTERNAL,
  26.    PROJNO   POSITION(29:31) INTEGER EXTERNAL)   -- 2nd proj
  27.  
  28. INTO TABLE PROJ
  29. WHEN PROJNO != '   '
  30.   (EMPNO    POSITION(1:4)   INTEGER EXTERNAL,
  31.    PROJNO   POSITION(33:35) INTEGER EXTERNAL)   -- 3rd proj    
  32.