【PL/SQL】コンパイル時エラーと警告の完全対処ガイド｜SHOW ERRORS・USER_ERRORS・PLSQL_WARNINGS・CI/CD検出

-- ❌ 引数なし：直前コンパイルのみ表示、別オブジェクトを触ると失う
CREATE OR REPLACE PROCEDURE p_broken AS BEGIN NULL; END;  -- これは成功
SHOW ERRORS  -- → No errors.（直前コンパイルのエラーを探すが何も出ない）

-- ✅ 明示指定：いつでも特定オブジェクトのエラーを取得
SHOW ERRORS PROCEDURE p_broken
SHOW ERRORS PACKAGE BODY pkg_order
SHOW ERRORS FUNCTION f_calc_tax
SHOW ERRORS TRIGGER trg_emp_upd

-- 出力例
LINE/COL ERROR
-------- ---------------------------------------------------------
7/5      PL/SQL: Statement ignored
7/5      PLS-00201: identifier 'PKG_ACCOUNT.UNKNOWN_PROC' must be declared
12/3     PL/SQL: Statement ignored
12/3     PLS-00302: component 'TOTAL_AMT' must be declared

-- SHOW ERRORS の出力意味
-- 7/5 = 行7カラム5
-- PLS-00201 = 識別子が宣言されていない（権限なし or 綴り誤り）
-- PLS-00302 = コンポーネントが宣言されていない（プロパティ誤り）

-- 1. 自スキーマのINVALIDオブジェクトとエラーを一覧
SELECT name, type, line, position, attribute, text
  FROM user_errors
 ORDER BY name, sequence;

-- 2. エラーのみ（警告除外）→ デプロイ可否判定に使う
SELECT name, type, COUNT(*) AS err_cnt
  FROM user_errors
 WHERE attribute = 'ERROR'
 GROUP BY name, type
 ORDER BY err_cnt DESC;

-- 3. 警告だけ抽出 → コードレビュー前の自己診断
SELECT name, type, line, message_number, text
  FROM user_errors
 WHERE attribute = 'WARNING'
 ORDER BY name, line;

-- 4. 特定のエラーコードで全オブジェクト横断検索（例: 権限不足）
SELECT name, type, line, text
  FROM user_errors
 WHERE message_number = 201      -- PLS-00201（識別子不明）
 ORDER BY name, line;

-- 5. DBA権限で全スキーマのエラーを俯瞰
SELECT owner, name, type, line, attribute, text
  FROM dba_errors
 WHERE attribute = 'ERROR'
   AND owner NOT IN ('SYS','SYSTEM','MDSYS','XDB')
 ORDER BY owner, name, sequence;

-- A. セッション単位で有効化（開発者が手動で検査）
ALTER SESSION SET PLSQL_WARNINGS = 'ENABLE:ALL';

-- B. システム単位で恒久的に有効化（DBA権限）
ALTER SYSTEM SET PLSQL_WARNINGS = 'ENABLE:SEVERE, ENABLE:PERFORMANCE'
  SCOPE=BOTH;

-- C. 特定カテゴリを警告ではなくエラー扱いにする
--    → コンパイル自体を失敗させてデプロイを止める
ALTER SESSION SET PLSQL_WARNINGS =
  'ENABLE:ALL, ERROR:PERFORMANCE, DISABLE:INFORMATIONAL';

-- D. 特定番号の警告だけ個別制御（例: PLW-06002を許容）
ALTER SESSION SET PLSQL_WARNINGS =
  'ENABLE:ALL, DISABLE:(06002)';

-- E. パッケージ単位で永続設定
ALTER PACKAGE my_pkg COMPILE PLSQL_WARNINGS='ENABLE:ALL' REUSE SETTINGS;

-- 現在の設定を確認
SHOW PARAMETER plsql_warnings
-- または
SELECT name, value
  FROM v$parameter
 WHERE name = 'plsql_warnings';

-- ① PLW-06002: 到達不能コード
CREATE OR REPLACE FUNCTION f_status(p NUMBER) RETURN VARCHAR2 AS
BEGIN
  IF p > 0 THEN RETURN 'POS';
  ELSIF p < 0 THEN RETURN 'NEG';
  ELSE RETURN 'ZERO';
  END IF;
  RETURN 'UNKNOWN';   -- ← ここに到達する道がない
