home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a524 / 37.ddi / demo / examp11.sql < prev    next >
Encoding:
Text File  |  1991-03-04  |  722 b   |  33 lines
  1. rem 
  2. rem $Header: examp11.sql,v 1002100.2 90/01/11 16:58:55 nsalah Exp $ examp11.sql Copyr (c) 1989 Oracle
  3. rem 
  4. rem V6PLS10021,DISK$DEV9:[PLS.DEMO.10021]
  5. /*
  6. ** This program uses a cursor to select the 5 highest paid employees 
  7. ** from the EMP table.
  8. **
  9. ** Copyright (c) 1989 by Oracle Corporation
  10. */
  11.  
  12. DECLARE
  13.     CURSOR c1 is
  14.     SELECT ename, empno, sal FROM emp
  15.     ORDER BY sal DESC;           -- start with highest paid employee
  16.     my_ename    CHAR(10);
  17.     my_empno    NUMBER(4);
  18.     my_sal    NUMBER(7,2);
  19.  
  20. BEGIN
  21.     OPEN c1;
  22.  
  23.     LOOP
  24.     FETCH c1 INTO my_ename, my_empno, my_sal;
  25.     EXIT WHEN (c1%ROWCOUNT > 5) OR (c1%NOTFOUND);
  26.     INSERT INTO temp VALUES (my_sal, my_empno, my_ename);
  27.         COMMIT;
  28.     END LOOP;
  29.  
  30.     CLOSE c1;
  31. END;
  32. /
  33.