dokuwiki

This is an old revision of the document!

---

PROCEDURE SALARY_DIFF_VC
   IS
cursor bonus_salary is
  SELECT * FROM bonus
    order by salary desc;

TYPE bonus_table_type IS TABLE OF bonus%rowtype
      INDEX BY varchar2(100);

bonus_table bonus_table_type;

bonus_salary_rec bonus%rowtype; 
  
v_index      varchar2(100);

BEGIN

open bonus_salary;
   loop
     fetch bonus_salary into bonus_salary_rec;
     exit when bonus_salary%notfound;
     bonus_table(bonus_salary_rec.first_name||' '||bonus_salary_rec.last_name) 
        := bonus_salary_rec;
 
   end loop;
close bonus_salary;

v_index := bonus_table.first;   
for j in 1..bonus_table.count loop
  dbms_output.put_line(j||' '||
                       bonus_table(v_index).first_name ||' '||
                       bonus_table(v_index).last_name  ||' '||
                       bonus_table(v_index).salary);
  v_index := bonus_table.next(v_index);
end loop;   

END; -- Procedure