oracle 修改pkg命令,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;