【PL/SQL】基本構文完全ガイド｜4セクション・ブロック7種類・セミコロンとスラッシュ・DBMS_OUTPUT設定・学習ロードマップ

-- ① 最小：BEGIN ～ END;だけでも動く
BEGIN
  DBMS_OUTPUT.PUT_LINE('Hello PL/SQL');
END;
/

-- ② フル構成：4セクション
DECLARE
  v_name  VARCHAR2(50);    -- 変数宣言
  v_count NUMBER := 0;      -- 初期値付き
BEGIN
  v_name := 'PL/SQL';
  v_count := v_count + 1;
  DBMS_OUTPUT.PUT_LINE('Hello ' || v_name);
EXCEPTION
  WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE('エラー: ' || SQLERRM);
    RAISE;
END;
/

[<<ラベル名>>]
DECLARE              ← 省略可
  -- 変数／定数／例外／カーソル／ネスト型の宣言
BEGIN                ← 必須
  -- 実行本体（SQL実行・PL/SQL制御文）
EXCEPTION            ← 省略可
  WHEN 例外名 THEN
    -- 例外処理
END [ラベル名];       ← 必須（セミコロン含む）
/                    ← ツール実行の合図（スクリプト内必須）

DECLARE
  -- 変数
  v_name   VARCHAR2(50);
  v_count  NUMBER := 0;            -- 初期値
  v_flag   BOOLEAN DEFAULT FALSE;  -- := でも DEFAULT でも同じ

  -- 定数
  c_tax_rate CONSTANT NUMBER := 0.10;

  -- 型継承
  v_email  users.email%TYPE;       -- users.emailと同じ型
  v_user   users%ROWTYPE;          -- users全列のレコード

  -- カスタム型
  TYPE t_ids IS TABLE OF NUMBER;
  v_ids t_ids := t_ids();

  -- 例外
  e_custom EXCEPTION;
  PRAGMA EXCEPTION_INIT(e_custom, -20001);

  -- カーソル
  CURSOR cur_users IS SELECT id FROM users WHERE status = 'A';
BEGIN
  NULL;
END;

BEGIN
  -- SQL文
  SELECT email INTO v_email FROM users WHERE id = 1;
  INSERT INTO orders VALUES (...);
  UPDATE users SET status = 'active' WHERE id = 1;
  DELETE FROM logs WHERE created_at < SYSDATE - 365;

  -- 代入
  v_name := 'Taro';
  v_count := v_count + 1;

  -- 制御文
  IF v_count > 10 THEN ...
  FOR i IN 1..10 LOOP ...
  WHILE v_flag LOOP ...
  CASE v_type WHEN 'A' THEN ...

  -- サブプログラム呼び出し
  my_procedure(p_id => 1);
  v_result := my_function(p_x => 10);

  -- 例外を手動発生
  RAISE e_custom;
  RAISE_APPLICATION_ERROR(-20001, 'エラー');

  -- トランザクション制御
  COMMIT;
  ROLLBACK;
  SAVEPOINT sp_1;
END;

BEGIN
  SELECT email INTO v_email FROM users WHERE id = 999;  -- 0件ならNO_DATA_FOUND
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    DBMS_OUTPUT.PUT_LINE('該当なし');

  WHEN TOO_MANY_ROWS THEN
    DBMS_OUTPUT.PUT_LINE('複数件検出');

  WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE('予期せぬエラー: ' || SQLCODE || ' / ' || SQLERRM);
    RAISE;   -- 呼出し元に再送出
END;

-- 基本
END;

-- ラベル付きブロックの終了時はラベル名で対応を明示
<<main_block>>
BEGIN
  ...
END main_block;

-- ネストされたPROCEDUREの終了
CREATE OR REPLACE PROCEDURE calc_tax(p_amount IN NUMBER) IS
BEGIN
  ...
END calc_tax;   -- プロシージャ名を書いて対応を明示

-- 保存されない。実行即解放
BEGIN
  DBMS_OUTPUT.PUT_LINE('匿名ブロック');
END;
/

-- ツール（SQLcl／SQL Developer）から直接実行
-- 試行錯誤やバッチ実行に使う

