How to read my cursor that is ref cursor returning user defined type

Question

Hi
I have types defined as follows:
TYPE MY_RECORD IS RECORD (
COL1 TABLE1.COL1%TYPE,
COL2 TABLE1.COL2%TYPE
TYPE MY_CURSOR IS REF CURSOR
RETURN MY_RECORD;This is used as return type in a stored procedure.
I have a pl/sql block where I make a call to the SP that returns this cursor.
How can I read individual values being returned from SP?

Answer 1

SQL> create or replace package pkg
as
   type my_record is record (col1 emp.empno%type, col2 emp.ename%type);
   type my_cursor is ref cursor
      return my_record;
   procedure p (cur out my_cursor);
end pkg;
Package created.
SQL> create or replace package body pkg
as
   procedure p (cur out my_cursor)
   as
   begin
      open cur for
         select   empno, ename
           from   emp
          where   rownum <= 2;
   end p;
end pkg;
Package body created.
SQL> declare
   cur     pkg.my_cursor;
   e_rec   pkg.my_record;
begin
   pkg.p (cur);
   loop
      fetch cur into   e_rec;
      exit when cur%notfound;
      dbms_output.put ('Empno: ' || e_rec.col1);
      dbms_output.put_line ('; Ename: ' || e_rec.col2);
   end loop;
   close cur;
end;
Empno: 7369; Ename: SMITH
Empno: 7499; Ename: ALLEN
PL/SQL procedure successfully completed.