To test ref cursor.

Question

I have following package specification ,
create or replace
PACKAGE "DATA_LKUP"
IS
TYPE BILL_POL IS RECORD
(v1 NUMBER,
V2 NUMBER,
V3 VARCHAR2(30))
TYPE R_POL_RC IS REF CURSOR
RETURN BILL_POL;
PROCEDURE P_GET_BEN_POL(V_ref_coursor IN OUT R_POL_RC,
N_KEY1_IN NUMBER,
N_KEY2_DT_IN NUMBER,
               N_VAR OUT NUMBER);
END;
I have to write one general script to test procedures like P_GET_BEN_POL,
which has ref coursor as OUT parameter. I can write SQL script in following way.
DECLARE
T1 NUMBER;
T2 IS REF CURSOR;
BEGIN
DATA_LKUP.P_GET_BEN_POL(t2,1,2,t1);
dbms_output.put_line('Data 1 ==>>'||t1);
END;
But how do I test output variable T2, How do I print it? or is there any way to know structure of t2 so that I can print data of
ref cursor in following foramt?
Data:
col1 col2 col3 col4
as if I don't know package specification code.
I want to design such sql test scripts in general way, to test above procedures.

Answer 1

You can build upon this example:
SQL> create or replace procedure test_refcur(rc OUT sys_refcursor) is
  2  begin
  3    open rc for select * from scott.emp ;
  4  end ;
  5  /
show errors
variable rc refcursor
exec test_refcur(:rc) ;
print rc
Procedure created.
SQL> No errors.
SQL> SQL>
PL/SQL procedure successfully completed.
SQL>
     EMPNO ENAME      JOB              MGR HIREDATE         SAL       COMM     DEPTNO
      7369 SMITH      CLERK           7902 17-DEC-80        800                    20
      7499 ALLEN      SALESMAN        7698 20-FEB-81       1600        300         30
      7521 WARD       SALESMAN        7698 22-FEB-81       1250        500         30
      7566 JONES      MANAGER         7839 02-APR-81       2975                    20
      7654 MARTIN     SALESMAN        7698 28-SEP-81       1250       1400         30
      7698 BLAKE      MANAGER         7839 01-MAY-81       2850                    30
      7782 CLARK      MANAGER         7839 09-JUN-81       2450                    10
      7788 SCOTT      ANALYST         7566 19-APR-87       3000                    20
      7839 KING       PRESIDENT            17-NOV-81       5000                    10
      7844 TURNER     SALESMAN        7698 08-SEP-81       1500          0         30
      7876 ADAMS      CLERK           7788 23-MAY-87       1100                    20
      7900 JAMES      CLERK           7698 03-DEC-81        950                    30
      7902 FORD       ANALYST         7566 03-DEC-81       3000                    20
      7934 MILLER     CLERK           7782 23-JAN-82       1300                    10
14 rows selected.
SQL>