如何将plsql表类型值获取到refcursor

时间:2018-10-06 07:22:50

标签: oracle plsql plsqldeveloper

我正在尝试创建一个过程,在该过程中正在调用另一个过程,并且该过程返回pl / sql表类型。如何将plsql表的值收集到ref游标中并作为OUT类型的refcursor返回。请帮忙。

谢谢!

我有这段代码:p_rec是表类型

DECLARE

p_rec PORTAL_LOAD_PKG.header_tab@test_link;
p_status VARCHAR2(200);

BEGIN

DASHBOARD_PRC@test_link('XYZ LIMITED', p_rec, p_status);

END;

以上代码工作正常,但是我的要求是创建一个返回refcursor中p_rec值的过程。

1 个答案:

答案 0 :(得分:0)

  

最终解决。

首先,我们必须在本地创建对象和表类型。对象定义应  与在远程数据库上声明的记录类型相同。

CREATE OR REPLACE TYPE dashboard_obj AS OBJECT (
    i_num         VARCHAR2(500),
    desc          VARCHAR2(1000),
    od_num        VARCHAR2(200),
    i_amount      NUMBER,
    amount_paid   NUMBER,
    status        VARCHAR2(200),
    terms_date    DATE,
    i_id          NUMBER,
    v_id          NUMBER
);

之后,创建该对象的表类型。

CREATE OR REPLACE TYPE tab1 IS
    TABLE OF dashboard_obj;

现在创建过程:

    CREATE OR REPLACE PROCEDURE proc_test (
        recordset OUT SYS_REFCURSOR
    ) IS

        p_rec      portal_load_pkg.header_tab@test_link;
        p_status   VARCHAR2(200);
        obj        dashboard_obj;
        v_tab      tab1 := tab1 ();
    BEGIN
        dashboard_prc@test_link ( 'XYZ LIMITED',p_rec,p_status );
        FOR i IN 1.._rec.count LOOP
            v_tab.extend;
            v_tab(v_tab.count) := dashboard_obj(p_rec(i).i_num,
                                                p_rec(i).desc,
                                                p_rec(i).od_num,
                                                p_rec(i).i_amount,
                                                p_rec(i).amount_paid,
                                                p_rec(i).status,
                                                p_rec(i).terms_date,
                                                p_rec(i).i_id,
                                                p_rec(i).v_id
                                               );

        END LOOP;

        OPEN recordset FOR SELECT
                              *
                          FROM
                              TABLE ( v_tab );

    END;
  

如果还有其他解决方法,请告诉我。谢谢!