【PL/SQL】IF文完全ガイド｜3値論理・NULL地雷6種・CASEとの使い分け・短絡評価・実務10パターン

-- 形態①：IF THEN END IF（単純分岐）
IF 条件 THEN
  処理;
END IF;

-- 形態②：IF THEN ELSE END IF（2分岐）
IF 条件 THEN
  処理A;
ELSE
  処理B;
END IF;

-- 形態③：IF THEN ELSIF ELSE END IF（多段分岐）
IF 条件1 THEN
  処理1;
ELSIF 条件2 THEN   -- ELSEIFではなく ELSIF（スペースなし）
  処理2;
ELSIF 条件3 THEN
  処理3;
ELSE
  デフォルト処理;
END IF;

DECLARE
  v_score NUMBER := 85;
BEGIN
  IF v_score >= 90 THEN
    DBMS_OUTPUT.PUT_LINE('優秀');
  ELSIF v_score >= 70 THEN
    DBMS_OUTPUT.PUT_LINE('合格');
  ELSE
    DBMS_OUTPUT.PUT_LINE('不合格');
  END IF;
END;
/
-- 出力: 合格

DECLARE
  v_status VARCHAR2(10);  -- 初期値なし → NULL
BEGIN
  IF v_status = 'active' THEN
    DBMS_OUTPUT.PUT_LINE('active処理');
  ELSIF v_status = 'inactive' THEN
    DBMS_OUTPUT.PUT_LINE('inactive処理');
  ELSE
    DBMS_OUTPUT.PUT_LINE('その他');
  END IF;
END;
/
-- 出力: その他
-- NULL = 'active' は NULL（TRUEではない）、
-- NULL = 'inactive' も NULL（FALSEではない）、
-- どちらもTHENへ行かずELSEに落ちる

-- ①IS NULLで明示
IF v_status IS NULL THEN
  -- NULLの時の処理
END IF;

-- ②NVLでデフォルト値を与える
IF NVL(v_status, 'unknown') = 'active' THEN
  -- v_statusがNULLでも 'unknown' として評価される
END IF;

-- ③COALESCE（複数フォールバック）
IF COALESCE(v_status, v_default, 'fallback') = 'active' THEN
  -- 最初の非NULL値を使う
END IF;

-- ④OR条件で両方カバー
IF v_status = 'active' OR v_status IS NULL THEN
  -- NULLも含める
END IF;

-- ⑤DECODE（SQLライク、NULL同士もTRUE扱い）
IF DECODE(v_status, 'active', 1, 0) = 1 THEN
  -- NULLの場合は0（FALSE相当）
END IF;

-- ⑥BOOLEAN変数に明示代入（可読性UP）
v_is_active BOOLEAN := (v_status = 'active');  -- NULL時はNULL
IF v_is_active = TRUE THEN   -- 明示比較でNULL回避
  -- 処理
END IF;

-- AND：左がFALSEなら右は評価されない
IF v_collection IS NOT NULL AND v_collection.COUNT > 0 THEN
  -- v_collectionがNULLなら右側の .COUNT は呼ばれない
  -- ELSE系のNULL参照エラー回避
  FOR i IN 1..v_collection.COUNT LOOP
    ...処理...
  END LOOP;
END IF;

-- OR：左がTRUEなら右は評価されない
IF v_is_admin OR v_user_has_permission(v_id) THEN
  -- v_is_adminがTRUEなら重いfunction呼び出しをスキップ
  -- 性能最適化にも使える
  PROCESS();
END IF;

-- 除算エラー回避
IF v_divisor != 0 AND (v_dividend / v_divisor) > 1 THEN
  -- v_divisorが0なら右辺を評価しない → ZERO_DIVIDE例外を回避
  ...
END IF;

-- 基本演算子
=   !=   <>   ^=        -- 等価／不等価（!= と <> と ^= は全て同じ）
<   >   <=   >=        -- 大小比較

-- NULL専用
IF v_x IS NULL THEN ...
IF v_x IS NOT NULL THEN ...

