Comment obtenez-vous bien mis en forme les résultats d'un Oracle procédure qui retourne une référence curseur?

Si GetQuestions est une fonction retournant un refcursor, qui semble être ce que vous avez dans la version de SQL Server, puis assez vous pouvez être en mesure de faire quelque chose comme ceci:

select * from table(MyPackage.GetQuestions('OMG Ponies'));

Ou si vous en avez besoin dans une PL/SQL bloc, alors vous pouvez utiliser le même sélectionner dans un curseur.

Vous pouvez aussi avoir la fonction de produire de l' dbms_output plutôt les instructions de sorte qu'ils sont toujours disponibles pour le débogage, bien que cela ajoute un peu de surcharge.

Modifier

Hmmm, pas sûr que c'est possible de cast() le retour de l'refcursor à un produit de type, sauf si vous êtes prêts à déclarer votre propre type (et un tableau de ce type) à l'extérieur du colis. Vous pouvez faire cela, juste pour vider les résultats:

create package mypackage as
    function getquestions(user in varchar2) return sys_refcursor;
end mypackage;
/

create package body mypackage as
    function getquestions(user in varchar2) return sys_refcursor as
        r sys_refcursor;
    begin
        open r for
            /* Whatever your real query is */
            select 'Row 1' col1, 'Value 1' col2 from dual
            union
            select 'Row 2', 'Value 2' from dual
            union
            select 'Row 3', 'Value 3' from dual;
            return r;
    end;
end mypackage;
/

var r refcursor;
exec :r := mypackage.getquestions('OMG Ponies');
print r;

Et vous pouvez utiliser le résultat de l'appel à une autre procédure ou de fonction; c'est juste à l'extérieur PL/SQL qui semble être un peu délicat.

Edité pour ajouter: Avec cette méthode, si c'est une procédure que vous pouvez faire essentiellement la même chose:

var r refcursor;
exec mypackage.getquestions(:r, 'OMG Ponies');
print r;

OriginalL'auteur

/*
    Create Sample Package in HR Schema
*/

CREATE OR REPLACE PACKAGE PRINT_REF_CURSOR
AS
    PROCEDURE SP_S_EMPLOYEES_BY_DEPT (
        p_DEPARTMENT_ID   IN  INTEGER,
        Out_Cur OUT SYS_REFCURSOR); 

END PRINT_REF_CURSOR;        

CREATE OR REPLACE PACKAGE BODY PRINT_REF_CURSOR
AS

    PROCEDURE SP_S_EMPLOYEES_BY_DEPT (
        p_DEPARTMENT_ID   IN  INTEGER,
        Out_Cur OUT SYS_REFCURSOR)
    AS 
    BEGIN
      OPEN Out_Cur FOR
           SELECT *
             FROM EMPLOYEES
             WHERE DEPARTMENT_ID = p_DEPARTMENT_ID;
    EXCEPTION
      WHEN NO_DATA_FOUND
      THEN
         DBMS_OUTPUT.Put_Line('SP_S_EMPLOYEES_BY_DEPT' || ',' || '-20000' || ',' );
      WHEN OTHERS
      THEN
         DBMS_OUTPUT.Put_Line('SP_S_EMPLOYEES_BY_DEPT' || ',' || '-20001' || ',' );    
    END SP_S_EMPLOYEES_BY_DEPT;         

END PRINT_REF_CURSOR;    

/*
    Fetch values using Ref Cursor and display it in grid.
*/

var RC refcursor;

DECLARE 
    p_DEPARTMENT_ID NUMBER;
    OUT_CUR SYS_REFCURSOR;

BEGIN 
  p_DEPARTMENT_ID := 90;
  OUT_CUR := NULL;

  PRINT_REF_CURSOR.SP_S_EMPLOYEES_BY_DEPT ( p_DEPARTMENT_ID, OUT_CUR);
  :RC := OUT_CUR;

END;
/
PRINT RC;  
/************************************************************************/  

OriginalL'auteur