oracle cursor for all,Oracle 函数 返回游标

createor replace function FUN_STD_CODE_TRANS_NEW(iv_code_desc invarchar2,

iv_cate_desc invarchar2,

iv_code invarchar2)return SYS_REFCURSOR is--*****************************************************************************-- CopyRight (c) 2010, XX *-- All rights reserved. *-- *-- 文件名称 : FUN_STD_CODE_TRANS.fnc *-- 摘 要 : 根据中文描述返回标准编码； *-- 输入参数说明 : iv_code_desc 标准码中文描述 *-- iv_cate_desc 标准码所属类型中文描述 *-- iv_code 标准码参考 *-- ov_code 标准码返回值 *--输出结果说明：返回标准码 *-- 当前版本 : V1.0.0 *-- 作 者 : fly *-- 完成日期 : 2010/08/18 *-- 错误码段 : *--*****************************************************************************

ov_code SYS_REFCURSOR;

v_code_desc varchar2(1000);

v_cate_desc varchar2(1000);begin--如果找到的结果与参考的不一致,返回新编码

v_code_desc := '%' || iv_code_desc || '%';

v_cate_desc := '%' || iv_cate_desc || '%';OPEN ov_code forselect t1.code_id--into ov_codefrom tfo_f_cm_std_code t1where t1.cate_id in (select t2.cate_idfrom tfo_f_cm_std_cate t2wheretrim(t2.cate_des) like v_cate_descand t2.cate_stat = '1' --有效标志为1的生效

)and t1.code_stat = '1' --有效标志为1的生效and t1.code_des like v_code_desc;return(ov_code);exception--如果没有找到直接返回标准码参考when NO_DATA_FOUND then

dbms_output.put_line('未找到直接返回标准码参考：' || iv_code);--return(iv_code);when others then

dbms_output.put_line('发生异常 错误码：' || sqlcode || SQLERRM);end FUN_STD_CODE_TRANS_NEW;