将一个光标分配给另一个光标并循环遍历 for 循环

Question

我在包规范中有一个光标，如下所示

Create package pkgname 
is 
      Cursor C1(report_date date) is                select * from some_table where some_date=report_date;
   procedure proc(repdate date)
end;

我想要一个功能，将这个光标 C1 分配给同一包体的过程中的其他光标。

    Create package body pkgname is
    
         Procedure proc(repdate date)
         Is 
              Cursor C2 is C1(repdate);
    
                  Begin
                      for j in C2 loop
                          --do some task;
                      end loop;
        End;
End;

Answer 1

你为什么要这样做？如果您在包规范中声明了光标，只需在包正文中使用它。例如：

SQL> create or replace package pkg_test as
  2    cursor c1 (par_job varchar2) is
  3      select empno, ename from emp
  4      where job = par_job;
  5    procedure proc (par_job in varchar2);
  6  end;
  7  /

Package created.

SQL> create or replace package body pkg_test as
  2    procedure proc (par_job in varchar2) is
  3    begin
  4      for cur_r in pkg_test.c1(par_job) loop                      --> here it is!
  5        dbms_output.put_line(cur_r.empno ||' '|| cur_r.ename);
  6      end loop;
  7    end;
  8  end;
  9  /

Package body created.

SQL> set serveroutput on
SQL> exec pkg_test.proc('CLERK');
7369 SMITH
7876 ADAMS
7900 JAMES

PL/SQL procedure successfully completed.

SQL>