-- 範囲
IF v_score BETWEEN 70 AND 89 THEN ...          -- 境界を含む
IF v_score NOT BETWEEN 0 AND 59 THEN ...

-- 複数値
IF v_status IN ('active', 'pending', 'review') THEN ...
IF v_status NOT IN ('deleted', 'banned') THEN ...

-- 文字列パターン
IF v_email LIKE '%@example.com' THEN ...
IF v_code LIKE 'A__' THEN ...                   -- _ は1文字
IF v_code LIKE 'A\_%' ESCAPE '\' THEN ...       -- リテラル_

-- 正規表現（REGEXP_LIKE）
IF REGEXP_LIKE(v_phone, '^\d{3}-\d{4}-\d{4}$') THEN ...

-- 各分岐で複数の処理がある時はIF文が自然
IF v_score >= 90 THEN
  DBMS_OUTPUT.PUT_LINE('優秀');
  UPDATE users SET rank = 1 WHERE id = v_id;
  send_congrats_email(v_id);
ELSIF v_score >= 70 THEN
  DBMS_OUTPUT.PUT_LINE('合格');
  UPDATE users SET rank = 2 WHERE id = v_id;
ELSE
  DBMS_OUTPUT.PUT_LINE('不合格');
  UPDATE users SET rank = 3 WHERE id = v_id;
END IF;

-- 1つの変数を複数の値と比較する時はCASE文が読みやすい
CASE v_status
  WHEN 'active' THEN
    process_active();
  WHEN 'pending' THEN
    process_pending();
  WHEN 'closed' THEN
    process_closed();
  ELSE
    process_unknown();
END CASE;

-- IFと同じ表現力だが整列した記述が可能
CASE
  WHEN v_score >= 90 AND v_attended THEN
    DBMS_OUTPUT.PUT_LINE('優秀+皆勤');
  WHEN v_score >= 70 THEN
    DBMS_OUTPUT.PUT_LINE('合格');
  ELSE
    DBMS_OUTPUT.PUT_LINE('不合格');
END CASE;

-- 変数への代入が1行で完結
DECLARE
  v_rank VARCHAR2(10);
BEGIN
  v_rank := CASE
             WHEN v_score >= 90 THEN 'A'
             WHEN v_score >= 70 THEN 'B'
             WHEN v_score >= 50 THEN 'C'
             ELSE 'F'
           END;
  DBMS_OUTPUT.PUT_LINE('Rank: ' || v_rank);
END;

-- ❌ 意図通り動かない（Simple CASEはNULL比較に = を使う＝NULL同士は一致しない）
CASE v_status
  WHEN NULL THEN
    DBMS_OUTPUT.PUT_LINE('NULLの処理');  -- ここは呼ばれない
  ELSE
    DBMS_OUTPUT.PUT_LINE('ELSE');
END CASE;

-- ⭕ Searched CASEで IS NULL を使う
CASE
  WHEN v_status IS NULL THEN
    DBMS_OUTPUT.PUT_LINE('NULLの処理');
  WHEN v_status = 'active' THEN
    DBMS_OUTPUT.PUT_LINE('active');
  ELSE
    DBMS_OUTPUT.PUT_LINE('ELSE');
END CASE;

-- DECODE（Oracle独自、短い）
SELECT id, name,
       DECODE(status, 'A', '有効',
                      'I', '無効',
                      'D', '削除',
                      'その他') AS status_label
FROM users;

-- CASE式（標準SQL、ほぼ同じ結果で読みやすい）
SELECT id, name,
       CASE status
         WHEN 'A' THEN '有効'
         WHEN 'I' THEN '無効'
         WHEN 'D' THEN '削除'
         ELSE 'その他'
       END AS status_label
FROM users;

-- WHERE句内でCASE式
SELECT * FROM orders
WHERE CASE WHEN priority = 'urgent' THEN days_open
           ELSE days_open - 7
      END > 30;

