Du verkar vilja slå samman ett okänt antal SYS_REFCURSOR
resultatuppsättningar till en stor. Om du känner till strukturen för markören som returneras från spSelect_Inv_Search
du kan göra detta med en mellanliggande pipelined funktion.
create package p as
type tmp_rec_type is record (owner all_objects.owner%type,
object_type all_objects.object_type%type,
objects number);
type tmp_rec_table is table of tmp_rec_type;
procedure proc1(p_owner in varchar2, p_cursor out sys_refcursor);
function func2 return tmp_rec_table pipelined;
procedure proc3(p_cursor out sys_refcursor);
end;
/
Typerna kan definieras här, de behöver inte vara på SQL-nivå eftersom du aldrig behöver referera till dem utanför paketet.
create package body p as
procedure proc1(p_owner in varchar2, p_cursor out sys_refcursor) as
begin
open p_cursor for select owner, object_type, count(*)
from all_objects
where owner = p_owner
group by owner, object_type;
end;
function func2 return tmp_rec_table pipelined as
cursor c1 is select distinct owner
from all_tables where owner in ('SYS','SYSTEM');
tmp_cursor sys_refcursor;
tmp_rec tmp_rec_type;
begin
for r1 in c1 loop
proc1(r1.owner, tmp_cursor);
loop
fetch tmp_cursor into tmp_rec;
exit when tmp_cursor%notfound;
pipe row(tmp_rec);
end loop;
end loop;
end;
procedure proc3(p_cursor out sys_refcursor) as
begin
open p_cursor for select * from table(func2);
end;
end p;
/
För att sedan köra, vilket du kan göra utanför paketet trots de typer som används för mellanstadiet, kan du göra detta för att testa i SQL*Plus eller SQL Developer:
var rc refcursor;
exec p.proc3(:rc);
print rc;
För min databas ger detta:
OWNER OBJECT_TYPE OBJECTS
------------------------------ ------------------- ----------------------
SYSTEM VIEW 1
SYSTEM TABLE 5
SYS VIEW 1056
SYS CONSUMER GROUP 2
SYS PROCEDURE 11
SYS FUNCTION 56
SYS SEQUENCE 1
SYS OPERATOR 6
SYS EVALUATION CONTEXT 1
SYS TABLE 13
SYS WINDOW GROUP 1
SYS PACKAGE 162
SYS WINDOW 2
SYS TYPE 529
SYS JOB CLASS 1
SYS SCHEDULE 1
Detta är uppenbarligen väldigt konstruerat eftersom du skulle göra det här som en enda fråga, men jag antar att din inre procedur behöver göra något mer komplicerat.