一、示例
1.存储过程proc_A:定义如下:
create or replace procedure proc_A(ID number, cur_OUT out sys_refcursor) is
v_sql varchar2(2000);
Begin
v_sql:='select 总额, 自付, 自费 FROM 费用表 WHERE ID ='||ID;
open cur_OUT for v_sql;
End;
2.匿名过程调用proc_A,获取proc_A中的返回游标数据,并输出结果集。
Declare
--定义 记录 类型,用来接受 proc_A存储过程返回游标中的各列(总额、自付、自费)。
Type type_record is record (
总额 费用表.总额%type,
自付 费用表.自付%type,
自费 费用表.自费%type
);
row_record type_record;
c_out sys_refcursor;
begin
proc_A('123',c_cout);
fetch c_cout into row_record; --检索c_out数据到 记录变量中
dbms_output.put_line(row_r