SYS_REFCURSOR PARAMETER

Question

Hi,
This is my examples
CREATE OR REPLACE
type R_VALUE_DATE IS OBJECT
VALUE_DATE DATE,
DATE_VALUE NUMBER(30,10)
CREATE OR REPLACE
type T_VALUE_DATE IS TABLE OF R_VALUE_DATE;
CREATE OR REPLACE package Z_Test
is
procedure read_data2;
procedure read_data;
end;
CREATE OR REPLACE package body Z_Test
is
procedure populate_data(O_TAB OUT SYS_REFCURSOR)
is
v_tab T_VALUE_DATE := T_VALUE_DATE();
begin
v_tab.extend;
v_tab(v_tab.last) := R_VALUE_DATE(sysdate,1);
v_tab.extend;
v_tab(v_tab.last) := R_VALUE_DATE(sysdate+1,2);
v_tab.extend;
v_tab(v_tab.last) := R_VALUE_DATE(sysdate+3,3);
OPEN O_TAB FOR SELECT * FROM TABLE(v_tab);
end;
procedure read_data2
is
v_tab sys_refcursor;
v_date date;
v_val number;
begin
populate_data(v_tab);
loop
fetch v_tab into v_date,v_val;     
     exit when v_tab%notfound;
     dbms_output.put_line(v_date||' - '||v_val);
end loop;
end;
procedure read_data
is
v_date date;
v_val number;
O_TAB SYS_REFCURSOR;
begin
z_test2.read_data(O_TAB);
loop
fetch O_tab into v_date,v_val;     
     exit when O_tab%notfound;
     dbms_output.put_line(v_date||' - '||v_val);
end loop;
end;
end;
CREATE OR REPLACE package Z_Test2
as
procedure read_data(O_TAB OUT SYS_REFCURSOR);
end;
CREATE OR REPLACE package body Z_Test2
as
procedure populate_data(O_TAB OUT SYS_REFCURSOR)
is
v_tab T_VALUE_DATE := T_VALUE_DATE();
begin
v_tab.extend;
v_tab(v_tab.last) := R_VALUE_DATE(sysdate,1);
v_tab.extend;
v_tab(v_tab.last) := R_VALUE_DATE(sysdate+1,2);
v_tab.extend;
v_tab(v_tab.last) := R_VALUE_DATE(sysdate+3,3);
OPEN O_TAB FOR SELECT * FROM TABLE(v_tab);
end;
procedure read_data(O_TAB OUT SYS_REFCURSOR)
is
v_test number(1) := 0;
begin
populate_data(O_TAB);
v_test := 1;
end;
end;
I don't understand why when I call Z_TEST.READ_DATA2 it works and when I call Z_TEST.READ_DATA it does not work.
Message was edited by:
Zabo

Answer 1

I simplify my example.
I have the 2 following packages.
When I call T2.P3, I got the following errors ORA-06504.
What I am doing wrong ?
Thks.
CREATE OR REPLACE package T1
is
procedure P1(RST OUT SYS_REFCURSOR);
procedure P2(RST OUT SYS_REFCURSOR);
end;
CREATE OR REPLACE package body T1
is
procedure P1(RST OUT SYS_REFCURSOR)
is
begin
OPEN RST FOR SELECT 1 FROM DUAL;
end;
procedure P2(RST OUT SYS_REFCURSOR)
is
v_rst number(1);
begin
P1(RST);
loop
fetch RST into v_rst;
exit when RST%NOTFOUND;
dbms_output.put_line(v_rst);
end loop;
end;
end;
CREATE OR REPLACE package T2
is
procedure P3;
end;
CREATE OR REPLACE package body T2
is
procedure P3
is
RST SYS_REFCURSOR;
v_rst number(1);
begin
T1.P2(RST);
loop
fetch RST into v_rst;
exit when RST%NOTFOUND;
dbms_output.put_line(v_rst);
end loop;
end;
end;
Message was edited by:
Zabo