Connect programmer/p@9i


create or replace procedure Show_Rows_For_Dept_Dbms_Sql (
  p_department_id in employees.department_id%type ) is
  -- Assumes that
  -- Employees_Cur_Dbms_Sql.Set_Up_Statement has been called
  -- and that

  -- Employees_Cur_Dbms_Sql.Free_Resources will be called afterwards
  v_last_names_tab Employees_Cur_Dbms_Sql.Last_Names_Tab_t;
begin
  v_last_names_tab := Employees_Cur_Dbms_Sql.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_Dbms_Sql;
/
Show Errors