Zdá se, že chcete sloučit neznámé číslo SYS_REFCURSOR
výsledek se soustředí do jednoho velkého. Pokud znáte strukturu kurzoru vráceného z spSelect_Inv_Search
můžete to udělat pomocí mezilehlé zřetězené funkce.
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;
/
Typy lze definovat zde, nemusí být na úrovni SQL, protože na ně nikdy nebudete muset odkazovat mimo balíček.
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;
/
Poté spusťte, což můžete provést mimo balíček navzdory typům použitým pro přechodnou fázi, můžete to udělat pro testování v SQL*Plus nebo SQL Developer:
var rc refcursor;
exec p.proc3(:rc);
print rc;
Pro moji databázi to dává:
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
To je samozřejmě velmi vymyšlené, protože byste to udělali jako jeden dotaz, ale předpokládám, že váš vnitřní postup musí udělat něco složitějšího.