sql >> Databasteknik >  >> RDS >> Oracle

Hur hämtar jag värden från en kapslad Oracle-procedur?

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.



  1. Viloläge användning av PostgreSQL-sekvensen påverkar inte sekvenstabellen

  2. Skiftlägeskänslig RLIKE

  3. Trädvyskontroll Markera Lägg till Ta bort noder

  4. Beställa artiklar i MySQL med en fast lista?