PL SQL For 循环 Sys_RefCursor

我正在使用 Oracle 12c。在 PL/SQL 中我可以做到这一点

set serveroutput on
declare
begin
  for x in (select 1 as y from dual) loop
    dbms_output.put_line(x.y);
  end loop;
end;

我也可以做这个...

set serveroutput on
declare
  cursor c1 is
    select 1 as y from dual;
begin
  for x in c1 loop
    dbms_output.put_line(x.y);
  end loop;
end;

到目前为止，一切都很好。但是我可以使用 sys_refcursor 来做到这一点吗？我知道我可以使用 fetch/while 循环来完成此操作，但更喜欢 for 循环语法（我认为它更干净）...

set serveroutput on
declare
  cur sys_refcursor;
begin
  cur := Package.GetData(1234);
  fetch cur into y;
  while cur%FOUND loop
    dbms_output.put_line(y);
    fetch cur into y;
  end loop;
end;

我想要做...

set serveroutput on
declare
  cur sys_refcursor;
begin
  cur := PACKAGE.GetData(1234); -- This returns a sys_refcursor
  for x in cur loop
    dbms_output.put_line(x.y);
  end loop;
end;

Error report -
ORA-06550: line 5, column 16:
PLS-00221: 'cur' is not a procedure or is undefined

是否有一种机制可以通过 sys_refcursor 循环（而不是 fetch into/while 循环）？也许 12c 中有一些我不知道的新奇东西......？

SYS_REFCURSOR只是一个预先声明的弱引用游标。没有这样的机制可以循环sys_refcursor无需获取。此外，您不能将弱引用游标与普通游标进行比较，并且它们的工作方式不同。它是分配用于临时保存结果的缓冲区空间。当您运行以下语句时PLSQL block, PLSQL引擎不理解它PLSQL变量并抛出错误

for x in cur 循环

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

除此之外，由于您没有定义以下语句，因此也会失败OUT如果包返回一个参数SYS_REFCURSOR.

cur := PACKAGE.GetData(1234);

您可以获取的内容SYS_REFCURSOR然后显示如下：

declare
  a  SYS_REFCURSOR;
  v_emp_id  employee.emp_id%type;
begin         
  --- This is a procedure with OUT parameter as SYS_REFCURSOR
  dynmc_selec(emp_output=>a);

  loop
    FETCH a INTO v_emp_id;
    EXIT WHEN a%NOTFOUND;
    DBMS_OUTPUT.PUT_LINE(v_emp_id );

  end loop;
end;