END;
/

-- ② PLW-05005: 戻り値のないRETURN経路
CREATE OR REPLACE FUNCTION f_grade(p NUMBER) RETURN VARCHAR2 AS
BEGIN
  IF p >= 80 THEN RETURN 'A'; END IF;
  IF p >= 60 THEN RETURN 'B'; END IF;
  -- ← p<60のときRETURNせず関数を抜ける（実行時 ORA-06503）
END;
/

-- ③ PLW-06009: 数値リテラルの暗黙切り捨て
DECLARE
  v NUMBER(3) := 12345;   -- ← 精度オーバー、実行時エラー
BEGIN
  NULL;
END;
/

-- ④ PLW-05004: IN OUT パラメータが実質未代入で戻る
CREATE OR REPLACE PROCEDURE p_calc(p_out IN OUT NUMBER) AS
BEGIN
  IF p_out > 0 THEN p_out := p_out * 2; END IF;
  -- ← p_out <=0 のときに値を更新しない可能性を警告
END;
/

-- パッケージ仕様で非推奨宣言
CREATE OR REPLACE PACKAGE pkg_order AS
  -- 旧関数（非推奨）
  FUNCTION get_total_old(p_order_id NUMBER) RETURN NUMBER;
  PRAGMA DEPRECATE(
    get_total_old,
    'get_total_old は廃止予定です。v2 の calc_total を使用してください'
  );

  -- 新関数
  FUNCTION calc_total(p_order_id NUMBER) RETURN NUMBER;
END pkg_order;
/

-- 呼び出し側のコンパイル時に警告
CREATE OR REPLACE PROCEDURE p_invoice AS
  v_amt NUMBER;
BEGIN
  v_amt := pkg_order.get_total_old(:order_id);   -- ← PLW-06019 が警告
END;
/

-- USER_ERRORSで呼び出し元を一覧化
SELECT name, type, line, text
  FROM user_errors
 WHERE message_number = 6019
   AND attribute = 'WARNING';

-- compile_check.sql（SQL*Plus / SQLclで実行）
SET SERVEROUTPUT ON
SET FEEDBACK OFF
WHENEVER SQLERROR EXIT 2     -- SQL実行エラーで終了コード2

-- コンパイル警告を厳しく
ALTER SESSION SET PLSQL_WARNINGS = 'ENABLE:ALL, ERROR:SEVERE';

-- デプロイ対象ファイルを流す
@@packages/pkg_order.pks
@@packages/pkg_order.pkb
@@procedures/p_invoice.prc

-- USER_ERRORS チェック
DECLARE
  v_err  NUMBER;
  v_warn NUMBER;
BEGIN
  SELECT SUM(CASE WHEN attribute='ERROR'   THEN 1 ELSE 0 END),
         SUM(CASE WHEN attribute='WARNING' THEN 1 ELSE 0 END)
    INTO v_err, v_warn
    FROM user_errors;

  DBMS_OUTPUT.PUT_LINE('Errors  : ' || NVL(v_err,0));
  DBMS_OUTPUT.PUT_LINE('Warnings: ' || NVL(v_warn,0));

  IF NVL(v_err, 0) > 0 THEN
    -- エラーが1件でもあれば明示的に失敗
    RAISE_APPLICATION_ERROR(-20001,
      'Compilation failed with ' || v_err || ' errors');
  END IF;
END;
/

EXIT SUCCESS

name: PLSQL CI
on: [pull_request]
jobs:
  compile-check:
    runs-on: ubuntu-latest
    services:
      oracle:
        image: gvenzl/oracle-free:latest-faststart
        env:
          ORACLE_PASSWORD: ${{ secrets.ORACLE_PASSWORD }}
        ports: [1521:1521]
    steps:
      - uses: actions/checkout@v4
      - name: Install SQLcl
        run: |
          wget -q https://download.oracle.com/otn_software/java/sqldeveloper/sqlcl-latest.zip
          unzip -q sqlcl-latest.zip -d /opt
      - name: Run compile check
        run: |
          /opt/sqlcl/bin/sql -s app/${ORACLE_PASSWORD}@localhost:1521/FREEPDB1 \
            @compile_check.sql
        # 失敗時に終了コード!=0 を返しCIが赤になる