Không trực tiếp, không.
SYS_REFCURSOR là một con trỏ đến một kết quả-- điều duy nhất bạn có thể làm với điều đó là tìm nạp dữ liệu. Bạn không thể sửa đổi tập hợp kết quả.
P_PROC2 có thể tìm nạp dữ liệu từ SYS_REFCURSOR, đưa ra các truy vấn để lấy dữ liệu bổ sung từ một số bảng khác và trả lại thứ gì đó cho người gọi. Tại thời điểm đó, tôi sẽ có xu hướng ủng hộ việc biến P_PROC2 thành một hàm bảng pipelined. Nhưng bạn chỉ có thể trả lại một bộ sưu tập với dữ liệu đã sửa đổi trong đó.
Nếu p_proc2 thực sự cần trả về REF CURSOR, bạn có thể tìm nạp dữ liệu từ REF CURSOR của p_proc1 vào một bảng tạm thời chung và sau đó mở một con trỏ mới trong p_proc2 để truy vấn bảng tạm thời chung này và thực hiện bất kỳ thao tác bổ sung nào bạn muốn. Một cái gì đó giống như
SQL> create global temporary table tmp_emp
2 as
3 select empno, ename, deptno from emp where 1=2;
Table created.
SQL> create or replace procedure p1( p_cur1 out sys_refcursor )
2 as
3 begin
4 open p_cur1 for select * from emp;
5 end;
6 /
Procedure created.
SQL> ed
Wrote file afiedt.buf
1 create or replace procedure p2( p_cur2 out sys_refcursor )
2 as
3 l_cur1 sys_refcursor;
4 l_rec emp%rowtype;
5 begin
6 p1( l_cur1 );
7 loop
8 fetch l_cur1 into l_rec;
9 exit when l_cur1%notfound;
10 insert into tmp_emp( empno, ename, deptno ) values( l_rec.empno, l_rec
ename, l_rec.deptno );
11 end loop;
12 open p_cur2 for
13 select empno, ename, dname
14 from tmp_emp,
15 dept
16 where dept.deptno = tmp_emp.deptno;
17* end;
SQL> /
Procedure created.
SQL> variable rc refcursor;
SQL> exec p2( :rc );
PL/SQL procedure successfully completed.
SQL> print rc
EMPNO ENAME DNAME
---------- ---------- --------------
7839 KING ACCOUNTING
7934 MILLER ACCOUNTING
7782 CLARK ACCOUNTING
7369 smith RESEARCH
7902 FORD RESEARCH
7876 ADAMS RESEARCH
7788 SCOTT RESEARCH
7566 JONES RESEARCH
7900 JAMES SALES
7499 ALLEN SALES
7698 BLAKE SALES
EMPNO ENAME DNAME
---------- ---------- --------------
7654 MARTIN SALES
7844 TURNER SALES
7521 WARD SALES
14 rows selected.
