declare
  cursor cr is
    select * from scott.emp;
  v cr%rowtype;
begin
  open cr;
  loop
    fetch cr into v;
    exit when cr%notfound;
  end loop;
  close cr;
   -- Повторное использование.
 
  open cr;
  fetch cr into v;
  close cr;
   -- А здесь демонстрация "аккуратного использования".
 
exception when others then
  if cr%isopen then close cr; end if;
  raise;
end;
/

create or replace type t_emp as object (
    empno number( 4 )
  , ename varchar2( 10 )
  , job varchar2( 9 )
  , mgr number( 4 )
  , hiredate date
  , sal number( 7 , 2 )
  , comm number( 7 , 2 )
  , deptno number( 2 )
)
/
create or replace type tbl_emp as table of t_emp
/

declare vt_emp tbl_emp;
        cr sys_refcursor;
begin                    
   -- Заполнил переменную.
 
  select cast(multiset(select * from scott.emp) as tbl_emp)
  into vt_emp
  from dual;            
   -- Делай с ней что хочешь.
 
  for i in vt_emp.first..vt_emp.last loop
    null;
  end loop;                 
   -- Открывай курсор по ней же.
 
  open cr for
    select * from table (cast(vt_emp as tbl_emp));
end;
/