CREATE OR REPLACE PROCEDURE update_user_status(
  p_id      IN NUMBER,
  p_status  IN VARCHAR2
) IS
BEGIN
  UPDATE users SET status = p_status, updated_at = SYSDATE
  WHERE id = p_id;

  IF SQL%ROWCOUNT = 0 THEN
    RAISE_APPLICATION_ERROR(-20001, 'ユーザーが見つかりません');
  END IF;
END update_user_status;
/

-- 呼び出し
BEGIN
  update_user_status(p_id => 1, p_status => 'active');
END;
/

CREATE OR REPLACE FUNCTION get_user_count(
  p_status IN VARCHAR2
) RETURN NUMBER IS
  v_count NUMBER;
BEGIN
  SELECT COUNT(*) INTO v_count FROM users WHERE status = p_status;
  RETURN v_count;
END get_user_count;
/

-- PL/SQL内でも
DECLARE
  v_n NUMBER;
BEGIN
  v_n := get_user_count('active');
  DBMS_OUTPUT.PUT_LINE('active: ' || v_n);
END;

-- SQL文内でも使える
SELECT get_user_count('active') AS active_count FROM dual;

-- 仕様（インタフェース公開）
CREATE OR REPLACE PACKAGE pkg_user IS
  PROCEDURE activate(p_id IN NUMBER);
  FUNCTION  count_active RETURN NUMBER;
END pkg_user;
/

-- 本体（実装）
CREATE OR REPLACE PACKAGE BODY pkg_user IS
  PROCEDURE activate(p_id IN NUMBER) IS
  BEGIN
    UPDATE users SET status = 'active' WHERE id = p_id;
  END activate;

  FUNCTION count_active RETURN NUMBER IS
    v_n NUMBER;
  BEGIN
    SELECT COUNT(*) INTO v_n FROM users WHERE status = 'active';
    RETURN v_n;
  END count_active;
END pkg_user;
/

-- 呼び出し
BEGIN
  pkg_user.activate(1);
  DBMS_OUTPUT.PUT_LINE(pkg_user.count_active);
END;

BEGIN
  DBMS_OUTPUT.PUT_LINE('A');    -- ここで1文終了 → ;
  DBMS_OUTPUT.PUT_LINE('B');    -- こっちも文終了 → ;
END;                            -- ブロック終了 → ;
/                               -- ツールへ「実行しろ」の合図（行頭単独）

-- 単一行コメント（行末まで）
DECLARE
  v_count NUMBER := 0;   -- 初期化
BEGIN
  /*
     複数行コメント
     ブロック全体を囲む
  */
  v_count := v_count + 1;

  /* インラインの /* ネスト */ は許可されない */
  -- ↑ネストはサポート無し、上記はコメント途中で終了する
END;

CREATE OR REPLACE PROCEDURE calc_shipping_fee(
  p_order_id  IN  NUMBER,
  p_country   IN  VARCHAR2,
  p_fee       OUT NUMBER
) IS
/*
------------------------------------------------------------------------
Procedure  : calc_shipping_fee
Purpose    : 注文IDと配送国から送料を計算してOUTに返す
Parameters :
  p_order_id : 注文ID（必須）
  p_country  : 配送国（ISO 3166-1 alpha-2）
  p_fee      : 送料（OUT）
Errors     :
  -20001 : 注文が見つからない
  -20002 : 配送先が対応外
Author     : team-order / 2026-04-23
------------------------------------------------------------------------
*/
BEGIN
  -- 実装
  NULL;
END calc_shipping_fee;

-- SQL*Plus / SQLcl / SQL Developer で実行前に必須
SET SERVEROUTPUT ON;
SET SERVEROUTPUT ON SIZE UNLIMITED;
SET SERVEROUTPUT ON FORMAT WRAPPED;

-- これ無しだとPUT_LINEの内容は表示されない

-- 基本の出力
BEGIN
  DBMS_OUTPUT.PUT_LINE('Hello');
  DBMS_OUTPUT.PUT_LINE('Count = ' || 10);
  DBMS_OUTPUT.PUT_LINE(SYSTIMESTAMP);
END;
/

-- 改行せず追記（PUT＋NEW_LINE）
BEGIN
  DBMS_OUTPUT.PUT('A');
  DBMS_OUTPUT.PUT('B');
  DBMS_OUTPUT.NEW_LINE;     -- ここで改行
  -- 出力: AB
