PROCEDURE 暗黙カーソル
(
PM_STRING IN VARCHAR2
)
/**********************************************************/
/* 変数の定義 */
/**********************************************************/
AS
/**********************************************************/
/* 処理開始 */
/**********************************************************/
BEGIN
DBMS_OUTPUT.PUT_LINE('デバッグ:開始');
DBMS_OUTPUT.PUT_LINE('デバッグ:引数:'||PM_STRING);
UPDATE 社員マスタ SET 更新日 = sysdate WHERE 社員コード = PM_STRING;
IF SQL%FOUND THEN -- 更新が実行された
DBMS_OUTPUT.PUT_LINE('対象者あり');
ELSE
DBMS_OUTPUT.PUT_LINE('対象者なし');
END IF;
/**********************************************************/
/* 一番外側のブロックの例外処理 */
/**********************************************************/
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('例外発生:'||SQLCODE||':'||SQLERRM);
END;
|