dokuwiki

This is an old revision of the document!

---

CREATE OR REPLACE PROCEDURE EMP_PER_DEP AS 
cursor c_dep is
    select department_id, department_name from departments;

i number;
BEGIN
  for r_dep in c_dep loop
    dbms_output.put_line(r_dep.department_name);
    i := 0;    
    for r_emp in 
      (select * from employees where 
       department_id = r_dep.department_id 
       order by salary desc) loop
       i := i + 1;
       exit when i > 3;
          dbms_output.put_line(i||'. '||r_emp.last_name
                                   ||' '||r_emp.salary);
     end loop;                                                
  end loop;  
END EMP_PER_DEP;