【Oracle】PL/SQL ネイティブコンパイル完全ガイド｜NATIVE モードで演算処理を高速化・コンパイルモードの変更まで解説

-- 現在のデフォルトコンパイルモードを確認する
SHOW PARAMETER plsql_code_type;
-- または
SELECT name, value FROM V$PARAMETER WHERE name = 'plsql_code_type';

-- セッションレベルで NATIVE に変更する（このセッションでコンパイルするオブジェクトに適用）
ALTER SESSION SET PLSQL_CODE_TYPE = NATIVE;

-- セッションレベルで INTERPRETED に戻す（デバッグ時）
ALTER SESSION SET PLSQL_CODE_TYPE = INTERPRETED;

-- システムレベルで変更する（新規コンパイルのデフォルトになる）
ALTER SYSTEM SET PLSQL_CODE_TYPE = NATIVE SCOPE=BOTH;
-- SCOPE=BOTH: spfile と現在のインスタンスの両方に適用

-- NATIVE モードにしてコンパイルする
ALTER SESSION SET PLSQL_CODE_TYPE = NATIVE;

CREATE OR REPLACE PROCEDURE calc_intensive AS
    v_result NUMBER := 0;
BEGIN
    FOR i IN 1..1000000 LOOP
        v_result := v_result + SQRT(i) * LOG(10, i + 1);
    END LOOP;
    DBMS_OUTPUT.PUT_LINE('結果: ' || v_result);
END calc_intensive;
/
-- このプロシージャは NATIVE モードでコンパイルされる

-- 特定のプロシージャを NATIVE で再コンパイルする
ALTER PROCEDURE hr.process_monthly_sales COMPILE PLSQL_CODE_TYPE=NATIVE REUSE SETTINGS;

-- パッケージ本体を NATIVE で再コンパイルする
ALTER PACKAGE hr.batch_pkg COMPILE BODY PLSQL_CODE_TYPE=NATIVE REUSE SETTINGS;

-- コンパイルモードを確認する
SELECT object_name, object_type, plsql_code_type
FROM ALL_PLSQL_OBJECT_SETTINGS
WHERE owner = 'HR'
  AND object_name IN ('PROCESS_MONTHLY_SALES', 'BATCH_PKG')
ORDER BY object_name, object_type;
-- PLSQL_CODE_TYPE: 'NATIVE' または 'INTERPRETED'

-- スキーマ内の全プロシージャ・ファンクション・パッケージを NATIVE で再コンパイルする
DECLARE
    v_owner VARCHAR2(30) := 'HR';   -- 対象スキーマ
BEGIN
    FOR obj IN (
        SELECT object_name, object_type
        FROM ALL_OBJECTS
        WHERE owner = v_owner
          AND object_type IN ('PROCEDURE', 'FUNCTION', 'PACKAGE', 'PACKAGE BODY', 'TRIGGER')
          AND status = 'VALID'
        ORDER BY object_type, object_name
    ) LOOP
        BEGIN
            EXECUTE IMMEDIATE
                'ALTER ' || obj.object_type || ' ' || v_owner || '.' || obj.object_name ||
                ' COMPILE' ||
                CASE obj.object_type
                    WHEN 'PACKAGE BODY' THEN ' BODY'
                    ELSE ''
                END ||
                ' PLSQL_CODE_TYPE=NATIVE REUSE SETTINGS';
        EXCEPTION
            WHEN OTHERS THEN
                DBMS_OUTPUT.PUT_LINE(
                    '再コンパイル失敗: ' || obj.object_type || ' ' || obj.object_name ||
                    ' - ' || SQLERRM);
        END;
    END LOOP;
    DBMS_OUTPUT.PUT_LINE('一括再コンパイル完了');
END;
/