从过程返回的 REF CURSOR 获取和批量收集

Question

我有一个以SYS_REFCURSOR 作为OUT 参数的存储过程。签名例如如下：

PROCEDURE myProc(p_someID IN INTEGER, p_cursor OUT SYS_REFCURSOR);

我从一个函数调用这个过程，我必须将一个名为 clientID 的列从 p_cursor 复制到一个标量嵌套表。

我的做法如下：

CREATE OR REPLACE FUNCTION myFunction
    RETURN sys_refcursor
IS
    someID      INTEGER       := 1234;
    myCursor    SYS_REFCURSOR;
    TYPE t_clientID_nt IS TABLE OF NUMBER(16,0);
    clientID_nt t_clientID_nt;
    otherID     SYS_REFCURSOR;
BEGIN
    myProc (someID, myCursor);
    FOR i IN myCursor
    LOOP
        clientID_nt.EXTEND;
        clientID_nt (clientID_nt.COUNT) := i.clientID;
    END LOOP;


    -- Other code that opens the cursor otherID
    -- based on the IDs in clientID_nt
    ...
    ... 
    RETURN otherID;
END;
/

当我尝试编译这个函数时，我得到的错误是：

PLS-00221: 'CLIENTID_NT' is not a procedure or is undefined

它位于代码的第 11 行。

非常感谢任何有关如何从此类游标中获取和批量收集的帮助。

Answer 1

不允许在 for 游标循环 (FOR i IN myCursor) 中使用游标变量。您必须一次显式地从游标变量中获取一行，例如使用FETCH INTO 语句和常规循环语句或使用FETCH BULK COLLECT INTO 来填充集合。例如：

SQL> declare
  2    TYPE t_clientID_nt IS TABLE OF dual%rowtype;
  3    clientID_nt t_clientID_nt;
  4  
  5    l_cur sys_refcursor;
  6  
  7    procedure OpenAndPopulateCursor(p_cur in out sys_refcursor) is
  8    begin
  9      open p_cur for
 10        select *
 11         from dual;
 12    end;
 13  
 14  begin
 15    OpenAndPopulateCursor(l_cur);
 16  
 17    if l_cur%isopen
 18    then
 19      fetch l_cur bulk collect into clientID_nt;
 20    end if;
 21  
 22    dbms_output.put_line(concat( to_char(clientID_nt.count) 
 23                               , ' record(s) has/have been fetched.'));
 24  end;
 25  /

 1 record(s) has/have been fetched.

 PL/SQL procedure successfully completed