END;

-- ①コンパイル後すぐに SHOW ERRORS
CREATE OR REPLACE PROCEDURE my_proc IS
BEGIN
  invalid_statement_here;     -- 意図的にエラー
END;
/
SHOW ERRORS;
-- Errors for PROCEDURE MY_PROC:
-- LINE/COL ERROR
-- -------- -------------------------------------------------
-- 3/3      PLS-00201: identifier 'INVALID_STATEMENT_HERE' must be declared

-- ② USER_ERRORS ビューで確認
SELECT line, position, text FROM user_errors
WHERE name = 'MY_PROC' AND type = 'PROCEDURE'
ORDER BY sequence;

-- ③ DBMS_UTILITY.FORMAT_ERROR_STACK（実行時用）
BEGIN
  my_proc;
EXCEPTION
  WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE(DBMS_UTILITY.FORMAT_ERROR_STACK);
    DBMS_OUTPUT.PUT_LINE(DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
END;

# インストール（Javaが必要）
# https://www.oracle.com/database/sqldeveloper/ からダウンロード

# 接続
sql user/password@host:port/service

# スクリプト実行
SQL> @my_script.sql

# PL/SQLブロック直接入力
SQL> SET SERVEROUTPUT ON;
SQL> BEGIN
  2    DBMS_OUTPUT.PUT_LINE('Hello');
  3  END;
  4  /

-- Oracle社公式GUI（Javaベース）
-- SQLワークシートにPL/SQLを貼って F5（Run Script）または Ctrl+Enter（Run）
-- SET SERVEROUTPUT ON; を実行する必要あり
-- View → Dbms Output ウィンドウで出力確認

-- 拡張: Database Client (cweijan.vscode-mysql-client2) で Oracle接続
-- .sql ファイルを開いて Ctrl+Alt+E で PL/SQL ブロック実行
-- DBMS_OUTPUTの受信は拡張によって異なる

<<outer>>
DECLARE
  v_x NUMBER := 1;
BEGIN
  <<inner>>
  DECLARE
    v_x NUMBER := 2;  -- 外のv_xと同名（内側で隠蔽）
  BEGIN
    DBMS_OUTPUT.PUT_LINE(v_x);         -- 2（内側）
    DBMS_OUTPUT.PUT_LINE(outer.v_x);   -- 1（外側をラベルで参照）
  END inner;

  FOR i IN 1..3 LOOP
    FOR j IN 1..3 LOOP
      EXIT outer WHEN i * j > 5;    -- 外ループまで一気に脱出
    END LOOP;
  END LOOP;
END outer;

DECLARE
  v_a NUMBER := 10;
  v_b NUMBER;
  v_c NUMBER;
BEGIN
  -- 代入は := （コロンイコール）
  v_b := v_a;
  v_c := v_a + v_b;

  -- 比較は = （イコール）
  IF v_a = v_b THEN
    DBMS_OUTPUT.PUT_LINE('等しい');
  END IF;

  -- NULL比較は IS NULL
  IF v_b IS NULL THEN
    DBMS_OUTPUT.PUT_LINE('NULLです');
  END IF;

  -- NULLとの = 比較は常にNULL（FALSEでもTRUEでもない！）
  IF v_b = NULL THEN    -- この条件は常にFALSE扱いになる
    DBMS_OUTPUT.PUT_LINE('到達不能');
  END IF;
END;

【初級（1〜2週間）】
 1. 4セクション構造（本記事）
 2. 変数・定数・データ型
 3. IF文とCASE文
 4. LOOPとFORループ
 5. SELECT INTO と例外処理基礎

【中級（2〜4週間）】
 6. カーソル（Cursor FOR Loop）
 7. %TYPE ／ %ROWTYPE
 8. ストアドプロシージャとファンクション
 9. IN／OUT／IN OUTパラメータ
10. 例外処理の完全理解（RAISE_APPLICATION_ERROR）

【上級（1〜3ヶ月）】
11. パッケージ（仕様と本体）
12. トリガー（BEFORE／AFTER／Compound）
13. コレクション（TABLE／VARRAY／RECORD）
14. バルク処理（BULK COLLECT／FORALL）
15. 動的SQL（EXECUTE IMMEDIATE）
16. 自律トランザクション／SAVEPOINT