【Oracle】ORA-04068 完全ガイド｜パッケージ状態が破棄されるエラーの原因・対処・PRAGMA SERIALLY_REUSABLE まで解説

-- パッケージ定義（グローバル変数を持つ）
CREATE OR REPLACE PACKAGE my_pkg AS
    g_count NUMBER := 0;    -- パッケージ変数（セッション単位で保持）
    PROCEDURE increment;
    FUNCTION get_count RETURN NUMBER;
END my_pkg;
/

CREATE OR REPLACE PACKAGE BODY my_pkg AS
    PROCEDURE increment IS
    BEGIN
        g_count := g_count + 1;
    END increment;

    FUNCTION get_count RETURN NUMBER IS
    BEGIN
        RETURN g_count;
    END get_count;
END my_pkg;
/

-- セッション A で使用中
BEGIN
    my_pkg.increment;
    my_pkg.increment;
    DBMS_OUTPUT.PUT_LINE(my_pkg.get_count);  -- → 2
END;
/

-- 別の DBA セッションがパッケージを再コンパイルする
ALTER PACKAGE my_pkg COMPILE BODY;

-- セッション A で再度呼び出す
BEGIN
    my_pkg.increment;  -- ← ここで ORA-04068 が発生する
END;
/
-- ORA-04068: existing state of packages ("HR"."MY_PKG") has been discarded
-- ORA-06512: at "HR.MY_PKG", line 4

-- もう一度呼び出すと成功する（状態がリセット済みのため）
BEGIN
    my_pkg.increment;  -- 成功（g_count は 0 にリセットされた後 1 になる）
END;
/

-- ORA-04068 は再試行で回復するため、例外ハンドラでリトライする
CREATE OR REPLACE PROCEDURE safe_call_with_retry AS
    v_retry_count NUMBER := 0;
    e_pkg_state_discarded EXCEPTION;
    PRAGMA EXCEPTION_INIT(e_pkg_state_discarded, -4068);  -- ORA-04068 の宣言
BEGIN
    LOOP
        BEGIN
            -- パッケージを呼び出す処理
            my_pkg.increment;
            EXIT;  -- 成功したらループを抜ける

        EXCEPTION
            WHEN e_pkg_state_discarded THEN
                v_retry_count := v_retry_count + 1;
                IF v_retry_count >= 3 THEN
                    RAISE;  -- 3回リトライしても失敗したら再送出
                END IF;
                -- 次のループで再試行する（2回目は通常成功する）
        END;
    END LOOP;
EXCEPTION
    WHEN OTHERS THEN
        DBMS_OUTPUT.PUT_LINE('エラー: ' || SQLERRM);
        RAISE;
END safe_call_with_retry;
/

-- Oracle の定義済み例外コード
-- ORA-04068: -4068 (existing state of packages has been discarded)
-- ORA-04061: -4061 (existing state of stored procedure has been invalidated)
-- ORA-04065: -4065 (not executed, altered or dropped ... procedure)
-- これらはいずれも再コンパイルや無効化に関連するエラー

-- SERIALLY_REUSABLE: パッケージ変数を各コールの後にリセットする
CREATE OR REPLACE PACKAGE stateless_pkg AS
    PRAGMA SERIALLY_REUSABLE;    -- ← 仕様部と本体の両方に必要

    g_temp_count NUMBER := 0;   -- 呼び出し終了時に 0 にリセットされる
    PROCEDURE process_batch(p_count NUMBER);
END stateless_pkg;
/

CREATE OR REPLACE PACKAGE BODY stateless_pkg AS
    PRAGMA SERIALLY_REUSABLE;    -- ← 本体にも必要

    PROCEDURE process_batch(p_count NUMBER) IS
    BEGIN
        g_temp_count := p_count;
        -- 処理...
        DBMS_OUTPUT.PUT_LINE('処理数: ' || g_temp_count);
        -- この PROCEDURE が終了すると g_temp_count は 0 に戻る
    END process_batch;
END stateless_pkg;
/

-- SERIALLY_REUSABLE パッケージは:
-- ・各コールの後に変数がリセットされるため、セッション間で状態を持たない
-- ・再コンパイルしても既存セッションに影響を与えにくい
-- ・パッケージ変数をセッション間のデータ保持に使えない

-- 注意: SERIALLY_REUSABLE パッケージのカーソルはコール間で持続しない
-- OPEN したカーソルはそのコール内で FETCH して CLOSE する必要がある

-- パッケージ状態を持つセッションを確認する（DBA 権限が必要）
-- V$DB_OBJECT_CACHE: PL/SQL オブジェクトのキャッシュ情報
SELECT name, namespace, type, locks, pins
FROM V$DB_OBJECT_CACHE
WHERE type IN ('PACKAGE', 'PACKAGE BODY')
  AND locks > 0;
-- locks > 0: このパッケージを参照しているセッションが存在する

-- 無効なパッケージを確認する（再コンパイルが必要なオブジェクト）
SELECT object_name, object_type, status, last_ddl_time
FROM DBA_OBJECTS
WHERE owner = 'HR'
  AND status = 'INVALID'
  AND object_type IN ('PACKAGE', 'PACKAGE BODY')
ORDER BY last_ddl_time DESC;

-- メンテナンス時のパッケージ再コンパイル手順（影響を最小化）
-- 1. ピーク時間外に実行する（セッション数が少ない時間帯）
-- 2. デプロイ後にアプリケーションのウォームアップリクエストを送って事前に状態をリセットする
-- 3. ロードバランサーで一部のサーバーを切り離してからデプロイする（ローリングデプロイ）