declare 
  type RefCursor is ref cursor;

  RC RefCursor;
  s varchar2( 10 );
  
  function getRC return RefCursor is
    res RefCursor; 
  begin
    open Res for select * from dual;
    return res;
  end;
begin
    RC := getRC;
    loop 
      fetch RC into s;
      exit when RC%notfound;
      
      dbms_output.put_line(s);
    end loop; 
end;