【PL/SQL】変数・定数完全ガイド｜データ型体系・%TYPE/%ROWTYPE・PLS_INTEGER高速化・CONSTANT・SUBTYPE・命名規則

DECLARE
  -- ① 基本宣言
  v_name   VARCHAR2(100);
  v_age    NUMBER;
  v_flag   BOOLEAN;

  -- ② DEFAULT初期値（未初期化NULL回避）
  v_count  NUMBER DEFAULT 0;
  v_status VARCHAR2(20) := 'pending';  -- := でも DEFAULT でも可

  -- ③ NOT NULL制約（初期値必須）
  v_id     NUMBER NOT NULL := 0;

  -- ④ 定数（CONSTANT）
  c_tax_rate CONSTANT NUMBER := 0.10;

  -- ⑤ テーブル列の型を継承（%TYPE）
  v_email  users.email%TYPE;

  -- ⑥ テーブル行全体の型を継承（%ROWTYPE）
  v_user   users%ROWTYPE;
BEGIN
  -- := で代入
  v_name := 'Taro';

  -- SELECT INTOで取得
  SELECT email INTO v_email FROM users WHERE id = 1;
  SELECT * INTO v_user FROM users WHERE id = 1;

  DBMS_OUTPUT.PUT_LINE(v_user.email);
END;

PL/SQLデータ型
├── スカラー型（単一値）
│   ├── 数値型：NUMBER / PLS_INTEGER / BINARY_INTEGER /
│   │          BINARY_FLOAT / BINARY_DOUBLE / SIMPLE_INTEGER
│   ├── 文字列型：VARCHAR2 / CHAR / NVARCHAR2 / NCHAR / LONG
│   ├── 日付型：DATE / TIMESTAMP / INTERVAL
│   ├── 真偽型：BOOLEAN（PL/SQL専用、テーブル不可）
│   └── RAW / LONG RAW / ROWID / UROWID
├── 複合型
│   ├── RECORD（構造体）
│   ├── TABLE（ネスト表・連想配列）
│   └── VARRAY（可変長配列）
├── 参照型
│   ├── REF CURSOR（結果セットハンドル）
│   └── REF オブジェクト型
└── LOB型（大容量）
    ├── CLOB（最大128TB文字）
    ├── NCLOB
    ├── BLOB（最大128TBバイナリ）
    └── BFILE（外部ファイル参照）

-- ❌ NUMBERでループカウンタ（遅い）
DECLARE
  v_sum NUMBER := 0;
BEGIN
  FOR i IN 1..10000000 LOOP
    v_sum := v_sum + 1;
  END LOOP;
END;
-- 約 3〜5秒

-- ⭕ PLS_INTEGERでループカウンタ（速い）
DECLARE
  v_sum PLS_INTEGER := 0;
BEGIN
  FOR i IN 1..10000000 LOOP
    v_sum := v_sum + 1;
  END LOOP;
END;
-- 約 0.3〜0.5秒（10倍速い）

DECLARE
  v_price NUMBER(8, 2);   -- 総桁8、小数2（例: 999999.99）
  v_rate  NUMBER(5, 4);   -- 総桁5、小数4（例: 9.9999）
  v_qty   NUMBER(10);     -- 総桁10、整数のみ
  v_pct   NUMBER(3, 0);   -- 3桁整数（0〜999）
BEGIN
  v_price := 123.456;     -- → 123.46（小数2桁に丸め）
  v_price := 99999999;    -- ORA-06502 桁あふれ
END;

-- ❌ CHAR(10) で格納 → 末尾パディング
INSERT INTO t(code) VALUES ('ABC');    -- 実体は 'ABC       '（7空白）
SELECT * FROM t WHERE code = 'ABC';    -- マッチしない！ → 末尾空白で比較失敗

-- CHARは空白比較セマンティクスが特殊で事故を招きやすい
-- 末尾空白を切って比較するには TRIM(code) = 'ABC' が必要

-- ⭕ VARCHAR2(10) は格納された長さそのまま
INSERT INTO t(code) VALUES ('ABC');    -- 実体は 'ABC'（3文字）
SELECT * FROM t WHERE code = 'ABC';    -- マッチする

