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