Oracle PKG创建
--删除测试 PKG--DROP PACKAGE SL_PKG_TEST;--PKG头文件CREATE OR REPLACE PACKAGE SL_PKG_TEST IS --******************************************************************************************* --功能说明: 测试用PKG --参数说明: 输入 -- P_APPLY_NO VARCHAR2 XXX 号 --输出 -- p_o_flag OUT VARCHAR2 执行结果：Y-成功；N-失败； -- p_o_msg OUT VARCHAR2 结果描述 --调用函数: --修改记录： create by zyl 2013.9.10 -- --******************************************************************************************* PROCEDURE DEMO_1(P_APPLY_NO VARCHAR2, P_O_FLAG OUT VARCHAR2, P_O_MESG OUT VARCHAR2);END SL_PKG_TEST;--PKG 包体CREATE OR REPLACE PACKAGE BODY SL_PKG_TEST IS --******************************************************************************************* --功能说明: 测试用PKG --参数说明: 输入 -- P_APPLY_NO VARCHAR2 XXX 号 --输出 -- p_o_flag OUT VARCHAR2 执行结果：Y-成功；N-失败； -- p_o_msg OUT VARCHAR2 结果描述 --调用函数: --修改记录： create by zyl 2013.9.10 -- --******************************************************************************************* PROCEDURE DEMO_1(P_APPLY_NO VARCHAR2, P_O_FLAG OUT VARCHAR2, P_O_MESG OUT VARCHAR2) IS --网点代码 V_DEPT_NO VARCHAR2(20); BEGIN P_O_FLAG := 'Y'; P_O_MESG := '成功'; --异常处理 EXCEPTION WHEN OTHERS THEN P_O_FLAG := 'N'; P_O_MESG := '失败' || SQLCODE || SUBSTR(SQLERRM, 1, 150); END;END SL_PKG_TEST;
?
