FUNCTION ORA_FUNC_01
(
PM_STRING IN VARCHAR2 /* 引数の定義 */
)
RETURN VARCHAR2 /* 戻り値の定義 */
/**********************************************************/
/* 変数の定義 */
/**********************************************************/
AS
RET_VALUE VARCHAR2(2000);
WK_VALUE VARCHAR2(2000);
/**********************************************************/
/* 処理開始 */
/**********************************************************/
BEGIN
RET_VALUE := PM_STRING;
DBMS_OUTPUT.PUT_LINE('デバッグ:'||RET_VALUE);
RETURN RET_VALUE;
/**********************************************************/
/* 一番外側のブロックの例外処理 */
/**********************************************************/
EXCEPTION
WHEN OTHERS THEN
RET_VALUE := '例外発生:'||SQLCODE||':'||SQLERRM;
RETURN RET_VALUE;
END;
|