Как получить хорошо отформатированные результаты из процедуры Oracle, которая возвращает ссылку на указатель?

Ответ 1

Если GetQuestions - это функция, возвращающая refcursor, что похоже на то, что у вас есть в версии SQL Server, скорее, вы можете сделать что-то вроде этого:

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

Или, если вам это нужно в блоке PL/SQL, вы можете использовать тот же самый выбор в курсоре.

Вы также можете использовать функцию для операторов dbms_output, поэтому они всегда доступны для отладки, хотя это добавляет немного накладных расходов.

Изменить

Хммм, не уверен, что cast() возвращенный refcursor к используемому типу, если вы не захотите объявить свой собственный тип (и таблицу этого типа) вне пакета. Вы можете сделать это, хотя, чтобы свалить результаты:

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;

И вы можете использовать результат вызова в другой процедуре или функции; он просто подходит к нему за пределами PL/SQL, что кажется немного сложным.

Отредактировано для добавления: При таком подходе, если это процедура, вы можете сделать практически то же самое:

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

Ответ 2

SQL Developer автоматически улавливает вывод из запуска хранимых процедур. Запуск хранимой процедуры непосредственно из нашего редактора процедур, вы можете увидеть это поведение подробно в моем сообщении здесь

Совет разработчика SQL: просмотр вывода REFCURSOR

Теперь, если вы хотите запустить refcursor как часть блока анонов в нашем рабочем листе SQL, вы можете сделать что-то похожее на это

var rc refcursor
exec :rc := GET_EMPS(30)
print rc

- где GET_EMPS() будет вашим вызовом sp_GetQuestions ( "OMG Ponies" ). Команда PRINT отправляет результат из запроса, который запускается через хранимую процедуру, и выглядит следующим образом:

anonymous block completed
RC
-----------------------------------------------------------------------------------------------------
EMPLOYEE_ID FIRST_NAME           LAST_NAME                 EMAIL                     PHONE_NUMBER         HIRE_DATE                 JOB_ID     SALARY     COMMISSION_PCT MANAGER_ID DEPARTMENT_ID 
----------- -------------------- ------------------------- ------------------------- -------------------- ------------------------- ---------- ---------- -------------- ---------- ------------- 
114         Den                  Raphaely                  DRAPHEAL                  515.127.4561         07-DEC-94 12.00.00        PU_MAN     11000                     100        30            
115         Alexander            Khoo                      AKHOO                     515.127.4562         18-MAY-95 12.00.00        PU_CLERK   3100                      114        30            
116         Shelli               Baida                     SBAIDA                    515.127.4563         24-DEC-97 12.00.00        PU_CLERK   2900                      114        30            
117         Sigal                Tobias                    STOBIAS                   515.127.4564         24-JUL-97 12.00.00        PU_CLERK   2800                      114        30            
118         Guy                  Himuro                    GHIMURO                   515.127.4565         15-NOV-98 12.00.00        PU_CLERK   2600                      114        30            
119         Karen                Colmenares                KCOLMENA                  515.127.4566         10-AUG-99 12.00.00        PU_CLERK   2500                      114        30            

Теперь вы сказали 10g. Если вы находитесь в 12c, мы улучшили механизм PL/SQL для поддержки неявных результатов курсора. Таким образом, это становится немного легче, больше не настраивая курсор, вы просто делаете вызов для получения данных, как описано здесь:  http://docs.oracle.com/database/121/DRDAA/migr_tools_feat.htm#DRDAA230

Ответ 3

/*
    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;  
/************************************************************************/