create or replace package rcur as
    -- type tcur sys_refcursor;
    
    function rcur(p_sql varchar2) return sys_refcursor;
    procedure call_me;
    procedure catch_me(scur in sys_refcursor);    
end;
/
create or replace package body rcur as

        function rcur(p_sql varchar2) return sys_refcursor is
            v_ref_cur sys_refcursor;
        begin
            open v_ref_cur for p_sql;
            return v_ref_cur;
        end;
        
         -- Формирует выборку через rcur
        procedure call_me is
        begin
            catch_me(rcur('SELECT 1 v1, 2 v2, 3 v3 FROM dual union all SELECT 1 v1, 2 v2, 3 v3 FROM dual union all SELECT 1 v1, 2 v2, 3 v3 FROM dual'));
        end;
        
        -- Принимает и выводит в цикле
        procedure catch_me(scur in sys_refcursor) is 
            v_string_tx scur%rowtype; -- НУЖНО КАК-ТО ПРИРАВНЯТЬ К ПОЛЯМ КУОСОРА
       begin
           LOOP
              FETCH scur INTO v_string_tx;
              EXIT WHEN scur%NOTFOUND;
              dbms_output.put_line(v_string_tx.v2); -- И ВЫВОДИТЬ ЗДЕСЬ (Названия полей, некоторых, известны, их и надо вывести)
           END LOOP;
        end;

end;        
------------------------------
set serveroutput on size unlimited;
begin
    rcur.call_me;
end;

            dbms_output.put_line(v_string_tx.v2); -- И ВЫВОДИТЬ ЗДЕСЬ (Названия полей, некоторых, известны, их и надо вывести)