oracle返回多个参数

CREATE OR REPLACE PACKAGE BODY get_form_no_pub IS

/*====================================================================================================
包入口 :
用途说明 : 取单据序号
创建者 : Leon.Duan
创建时间 : 2014/12/4 19:34:50
====================================================================================================*/

PROCEDURE main(p_form_type IN VARCHAR2 --单据类型
,p_form_date IN DATE --单据日期
,p_org_id IN NUMBER DEFAULT NULL --库存组织ID
,x_ret_data OUT SYS_REFCURSOR) IS
v_proc_name VARCHAR2(80);
v_form_no VARCHAR(80);
v_ret_code VARCHAR(80);
v_ret_msg VARCHAR(4000);
BEGIN
v_proc_name := 'biz_get_form_no.main';

--调用单号产生函数
v_form_no := biz_get_form_no.main(p_form_type
,p_form_date
,p_org_id
,v_ret_code
,v_ret_msg);

OPEN x_ret_data FOR
SELECT v_form_no AS "FORM_NO"
,v_ret_code AS "RET_CODE"
,v_ret_msg AS "RET_MSG"
FROM dual;

EXCEPTION
WHEN OTHERS THEN

v_ret_code := '';
v_ret_msg := SQLERRM || '(' || v_proc_name || ')';
v_form_no := '';

OPEN x_ret_data FOR
SELECT v_form_no AS "FORM_NO"
,v_ret_code AS "RET_CODE"
,v_ret_msg AS "RET_MSG"
FROM dual;

END main;

END get_form_no_pub;