这里是一个Oracle存储过程返回游标的用法示例，我们要得到一个字符串v_str， 用到了一个自定义游标变量type_refcursor，存储过程返回的游标包含四个四段，我们定义了一个record用于接收。

DECLARE v_str VARCHAR2(1000);
o_result type_refcursor;
TYPE ref_record IS RECORD
(
ID NUMBER(10),
APPROVER_SEQUENCE NUMBER(10),
APPROVER_ID VARCHAR2(90),
APPROVER_NAME VARCHAR2(500)
);
o_record ref_record;

BEGIN

--下面这句是调用存储过程，
LIST_APPROVELIST ('27b4d47ec9a449a7a9038b68e48cc0', 'Employee', o_result);
   LOOP
   FETCH o_result INTO o_record;
   EXIT WHEN o_result%NOTFOUND;
   v_str := v_str || TO_CHAR(o_record.APPROVER_SEQUENCE) || '.' || o_record.APPROVER_NAME || ' ';
   END LOOP;
   CLOSE o_result;
DBMS_OUTPUT.PUT_LINE(v_str);
END;

存储过程的定义：

PROCEDURE list_approvelist (p_emp_id   IN     VARCHAR2,
                               p_type     IN     VARCHAR2 DEFAULT 'Employee',
                               o_result      OUT type_refcursor
                              )
   IS
      v_matrix_type       VARCHAR2 (36);
      v_is_custom_level   VARCHAR2 (1);
   BEGIN
      approve_model_approvelist.get_serialize_approvelist (p_type, p_emp_id);

      IF (UPPER (p_type) = 'EMPLOYEE')
      THEN
         BEGIN
            OPEN o_result FOR

……

下面是返回游标的两种用法：

一种是声明系统游标,一种是声明自定义游标,然后后面操作一样,参数类型为
in out 或out
(1)声明个人系统游标.(推荐)
create or replace p_temp_procedure
(
    cur_arg out sys_refcursor;     --方法1
)
begin
    open cur_arg for select * from tablename;
end
调用
declare
    cur_calling sys_refcursor;
begin
    p_temp_procedure(cur_calling);  --这样这个游标就有值了
    for rec_next in cur_calling loop
     ....
    end loop;
end;

(2)在包头中申明一个游表类型,然后调用者申明一个这个类型的游标变量,传给返回游标的存储过程 ,存储过程out这个结果集,这种方法很麻烦.游标类型不能像索引表一样使用create or replace type方法来创建,所以只能在包中申明,并且需要使用/来执行,后面的存储过程才认这个游标类型.(不推荐,但是建议要知道并且要会这种方式,毕竟它有它存在的道理)
--定义全局变量
create or replace package pkg_package
as
    type type_cursor is ref cursor;
    type type_record is record
    (
        test01 varchar2(32),
        test02 varchar2(32),
        test03 varchar2(32)
    );
end;
/
--创建返回游标的存储过程
create or replace procedure p_temp_procedure
(
    cur_out_arg out pkg_package.type_cursor
)
is
begin
    open cur_out_arg for select * from test;
end;
/
--调用
declare
    cur_out_arg pkg_package.type_cursor;
    rec_arg pkg_package.type_record;
begin
    p_temp_procedure(cur_out_arg);
    fetch cur_out_arg into rec_arg;
    dbms_output.put_line(rec_arg.test01);
    dbms_output.put_line(rec_arg.test02);
    dbms_output.put_line(rec_arg.test03);
end;