-- ❌ 深いネストは可読性が落ちる
IF v_status = 'active' THEN
  IF v_age >= 18 THEN
    IF v_country = 'JP' THEN
      IF v_verified THEN
        process();
      END IF;
    END IF;
  END IF;
END IF;

-- ⭕ ANDで1つの条件にまとめる
IF v_status = 'active' AND v_age >= 18
   AND v_country = 'JP' AND v_verified THEN
  process();
END IF;

-- ⭕ ガード句でearly return（PROCEDURE/FUNCTION内）
IF v_status != 'active' THEN RETURN; END IF;
IF v_age < 18 THEN RETURN; END IF;
IF v_country != 'JP' THEN RETURN; END IF;
IF NOT v_verified THEN RETURN; END IF;

process();    -- ← ここに着たら条件全部OK

-- ❌ 冗長な ELSIF
IF v_code = 'A' THEN process_a();
ELSIF v_code = 'B' THEN process_b();
ELSIF v_code = 'C' THEN process_c();
ELSIF v_code = 'D' THEN process_d();
...
END IF;

-- ⭕ CASE文で整理
CASE v_code
  WHEN 'A' THEN process_a();
  WHEN 'B' THEN process_b();
  WHEN 'C' THEN process_c();
  WHEN 'D' THEN process_d();
  ELSE process_default();
END CASE;

DECLARE
  v_user_count NUMBER;
  e_no_user EXCEPTION;
  e_too_many_users EXCEPTION;
BEGIN
  SELECT COUNT(*) INTO v_user_count FROM users WHERE status = 'active';

  IF v_user_count = 0 THEN
    RAISE e_no_user;
  ELSIF v_user_count > 10000 THEN
    RAISE e_too_many_users;
  END IF;

  DBMS_OUTPUT.PUT_LINE('アクティブユーザー: ' || v_user_count);
EXCEPTION
  WHEN e_no_user THEN
    DBMS_OUTPUT.PUT_LINE('アクティブユーザーが存在しません');
  WHEN e_too_many_users THEN
    DBMS_OUTPUT.PUT_LINE('ユーザー数が上限を超えています');
  WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE('予期せぬエラー: ' || SQLERRM);
    RAISE;
END;
/

BEGIN
  IF :new.amount < 0 THEN
    RAISE_APPLICATION_ERROR(-20001, '金額はマイナスにできません');
  ELSIF :new.amount > 1000000 THEN
    RAISE_APPLICATION_ERROR(-20002, '上限(100万)を超えています');
  END IF;
END;

BEGIN
  FOR rec IN (SELECT id, status, amount FROM orders WHERE order_date >= TRUNC(SYSDATE) - 7) LOOP
    IF rec.status = 'pending' AND rec.amount > 10000 THEN
      -- 高額保留はマネージャ通知
      notify_manager(rec.id);
    ELSIF rec.status = 'failed' THEN
      -- 失敗は再試行キューへ
      INSERT INTO retry_queue VALUES (rec.id, SYSDATE);
    END IF;
  END LOOP;
  COMMIT;
END;

DECLARE
  TYPE t_ids IS TABLE OF NUMBER;
  v_ids t_ids := t_ids();
BEGIN
  -- コレクション空チェック
  IF v_ids IS NULL OR v_ids.COUNT = 0 THEN
    DBMS_OUTPUT.PUT_LINE('IDが空');
    RETURN;
  END IF;

  -- ループ＋分岐
  FOR i IN 1..v_ids.COUNT LOOP
    IF v_ids(i) IS NOT NULL AND MOD(v_ids(i), 2) = 0 THEN
      DBMS_OUTPUT.PUT_LINE(v_ids(i) || ' は偶数');
    END IF;
  END LOOP;
END;

-- 'draft' → 'review' → 'published' → 'archived' の順のみ許可
PROCEDURE change_status(p_id IN NUMBER, p_new_status IN VARCHAR2) IS
  v_current VARCHAR2(20);
