|
CREATE OR REPLACE FUNCTION GET_CODE_NAME
(
PM_KUBN IN VARCHAR2 /* 区分 */
,PM_CODE IN VARCHAR2 /* コード */
)
RETURN VARCHAR2 /* 戻り値の定義 */
/**********************************************************/
/* 変数の定義 */
/**********************************************************/
AS
RET_VALUE VARCHAR2(2000);
WK_VALUE VARCHAR2(2000);
/**********************************************************/
/* 処理開始 */
/**********************************************************/
BEGIN
DBMS_OUTPUT.PUT_LINE('デバッグ:開始');
select 名称 into RET_VALUE
from コード名称マスタ
where 区分 = PM_KUBN
and コード = PM_CODE;
RETURN RET_VALUE;
/**********************************************************/
/* 一番外側のブロックの例外処理 */
/**********************************************************/
EXCEPTION
WHEN OTHERS THEN
RET_VALUE := '例外発生:'||SQLCODE||':'||SQLERRM;
RETURN RET_VALUE;
END;
/
| |