Connect programmer/p@9i


create or replace procedure Show_Rows_For_Dept_Ref_Cursor (
  p_department_id in employees.department_id%type ) is
  -- No prior- set-up or post- clean-up required
  -- to run this
  v_last_names_tab Employees_Cur_Ref_Cursor.Last_Names_Tab_t;

begin
  v_last_names_tab := Employees_Cur_Ref_Cursor.Fetch_All_Rows ( p_department_id );

  for j in v_last_names_tab.First..v_last_names_tab.Last
  loop
    Dbms_Output.Put_Line ( v_last_names_tab(j) );

  end loop;
end Show_Rows_For_Dept_Ref_Cursor;
/
Show Errors