FUNCTION ERR_TEST_01 ( PM_STRING IN VARCHAR2 /* 引数の定義 */ ) RETURN VARCHAR2 /* 戻り値の定義 */ /**********************************************************/ /* 変数の定義 */ /**********************************************************/ AS RET_VALUE VARCHAR2(2000); WK_VALUE VARCHAR2(1); /**********************************************************/ /* 処理開始 */ /**********************************************************/ BEGIN WK_VALUE := PM_STRING; RETURN RET_VALUE; /**********************************************************/ /* 一番外側のブロックの例外処理 */ /**********************************************************/ EXCEPTION WHEN OTHERS THEN RET_VALUE := '例外発生:'||SQLCODE||':'||SQLERRM; RETURN RET_VALUE; END;
FUNCTION ERR_TEST_01 ( PM_STRING IN VARCHAR2 /* 引数の定義 */ ) RETURN VARCHAR2 /* 戻り値の定義 */ /**********************************************************/ /* 変数の定義 */ /**********************************************************/ AS RET_VALUE VARCHAR2(2000); WK_VALUE NUMBER; /**********************************************************/ /* 処理開始 */ /**********************************************************/ BEGIN WK_VALUE := PM_STRING; RETURN RET_VALUE; /**********************************************************/ /* 一番外側のブロックの例外処理 */ /**********************************************************/ EXCEPTION WHEN OTHERS THEN RET_VALUE := '例外発生:'||SQLCODE||':'||SQLERRM; RETURN RET_VALUE; END;
select プロシージャ名, 更新日 into WK_プロシージャ名, WK_更新日 from PROC_LIST; RET_VALUE := WK_プロシージャ名 || '|' || WK_更新日; RETURN RET_VALUE;
FUNCTION ERR_TEST_02 ( PM_STRING IN VARCHAR2 /* 引数の定義 */ ) RETURN VARCHAR2 /* 戻り値の定義 */ /**********************************************************/ /* 変数の定義 */ /**********************************************************/ AS RET_VALUE VARCHAR2(2000); WK_VALUE VARCHAR2(2000); WK_プロシージャ名 PROC_LIST.プロシージャ名%TYPE; WK_更新日 PROC_LIST.更新日%TYPE; /**********************************************************/ /* 処理開始 */ /**********************************************************/ BEGIN select プロシージャ名, 更新日 into WK_プロシージャ名, WK_更新日 from PROC_LIST; RET_VALUE := WK_プロシージャ名 || '|' || WK_更新日; RETURN RET_VALUE; /**********************************************************/ /* 一番外側のブロックの例外処理 */ /**********************************************************/ EXCEPTION WHEN OTHERS THEN RET_VALUE := '例外発生:'||SQLCODE||':'||SQLERRM; RETURN RET_VALUE; END;
FUNCTION ERR_TEST_02 ( PM_STRING IN VARCHAR2 /* 引数の定義 */ ) RETURN VARCHAR2 /* 戻り値の定義 */ /**********************************************************/ /* 変数の定義 */ /**********************************************************/ AS RET_VALUE VARCHAR2(2000); WK_VALUE VARCHAR2(2000); WK_プロシージャ名 PROC_LIST.プロシージャ名%TYPE; WK_更新日 PROC_LIST.更新日%TYPE; /**********************************************************/ /* 処理開始 */ /**********************************************************/ BEGIN select プロシージャ名, 更新日 into WK_プロシージャ名, WK_更新日 from PROC_LIST where プロシージャ名 = PM_STRING; RET_VALUE := WK_プロシージャ名 || '|' || WK_更新日; RETURN RET_VALUE; /**********************************************************/ /* 一番外側のブロックの例外処理 */ /**********************************************************/ EXCEPTION WHEN OTHERS THEN RET_VALUE := '例外発生:'||SQLCODE||':'||SQLERRM; RETURN RET_VALUE; END;