home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a524 / 39.ddi / demo / case5.ctl < prev    next >
Encoding:
Text File  |  1991-03-04  |  945 b   |  35 lines
  1. -- 
  2. -- $Header: case5.ctl,v 10010.4 88/01/14 14:40:21 hdai Exp $ case5.ctl 
  3. -- 
  4. -- Loads EMP records from first 23 characters
  5. -- Creates and loads PROJ records for each PROJO listed
  6. -- for each employee
  7.  
  8. LOAD DATA
  9. INFILE case5.dat
  10. BADFILE case5.bad
  11. DISCARDFILE case5.dis
  12. REPLACE
  13.  
  14. INTO TABLE EMP
  15.   (EMPNO    POSITION(1:4)   INTEGER EXTERNAL,
  16.    ENAME    POSITION(6:15)  CHAR,
  17.    DEPTNO   POSITION(17:18) CHAR,
  18.    MGR      POSITION(20:23) INTEGER EXTERNAL)
  19.  
  20. INTO TABLE PROJ
  21. -- PROJ has two columns, both not null: EMPNO and PROJNO
  22. WHEN PROJNO != '   '
  23.   (EMPNO    POSITION(1:4)   INTEGER EXTERNAL,
  24.    PROJNO   POSITION(25:27) INTEGER EXTERNAL)   -- 1st proj
  25.  
  26. INTO TABLE PROJ
  27. WHEN PROJNO != '   '
  28.   (EMPNO    POSITION(1:4)   INTEGER EXTERNAL,
  29.    PROJNO   POSITION(29:31) INTEGER EXTERNAL)   -- 2nd proj
  30.  
  31. INTO TABLE PROJ
  32. WHEN PROJNO != '   '
  33.   (EMPNO    POSITION(1:4)   INTEGER EXTERNAL,
  34.    PROJNO   POSITION(33:35) INTEGER EXTERNAL)   -- 3rd proj    
  35.