BEGIN
  SELECT status INTO v_current FROM articles WHERE id = p_id;

  IF v_current = 'draft' AND p_new_status NOT IN ('review', 'archived') THEN
    RAISE_APPLICATION_ERROR(-20001, 'draftから遷移可能なのはreview／archivedのみ');
  ELSIF v_current = 'review' AND p_new_status NOT IN ('draft', 'published') THEN
    RAISE_APPLICATION_ERROR(-20002, 'reviewから遷移可能なのはdraft／publishedのみ');
  ELSIF v_current = 'published' AND p_new_status != 'archived' THEN
    RAISE_APPLICATION_ERROR(-20003, 'publishedから遷移可能なのはarchivedのみ');
  END IF;

  UPDATE articles SET status = p_new_status, updated_at = SYSDATE WHERE id = p_id;
END;

BEGIN
  IF TO_CHAR(SYSDATE, 'HH24') BETWEEN '02' AND '05' THEN
    -- 深夜2時〜5時は重いバッチOK
    rebuild_indexes();
    gather_full_stats();
  ELSIF TO_CHAR(SYSDATE, 'DY') = 'SAT' THEN
    -- 土曜は重めメンテOK
    gather_full_stats();
  ELSE
    -- 平日日中は軽量処理のみ
    gather_lite_stats();
  END IF;
END;

PROCEDURE register_user(
  p_email    IN VARCHAR2,
  p_age      IN NUMBER,
  p_password IN VARCHAR2
) IS
BEGIN
  IF p_email IS NULL OR NOT REGEXP_LIKE(p_email, '^[^@]+@[^@]+\.[^@]+$') THEN
    RAISE_APPLICATION_ERROR(-20101, '無効なメールアドレス');
  END IF;

  IF p_age IS NULL OR p_age < 18 OR p_age > 120 THEN
    RAISE_APPLICATION_ERROR(-20102, '年齢は18〜120');
  END IF;

  IF LENGTH(p_password) < 8 THEN
    RAISE_APPLICATION_ERROR(-20103, 'パスワードは8文字以上');
  END IF;

  INSERT INTO users(email, age, password_hash)
  VALUES (p_email, p_age, hash_password(p_password));
END;

PROCEDURE delete_record(p_user_id IN NUMBER, p_record_id IN NUMBER) IS
  v_role VARCHAR2(20);
  v_owner_id NUMBER;
BEGIN
  SELECT role INTO v_role FROM users WHERE id = p_user_id;
  SELECT owner_id INTO v_owner_id FROM records WHERE id = p_record_id;

  IF v_role = 'admin' THEN
    DELETE FROM records WHERE id = p_record_id;
  ELSIF v_role = 'manager' AND v_owner_id = p_user_id THEN
    DELETE FROM records WHERE id = p_record_id;
  ELSIF v_owner_id = p_user_id THEN
    -- 一般ユーザーは自分のレコードのみ
    UPDATE records SET status = 'deleted' WHERE id = p_record_id;
  ELSE
    RAISE_APPLICATION_ERROR(-20201, '削除権限がありません');
  END IF;
END;

FUNCTION calc_shipping_fee(p_order_id IN NUMBER) RETURN NUMBER IS
  v_amount NUMBER;
  v_country VARCHAR2(2);
  v_fee NUMBER;
BEGIN
  SELECT total_amount, country INTO v_amount, v_country
  FROM orders WHERE id = p_order_id;

  IF v_country = 'JP' THEN
    IF v_amount >= 10000 THEN v_fee := 0;
    ELSIF v_amount >= 5000 THEN v_fee := 300;
    ELSE v_fee := 600;
    END IF;
  ELSE
    -- 海外配送
    v_fee := CASE
               WHEN v_amount >= 20000 THEN 0
               ELSE 2000
             END;
  END IF;

  RETURN v_fee;
END;

DECLARE
  v_feature_enabled VARCHAR2(1);
BEGIN
  SELECT enabled INTO v_feature_enabled FROM feature_flags WHERE feature = 'new_pricing';

  IF v_feature_enabled = 'Y' THEN
    apply_new_pricing(p_order_id);
  ELSE
    apply_legacy_pricing(p_order_id);
  END IF;
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    -- デフォルトはlegacy
    apply_legacy_pricing(p_order_id);
