PL/SQL - 嵌套游标 cursor

SQL> declare
  2    -- 嵌套定义游标
  3    cursor cur_test2 is
  4      select id, name, cursor(select a, cursor(select * from dual)
  5                                          from test1
  6                                        where test1.a = test2.id)
  7        from test2;
  8    cur_test1 sys_refcursor;
  9    cur_dual  sys_refcursor;
 10    rec_test1 test1%rowtype;
 11    rec_test2 test2%rowtype;
 12    rec_dual varchar2(10);
 13  begin
 14    open cur_test2;
 15    loop
 16      fetch cur_test2 into rec_test2.id, rec_test2.name, cur_test1;
 17      exit when cur_test2%notfound;
 18      dbms_output.put_line( 'rec_test2.id: ' || rec_test2.id || '   rec_test2.name: ' || rec_test2.name);
 19      -- 这里不需要再显式 OPEN 游标 cur_test1，也不需要显式关闭
 20      loop
 21        fetch cur_test1 into rec_test1.a, cur_dual;
 22        exit when cur_test1%notfound;
 23        dbms_output.put_line( 'rec_test1.a: ' || rec_test1.a );
 24        -- 这里不需要再显式 OPEN 游标 cur_dual，也不需要显式关闭
 25        loop
 26          fetch cur_dual into rec_dual;
 27          exit when cur_dual%notfound;
 28          dbms_output.put_line( 'rec_dual: ' || rec_dual );
 29        end loop;
 30      end loop;
 31    end loop;
 32    close cur_test2;
 33  end;
 34  /
rec_test2.id: 1   rec_test2.name: yuechaotian1
rec_test1.a: 1
rec_dual: X
rec_test1.a: 1
rec_dual: X
rec_test2.id: 2   rec_test2.name: yuechaotian2
rec_test1.a: 2
rec_dual: X
rec_test2.id: 3   rec_test2.name: yuechaotian3
rec_test1.a: 3
rec_dual: X
rec_test2.id: 4   rec_test2.name: yuechaotian4
rec_test2.id: 5   rec_test2.name: yuechaotian5

 

PL/SQL 过程已成功完成。

SQL> select * from test2;

 

        ID NAME
---------- ---------------------------
         1 yuechaotian1
         2 yuechaotian2
         3 yuechaotian3
         4 yuechaotian4
         5 yuechaotian5
         6 yuechaotian6
         7 yuechaotian7
         8 yuechaotian8
         9 yuechaotian9
        10 yuechaotian10

 

已选择10行。

 

SQL> select * from test1 order by a;

 

         A
----------
         1
         1
         1
         2
         2
         3
         3
         4
         5
         6

 

已选择10行。