CREATE OR REPLACE procedure test_plsql_tab is

  cursor c_obj is
         select * from user_objects;
  r_obj c_obj%rowtype;
  TYPE LOAD_COL_TAB IS TABLE OF c_obj%rowtype INDEX BY BINARY_INTEGER;
  v_COLTAB LOAD_COL_TAB;
  v_nCol1 NUMBER := 0;
begin
  v_COLTAB.delete (0,100);
  open c_obj;
  fetch c_obj into r_obj;
  while c_obj%found
  loop
      v_ColTab(v_nCol1) := r_obj;
      v_nCol1 := v_nCol1 + 1;
      fetch c_obj into r_obj;
  end loop;
  close c_obj;	  
end;