END;

IF p_name IS NULL THEN
  RAISE_APPLICATION_ERROR(-20301, '名前は必須');
ELSIF TRIM(p_name) IS NULL THEN
  -- 空白のみはNULL扱い（OracleのVARCHAR2特性）
  RAISE_APPLICATION_ERROR(-20302, '名前は空白以外');
END IF;

DECLARE
  v_count NUMBER;
BEGIN
  SELECT COUNT(*) INTO v_count FROM orders WHERE user_id = p_user_id;

  IF v_count = 0 THEN
    DBMS_OUTPUT.PUT_LINE('注文履歴なし');
  ELSIF v_count = 1 THEN
    show_single_order(p_user_id);
  ELSE
    show_order_list(p_user_id);
  END IF;
END;

DECLARE
  v_retry_count NUMBER := 0;
  v_max_retry CONSTANT NUMBER := 3;
  v_success BOOLEAN := FALSE;
BEGIN
  WHILE v_retry_count < v_max_retry AND NOT v_success LOOP
    BEGIN
      call_external_api(p_id);
      v_success := TRUE;
    EXCEPTION
      WHEN OTHERS THEN
        v_retry_count := v_retry_count + 1;
        DBMS_OUTPUT.PUT_LINE('Retry ' || v_retry_count);
        DBMS_LOCK.SLEEP(2 ** v_retry_count);  -- Exponential backoff
    END;
  END LOOP;

  IF NOT v_success THEN
    RAISE_APPLICATION_ERROR(-20401, 'リトライ上限到達');
  END IF;
END;

CREATE OR REPLACE TRIGGER trg_orders_validate
BEFORE INSERT OR UPDATE ON orders
FOR EACH ROW
BEGIN
  -- INSERTとUPDATEで処理を分ける
  IF INSERTING THEN
    :NEW.created_at := SYSDATE;
    :NEW.updated_at := SYSDATE;
  ELSIF UPDATING THEN
    :NEW.updated_at := SYSDATE;
    IF :OLD.status = 'closed' AND :NEW.status != 'closed' THEN
      RAISE_APPLICATION_ERROR(-20501, 'closed状態から復帰できません');
    END IF;
  END IF;
END;

DECLARE
  v_status VARCHAR2(20) := 'pending';
  v_amount NUMBER := 5000;
BEGIN
  DBMS_OUTPUT.PUT_LINE('v_status=' || v_status);
  DBMS_OUTPUT.PUT_LINE('v_amount=' || v_amount);

  IF v_status = 'active' THEN
    DBMS_OUTPUT.PUT_LINE('→ active分岐');
    ...
  ELSIF v_status = 'pending' AND v_amount > 3000 THEN
    DBMS_OUTPUT.PUT_LINE('→ pending+高額分岐');
    ...
  ELSE
    DBMS_OUTPUT.PUT_LINE('→ ELSE');
    ...
  END IF;
END;
/
-- 実行前に SET SERVEROUTPUT ON;

DECLARE
  v_is_active     BOOLEAN;
  v_is_high_value BOOLEAN;
  v_is_priority   BOOLEAN;
BEGIN
  v_is_active     := (v_status = 'active');
  v_is_high_value := (v_amount >= 10000);
  v_is_priority   := (v_type IN ('VIP', 'PREMIUM'));

  DBMS_OUTPUT.PUT_LINE('active=' || CASE WHEN v_is_active THEN 'Y' ELSE 'N' END);
  DBMS_OUTPUT.PUT_LINE('high=' || CASE WHEN v_is_high_value THEN 'Y' ELSE 'N' END);
  DBMS_OUTPUT.PUT_LINE('priority=' || CASE WHEN v_is_priority THEN 'Y' ELSE 'N' END);

  IF v_is_active AND (v_is_high_value OR v_is_priority) THEN
    process_special();
  END IF;
END;