【Oracle】明示的カーソル（Explicit CURSOR）完全ガイド｜OPEN/FETCH/CLOSE・カーソルFOR LOOP・パラメータ・BULK COLLECTまで実例で解説

DECLARE
    -- ① DECLARE: カーソルの定義（SELECT 文を名前に関連付ける）
    CURSOR c_emp IS
        SELECT employee_id, last_name, salary
        FROM employees
        WHERE department_id = 50
        ORDER BY salary DESC;

    -- FETCH で受け取る変数（%ROWTYPE でカーソルの行型を自動定義）
    v_rec c_emp%ROWTYPE;
BEGIN
    -- ② OPEN: SELECT を実行してカーソルを開く
    OPEN c_emp;

    -- ③ FETCH: 1行ずつ取り出す（ループ）
    LOOP
        FETCH c_emp INTO v_rec;
        EXIT WHEN c_emp%NOTFOUND;   -- データがなくなったら終了

        DBMS_OUTPUT.PUT_LINE(
            'ID=' || v_rec.employee_id ||
            ' 名前=' || v_rec.last_name ||
            ' 給与=' || v_rec.salary
        );
    END LOOP;

    -- ④ CLOSE: リソースを解放する（必ず実行する）
    CLOSE c_emp;
END;
/

DECLARE
    CURSOR c_emp IS
        SELECT employee_id, last_name, salary
        FROM employees
        WHERE department_id = 50;
    v_rec c_emp%ROWTYPE;
BEGIN
    -- %ISOPEN でオープン状態を確認してから OPEN
    IF NOT c_emp%ISOPEN THEN
        OPEN c_emp;
    END IF;

    LOOP
        FETCH c_emp INTO v_rec;
        EXIT WHEN c_emp%NOTFOUND;   -- データなし → ループ終了

        -- %ROWCOUNT: 何行目かをログに出力
        IF c_emp%ROWCOUNT <= 5 THEN
            DBMS_OUTPUT.PUT_LINE(
                c_emp%ROWCOUNT || '件目: ' || v_rec.last_name
            );
        END IF;
    END LOOP;

    DBMS_OUTPUT.PUT_LINE('合計処理件数: ' || c_emp%ROWCOUNT);
    CLOSE c_emp;

EXCEPTION
    WHEN OTHERS THEN
        -- 例外発生時も CLOSE でリソースを解放する
        IF c_emp%ISOPEN THEN
            CLOSE c_emp;
        END IF;
        RAISE;
END;
/

DECLARE
    -- パラメータ付きカーソル: CURSOR 名 (パラメータ名 型) IS SELECT ...
    CURSOR c_dept_emp (p_dept_id NUMBER, p_min_salary NUMBER := 0) IS
        SELECT employee_id, last_name, salary
        FROM employees
        WHERE department_id = p_dept_id
          AND salary >= p_min_salary
        ORDER BY salary DESC;

    v_rec c_dept_emp%ROWTYPE;
BEGIN
    -- 部門 10 を処理
    DBMS_OUTPUT.PUT_LINE('--- 部門 10 ---');
    OPEN c_dept_emp(10);
    LOOP
        FETCH c_dept_emp INTO v_rec;
        EXIT WHEN c_dept_emp%NOTFOUND;
        DBMS_OUTPUT.PUT_LINE(v_rec.last_name || ': ' || v_rec.salary);
    END LOOP;
    CLOSE c_dept_emp;

    -- 同じカーソルを部門 50、給与 30万以上 で再オープン
    DBMS_OUTPUT.PUT_LINE('--- 部門 50（30万以上）---');
    OPEN c_dept_emp(50, 300000);
    LOOP
        FETCH c_dept_emp INTO v_rec;
        EXIT WHEN c_dept_emp%NOTFOUND;
        DBMS_OUTPUT.PUT_LINE(v_rec.last_name || ': ' || v_rec.salary);
    END LOOP;
    CLOSE c_dept_emp;
END;
/

BEGIN
    -- カーソル FOR LOOP: OPEN/FETCH/CLOSE を自動処理
    -- v_rec は暗黙的に宣言される（明示的な DECLARE 不要）
    FOR v_rec IN (
        SELECT employee_id, last_name, salary
        FROM employees
        WHERE department_id = 50
        ORDER BY salary DESC
    ) LOOP
        DBMS_OUTPUT.PUT_LINE(
            v_rec.last_name || ': ' || v_rec.salary
        );
    END LOOP;
    -- カーソルは自動的に CLOSE される
END;
/

-- 名前付きカーソルを使うバリエーション
DECLARE
    CURSOR c_emp IS
        SELECT employee_id, last_name, salary
        FROM employees
        WHERE department_id = 50;