DECLARE
  v1 VARCHAR2(10);            -- デフォルト＝NLS_LENGTH_SEMANTICS（通常BYTE）
  v2 VARCHAR2(10 BYTE);       -- 10バイトまで
  v3 VARCHAR2(10 CHAR);       -- 10文字まで（マルチバイト対応）
BEGIN
  v1 := 'あいうえお';         -- UTF-8で15バイト → ORA-06502 エラー
  v3 := 'あいうえお';         -- 10文字内OK
END;

DECLARE
  v_date     DATE;                          -- 秒まで（ミリ秒なし）
  v_ts       TIMESTAMP;                     -- 小数秒対応（最大9桁）
  v_ts_tz    TIMESTAMP WITH TIME ZONE;      -- タイムゾーン付き
  v_ts_ltz   TIMESTAMP WITH LOCAL TIME ZONE;-- セッションTZに自動変換
  v_iym      INTERVAL YEAR TO MONTH;        -- 期間（年月）
  v_ids      INTERVAL DAY TO SECOND;        -- 期間（日時秒）
BEGIN
  v_date := SYSDATE;                        -- 例: 2026-04-23 14:30:00
  v_ts   := SYSTIMESTAMP;                   -- 例: 2026-04-23 14:30:00.123456789 +09:00

  -- 文字列→DATE変換
  v_date := TO_DATE('2026-04-23', 'YYYY-MM-DD');

  -- 日数加算
  v_date := v_date + 1;                     -- 翌日
  v_date := v_date + 1/24;                  -- 1時間後

  -- INTERVAL演算
  v_date := v_date + INTERVAL '3' DAY;
  v_ts   := v_ts + INTERVAL '1 12:00:00' DAY TO SECOND;
END;

DECLARE
  v_is_active BOOLEAN;
  v_flag      BOOLEAN := FALSE;    -- DEFAULT初期値
  v_verified  BOOLEAN := TRUE;
BEGIN
  -- 比較はTRUE/FALSE/NULLの3値論理
  IF v_flag THEN
    DBMS_OUTPUT.PUT_LINE('flag TRUE');
  END IF;

  IF v_is_active IS NULL THEN
    DBMS_OUTPUT.PUT_LINE('未初期化');
  END IF;

  -- 組み合わせ
  IF v_flag AND NOT v_verified THEN
    DBMS_OUTPUT.PUT_LINE('パターンA');
  END IF;
END;

DECLARE
  v_bool BOOLEAN;
  v_char CHAR(1);
BEGIN
  -- BOOLEAN → CHAR
  v_char := CASE WHEN v_bool THEN 'Y' ELSE 'N' END;

  -- CHAR → BOOLEAN
  v_bool := (v_char = 'Y');

  -- BOOLEAN値をSQL内で直接使うとエラー
  -- INSERT INTO t(flag) VALUES (v_bool);    -- PLS-00306
  INSERT INTO t(flag) VALUES (CASE WHEN v_bool THEN 'Y' ELSE 'N' END);  -- OK
END;

DECLARE
  v_article    CLOB;        -- 最大128TB文字（記事本文・JSON）
  v_image      BLOB;        -- 最大128TBバイナリ（画像・PDF）
  v_nclob      NCLOB;       -- Unicode CLOB
  v_bfile      BFILE;       -- 外部ファイル参照（DBに保存しない）
BEGIN
  -- CLOB初期化（空文字と NULL は別物）
  v_article := EMPTY_CLOB();

  -- 追記
  DBMS_LOB.APPEND(v_article, 'これは記事本文の先頭');
  DBMS_LOB.APPEND(v_article, CHR(10) || '続き...');

  -- 長さ取得
  DBMS_OUTPUT.PUT_LINE('length=' || DBMS_LOB.GETLENGTH(v_article));

  -- 部分読み出し
  DBMS_OUTPUT.PUT_LINE(DBMS_LOB.SUBSTR(v_article, 100, 1));
END;

-- ❌ 明示型宣言（テーブル変更時に全変数を書き換え必要）
DECLARE
  v_email VARCHAR2(100);
  v_name  VARCHAR2(50);
BEGIN
  SELECT email, name INTO v_email, v_name FROM users WHERE id = 1;
END;
-- ↑ usersテーブルのemail/name列の型が変わったら全箇所修正

-- ⭕ %TYPEで継承（テーブル変更に自動追従）
DECLARE
  v_email users.email%TYPE;
  v_name  users.name%TYPE;
