--刪除測試 PKG

--DROP PACKAGE SL_PKG_TEST;

--PKG頭文件

CREATE OR REPLACE PACKAGE SL_PKG_TEST IS

--*******************************************************************************************

--功能說明: 測試用PKG

--參數(shù)說明: 輸入

-- P_APPLY_NO VARCHAR2 XXX 號

--輸出

-- p_o_flag OUT VARCHAR2 執(zhí)行結(jié)果：Y-成功；N-失敗；

-- p_o_msg OUT VARCHAR2 結(jié)果描述

--調(diào)用函數(shù):

--修改記錄： 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

--參數(shù)說明: 輸入

-- P_APPLY_NO VARCHAR2 XXX 號

--輸出

-- p_o_flag OUT VARCHAR2 執(zhí)行結(jié)果：Y-成功；N-失敗；

-- p_o_msg OUT VARCHAR2 結(jié)果描述

--調(diào)用函數(shù):

--修改記錄： create by zyl 2013.9.10

--

--*******************************************************************************************

PROCEDURE DEMO_1(P_APPLY_NO VARCHAR2,

P_O_FLAG OUT VARCHAR2,

P_O_MESG OUT VARCHAR2) IS

--網(wǎng)點(diǎn)代碼

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;

總結(jié)

以上是生活随笔為你收集整理的oracle 修改pkg命令,Oracle PKG创造的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。