BEGIN
    FOR v_rec IN c_emp LOOP
        DBMS_OUTPUT.PUT_LINE(v_rec.last_name || ': ' || v_rec.salary);
    END LOOP;
END;
/

DECLARE
    -- コレクション型（配列）の定義
    TYPE t_emp_id   IS TABLE OF employees.employee_id%TYPE;
    TYPE t_last_name IS TABLE OF employees.last_name%TYPE;
    TYPE t_salary   IS TABLE OF employees.salary%TYPE;

    v_ids    t_emp_id;
    v_names  t_last_name;
    v_sals   t_salary;
BEGIN
    -- BULK COLLECT INTO: 一括取得（全件）
    SELECT employee_id, last_name, salary
    BULK COLLECT INTO v_ids, v_names, v_sals
    FROM employees
    WHERE department_id = 50
    ORDER BY salary DESC;

    -- 取得した配列をループ処理
    FOR i IN 1 .. v_ids.COUNT LOOP
        DBMS_OUTPUT.PUT_LINE(
            i || ': ' || v_names(i) || ' = ' || v_sals(i)
        );
    END LOOP;

    DBMS_OUTPUT.PUT_LINE('合計: ' || v_ids.COUNT || '件');
END;
/

DECLARE
    CURSOR c_emp IS
        SELECT employee_id, last_name, salary
        FROM employees
        WHERE department_id = 50
        ORDER BY employee_id;

    -- %ROWTYPE の TABLE 型でまとめて受け取る
    TYPE t_emp_tbl IS TABLE OF c_emp%ROWTYPE;
    v_batch t_emp_tbl;

    c_batch_size CONSTANT PLS_INTEGER := 100;   -- 一度に取得する行数
    v_total      PLS_INTEGER := 0;
BEGIN
    OPEN c_emp;
    LOOP
        -- LIMIT で一度に取り込む件数を制限してメモリを抑える
        FETCH c_emp BULK COLLECT INTO v_batch LIMIT c_batch_size;
        EXIT WHEN v_batch.COUNT = 0;

        -- バッチ内の処理
        FOR i IN 1 .. v_batch.COUNT LOOP
            -- 例: 給与を 5% 上げて更新
            UPDATE employees
            SET salary = v_batch(i).salary * 1.05
            WHERE employee_id = v_batch(i).employee_id;
        END LOOP;

        v_total := v_total + v_batch.COUNT;
        COMMIT;   -- バッチ単位でコミット
        EXIT WHEN v_batch.COUNT < c_batch_size;   -- 最後のバッチ
    END LOOP;
    CLOSE c_emp;

    DBMS_OUTPUT.PUT_LINE('更新完了: ' || v_total || '件');
END;
/

DECLARE
    TYPE t_emp_id  IS TABLE OF employees.employee_id%TYPE;
    TYPE t_salary  IS TABLE OF employees.salary%TYPE;

    v_ids  t_emp_id;
    v_sals t_salary;
BEGIN
    -- 対象データを一括取得
    SELECT employee_id, salary
    BULK COLLECT INTO v_ids, v_sals
    FROM employees
    WHERE department_id = 50;

    -- FORALL で一括 UPDATE（コンテキストスイッチを最小化）
    FORALL i IN 1 .. v_ids.COUNT
        UPDATE employees
        SET salary = v_sals(i) * 1.03
        WHERE employee_id = v_ids(i);

    DBMS_OUTPUT.PUT_LINE('更新件数: ' || SQL%ROWCOUNT || '件');
    COMMIT;
END;
/

-- 弱い REF CURSOR 型の定義（パッケージや型定義で共有することが多い）
-- Oracle 組み込みの SYS_REFCURSOR を使うのが一般的

-- プロシージャ: 部門IDを受け取り、従業員リストを REF CURSOR で返す
CREATE OR REPLACE PROCEDURE get_dept_employees (
    p_dept_id IN  employees.department_id%TYPE,
    p_cursor  OUT SYS_REFCURSOR
)
AS
BEGIN
    OPEN p_cursor FOR
        SELECT employee_id, last_name, salary
        FROM employees
        WHERE department_id = p_dept_id
        ORDER BY salary DESC;
    -- CLOSE は呼び出し側で行う
END get_dept_employees;
/

-- 呼び出し側: REF CURSOR を受け取って処理
DECLARE
    v_cursor SYS_REFCURSOR;
    v_id     employees.employee_id%TYPE;
    v_name   employees.last_name%TYPE;
    v_salary employees.salary%TYPE;
BEGIN
    get_dept_employees(50, v_cursor);

    LOOP
        FETCH v_cursor INTO v_id, v_name, v_salary;
        EXIT WHEN v_cursor%NOTFOUND;
        DBMS_OUTPUT.PUT_LINE(v_name || ': ' || v_salary);
    END LOOP;

    CLOSE v_cursor;
END;
/