BEGIN
  SELECT email, name INTO v_email, v_name FROM users WHERE id = 1;
END;
-- ↑ usersテーブルのALTER TABLEで長さ変更→変数定義は無修正でOK

-- テーブル%ROWTYPE
DECLARE
  v_user users%ROWTYPE;
BEGIN
  SELECT * INTO v_user FROM users WHERE id = 1;
  DBMS_OUTPUT.PUT_LINE(v_user.id || ' ' || v_user.email);
END;

-- カーソル%ROWTYPE（SELECTした列だけ軽量）
DECLARE
  CURSOR cur IS SELECT id, email FROM users;
  v_row cur%ROWTYPE;
BEGIN
  OPEN cur;
  FETCH cur INTO v_row;
  DBMS_OUTPUT.PUT_LINE(v_row.id || ' / ' || v_row.email);
  CLOSE cur;
END;

DECLARE
  -- ❌ NULL初期化（意図せずNULLで演算してバグる）
  v_count NUMBER;

  -- ⭕ DEFAULT で明示初期化
  v_sum   NUMBER DEFAULT 0;
  v_name  VARCHAR2(100) := '(unknown)';  -- := でも DEFAULT でも同義

  -- ⭕ NOT NULL：NULL代入を禁止（初期値必須）
  v_id    NUMBER NOT NULL := 0;
  v_flag  BOOLEAN NOT NULL DEFAULT FALSE;

  -- NOT NULL宣言なのに初期値無しはエラー
  -- v_bad NUMBER NOT NULL;   -- PLS-00218
BEGIN
  -- NOT NULL変数にNULL代入は実行時エラー（VALUE_ERROR）
  -- v_id := NULL;

  -- NULL同士の演算は結果もNULL
  v_count := v_count + 1;  -- NULL + 1 = NULL（v_countは永遠にNULL）
END;

-- ❌ マジックナンバーが散らばる
DECLARE
  v_tax NUMBER;
BEGIN
  v_tax := v_price * 0.10;      -- 0.10 ってなんだっけ？
  UPDATE orders SET tax = price * 0.10 WHERE id = v_id;
  -- 税率変更時に全コピペ箇所を修正する必要
END;

-- ⭕ CONSTANTで一元管理
DECLARE
  c_tax_rate      CONSTANT NUMBER := 0.10;
  c_max_retry     CONSTANT PLS_INTEGER := 3;
  c_session_ttl   CONSTANT NUMBER := 3600;  -- 秒
  c_error_code    CONSTANT NUMBER := -20001;

  v_tax NUMBER;
BEGIN
  v_tax := v_price * c_tax_rate;
  -- 税率変更時は c_tax_rate の定義だけ変えればOK
END;

CREATE OR REPLACE PACKAGE pkg_constants IS
  -- ビジネスロジック
  c_tax_rate       CONSTANT NUMBER := 0.10;
  c_shipping_free  CONSTANT NUMBER := 10000;

  -- 技術パラメータ
  c_batch_size     CONSTANT PLS_INTEGER := 1000;
  c_max_retry      CONSTANT PLS_INTEGER := 3;
  c_retry_delay    CONSTANT PLS_INTEGER := 2;  -- 秒

  -- エラーコード
  c_err_not_found  CONSTANT NUMBER := -20001;
  c_err_invalid    CONSTANT NUMBER := -20002;

  -- 文字列定数
  c_status_active  CONSTANT VARCHAR2(20) := 'active';
  c_status_deleted CONSTANT VARCHAR2(20) := 'deleted';
END;
/

-- 利用側
BEGIN
  IF v_retry_count < pkg_constants.c_max_retry THEN
    process_retry();
  END IF;
END;

DECLARE
  -- カスタムレコード型を定義
  TYPE t_user_summary IS RECORD (
    id          NUMBER,
    email       VARCHAR2(100),
    order_count NUMBER DEFAULT 0,
    total_amt   NUMBER DEFAULT 0
  );

  v_user t_user_summary;
BEGIN
  v_user.id := 1;
  v_user.email := 'test@example.com';
  v_user.order_count := 10;
  v_user.total_amt := 50000;

  DBMS_OUTPUT.PUT_LINE(v_user.email || ' / ' || v_user.order_count);
END;

DECLARE
  -- ① ネスト表（大きさ可変）
  TYPE t_ids IS TABLE OF NUMBER;
  v_ids t_ids := t_ids(1, 2, 3);

  -- ② VARRAY（固定上限の可変長配列）
  TYPE t_scores IS VARRAY(10) OF NUMBER;
  v_scores t_scores := t_scores();

  -- ③ 連想配列（インデックス任意・最頻出）
  TYPE t_user_map IS TABLE OF users%ROWTYPE INDEX BY PLS_INTEGER;
  v_users t_user_map;

  TYPE t_attr_map IS TABLE OF VARCHAR2(100) INDEX BY VARCHAR2(50);
  v_attrs t_attr_map;
BEGIN
  -- 操作
  v_ids.EXTEND; v_ids(v_ids.COUNT) := 4;
  v_attrs('color') := 'red';
  v_attrs('size') := 'M';

  DBMS_OUTPUT.PUT_LINE(v_ids(1));
  DBMS_OUTPUT.PUT_LINE(v_attrs('color'));
END;

DECLARE
  -- 基本型にエイリアス
  SUBTYPE user_id_t      IS NUMBER(10);
  SUBTYPE email_t        IS VARCHAR2(255);
  SUBTYPE percentage_t   IS NUMBER(5, 2)  NOT NULL;
  SUBTYPE positive_int_t IS PLS_INTEGER  RANGE 1..2147483647;

  v_uid    user_id_t := 100;
  v_email  email_t   := 'user@example.com';
  v_tax    percentage_t := 10.00;
  v_count  positive_int_t := 1;
BEGIN
  -- v_count := -1;   -- RANGE制約で実行時エラー
  -- v_tax := NULL;   -- NOT NULL制約で実行時エラー
  NULL;
END;

DECLARE
  v_outer NUMBER := 10;
BEGIN
  DECLARE
    v_inner NUMBER := 20;
  BEGIN
    -- 内側ブロックからは外側が見える
    DBMS_OUTPUT.PUT_LINE(v_outer);   -- 10
    DBMS_OUTPUT.PUT_LINE(v_inner);   -- 20
  END;

  -- 外側からは内側は見えない
  -- DBMS_OUTPUT.PUT_LINE(v_inner);  -- PLS-00201
END;

-- パッケージ仕様
CREATE OR REPLACE PACKAGE pkg_session IS
  g_user_id   NUMBER;
  g_session_id VARCHAR2(100);
  g_debug     BOOLEAN := FALSE;

  PROCEDURE set_user(p_id NUMBER);
  FUNCTION  get_user RETURN NUMBER;
END;
/

CREATE OR REPLACE PACKAGE BODY pkg_session IS
  PROCEDURE set_user(p_id NUMBER) IS
  BEGIN
    g_user_id := p_id;
  END;

  FUNCTION get_user RETURN NUMBER IS
  BEGIN
    RETURN g_user_id;
  END;
END;
/

-- 使用（同一セッション内で値が持続）
BEGIN
  pkg_session.set_user(100);
END;
/

BEGIN
  DBMS_OUTPUT.PUT_LINE(pkg_session.get_user);  -- 100
END;

DECLARE
  v_num NUMBER;
  v_str VARCHAR2(50);
  v_dt  DATE;
BEGIN
  -- 文字列 → 数値
  v_num := TO_NUMBER('1234.56');
  v_num := TO_NUMBER('1,234.56', '9,999.99');

  -- 数値 → 文字列
  v_str := TO_CHAR(1234.56);
  v_str := TO_CHAR(1234.56, 'FM9,999.99');

  -- 日付変換（必ずフォーマット指定）
  v_dt  := TO_DATE('2026-04-23', 'YYYY-MM-DD');
  v_str := TO_CHAR(SYSDATE, 'YYYY-MM-DD HH24:MI:SS');
END;

DECLARE
  v_num NUMBER;
  v_str VARCHAR2(20);
BEGIN
  -- 暗黙変換（動くが実行時エラーリスク）
  v_num := '123';       -- OK（暗黙のTO_NUMBER）
  v_num := 'abc';       -- 実行時エラー（INVALID_NUMBER）

  -- セッションNLS_NUMERIC_CHARACTERSに依存するトラブル
  v_num := '1,234';     -- セッション設定によって成功／失敗が変わる

  -- 日付の暗黙変換は特に危険
  v_str := SYSDATE;     -- セッションNLS_DATE_FORMAT依存
  -- 環境が変わると出力フォーマットが変わって動作変更
END;

DECLARE
  v_user users%ROWTYPE;
BEGIN
  v_user.id := NULL;                         -- INSERTでシーケンス使う
  v_user.email := p_email;
  v_user.created_at := SYSDATE;
  v_user.status := pkg_constants.c_status_active;

  INSERT INTO users VALUES v_user;
END;

CREATE OR REPLACE PACKAGE pkg_config IS
  c_tax_rate CONSTANT NUMBER := 0.10;
  c_shipping_free CONSTANT NUMBER := 10000;
  c_premium_discount CONSTANT NUMBER := 0.15;
END;

-- 呼出し側
v_tax := v_subtotal * pkg_config.c_tax_rate;

DECLARE
  v_count PLS_INTEGER := 0;
BEGIN
  FOR i IN 1..10000000 LOOP
    v_count := v_count + 1;
  END LOOP;
  -- NUMBERの10倍速
END;

DECLARE
  v_total_count  NUMBER NOT NULL := 0;
  v_error_count  NUMBER NOT NULL := 0;
  v_processed    BOOLEAN NOT NULL DEFAULT FALSE;
BEGIN
  -- NULLによる演算バグを物理的に防ぐ
  v_total_count := v_total_count + 1;
  v_processed := TRUE;
END;

DECLARE
  TYPE t_order_input IS RECORD (
    user_id NUMBER,
    items   VARCHAR2(4000),
    amount  NUMBER,
    notes   VARCHAR2(1000)
  );
  v_input t_order_input;
BEGIN
  v_input.user_id := 100;
  v_input.items := '[{"id":1},{"id":2}]';
  v_input.amount := 5000;
  create_order(v_input);
END;

DECLARE
  SUBTYPE amount_t IS NUMBER(12, 2) NOT NULL;
  SUBTYPE jpy_yen_t IS NUMBER(12, 0) NOT NULL;  -- 円は小数なし

  v_price   amount_t := 1500.00;
  v_yen_qty jpy_yen_t := 1500;
BEGIN
  NULL;
END;

DECLARE
  TYPE t_cache IS TABLE OF VARCHAR2(100) INDEX BY VARCHAR2(50);
  v_cache t_cache;

  FUNCTION lookup(p_key VARCHAR2) RETURN VARCHAR2 IS
  BEGIN
    IF v_cache.EXISTS(p_key) THEN
      RETURN v_cache(p_key);
    END IF;

    -- キャッシュミス → DBから取得
    SELECT value INTO v_cache(p_key)
    FROM config WHERE key = p_key;
    RETURN v_cache(p_key);
  END;
BEGIN
  DBMS_OUTPUT.PUT_LINE(lookup('site_name'));
END;

CREATE OR REPLACE PACKAGE pkg_ctx IS
  g_current_user   NUMBER;
  g_audit_source   VARCHAR2(100);
END;

-- ログイン時にセット
BEGIN
  pkg_ctx.g_current_user := 100;
  pkg_ctx.g_audit_source := 'web_app';
END;

-- 以降のすべての処理から参照可能
BEGIN
  INSERT INTO audit_log(action_by, source)
  VALUES (pkg_ctx.g_current_user, pkg_ctx.g_audit_source);
END;

DECLARE
  v_date_str VARCHAR2(20) := '2026-04-23';
  v_date     DATE;
  v_amount   NUMBER;
  v_input    VARCHAR2(20) := '1234.56';
BEGIN
  v_date := TO_DATE(v_date_str, 'YYYY-MM-DD');
  v_amount := TO_NUMBER(v_input);
EXCEPTION
  WHEN INVALID_NUMBER OR VALUE_ERROR THEN
    RAISE_APPLICATION_ERROR(-20001, '数値変換エラー: ' || v_input);
END;

DECLARE
  v_verified BOOLEAN := TRUE;
  v_flag CHAR(1);
BEGIN
  v_flag := CASE WHEN v_verified THEN 'Y' ELSE 'N' END;
  INSERT INTO users(id, verified_flag) VALUES (p_id, v_flag);
END;