PL/SQL コントロールブレイク処理ＳＱＬとの比較も紹介

こんにちは！健史です。

ＳＱＬでは、キーごとの集計処理がとても簡単にできます！

ＰＬ／ＳＱＬで同じ処理を作成してみました。

目　次　

処理概要とＳＱＬによる処理
ＰＬ／ＳＱＬによる処理
1. プログラム
2. 補足説明
最後に

処理概要とＳＱＬによる処理

処理概要です。

テーブル[商品]を項目[商品分類コード]ごとの件数を集計し、テーブル[集計]に出力する処理です。

ＳＱＬです。

INSERT INTO 集計
SELECT 商品分類コード,COUNT(*) FROM 商品
GROUP BY 商品分類コード
ORDER BY 商品分類コード

ＰＬ／ＳＱＬによる処理

プログラム

以下の記事のロジックにて作成しました。

コンロトールブレイクキーブレイクのロジックを徹底解説!VBAで確認

コントロールブレイク・キーブレイク処理をこれから作成する、作成中だけど正確に動かない、作成したけど正確性を確認したいなど思われている方へ、チェックポイントを含め詳細を紐解いて解説します。基本中の基本であるロジックをマスターしちゃいましょう！

ＰＬ／ＳＱＬです。

-- ＜＜カーソル定義＞＞ --
  CURSOR CUR1 IS
    SELECT * FROM 商品
    ORDER BY 商品分類コード,商品コード;
-- ＜＜レコード定義＞＞ --
    商品REC CUR1%ROWTYPE;
    集計REC 集計%ROWTYPE;
-- ＜＜ワーク定義＞＞ --
    WK_KEY  VARCHAR2(100);
    OLD_KEY VARCHAR2(100);
    WK件数   NUMBER(5);
-- ＜＜ファンクション定義(サブルーチン)＞＞ --
---- 1.テーブル１読み込み処理 
FUNCTION READ1
RETURN VARCHAR2 IS 
BEGIN
  FETCH CUR1 INTO 商品REC;
  IF CUR1%NOTFOUND THEN
      RETURN(NULL);
  ELSE
      RETURN(商品REC.商品分類コード);
  END IF;
END;
BEGIN
  OPEN CUR1;
  WK_KEY := READ1();
  WHILE NOT CUR1%NOTFOUND LOOP
--初期処理
      OLD_KEY := WK_KEY;
      WK件数 := 0;
      集計REC  := NULL;
      集計REC.商品分類コード := 商品REC.商品分類コード;
--集計処理
      WHILE NOT CUR1%NOTFOUND AND OLD_KEY = WK_KEY LOOP 
          WK件数 := WK件数 + 1;
          WK_KEY := READ1();
      END LOOP;
--ブレイク後の処理
      集計REC.件数          := WK件数;
      INSERT INTO 集計 VALUES 集計REC;
  END LOOP;
  COMMIT;
  CLOSE CUR1;

PL/SQLには[Until]文がないため、[While]文でしか記述できません。

補足説明

・複数項目を結合してもよいようにWK_KEYを使用
この記事では、キー項目をワーク上の[WK_KEY]にセットしています。

WK_KEYにセットしなくても、比較項目としてワーク上に[OLD_項目名]をそれぞれ定義し、[OLD_項目名]への退避やキーの比較は入力項目名を記載しても同じです。

ですが、現場では単一項目によるブレイクキーは少なく、ほとんどが複合項目です。

そのため、[OLD_項目名]への退避やキーの比較を単純にして、かつ、汎用性を持たせるために[WK_KEY][OLD_KEY]としています。

尚、項目の結合をＰＬ／ＳＱＬでは、[||]を使います。

以下は、参考記事です。

PL/SQL マッチング処理ＳＱＬとの比較も紹介

こんにちは！健史です。ＳＱＬでは、マッチング処理がとても簡単にできます！ＰＬ／ＳＱＬで同じ処理を作成してみました。尚、入出力データはEXCELシートで説明していますが、オラクル上にロードしたデータをSqlDevel...

[WK_KEY][OLD_KEY]は、それぞれ[VARCHAR2(100);]としています。

この記事では100桁にしていますが、結合したキー長が100桁を超える場合は変更が必要です。

また、NUMBER型の項目をブレイクキーとしてセットする場合には、そのままセットしても問題ありませんが、習慣として「LPAD」関数で頭を'0'埋めすることをお勧めします。

最後に

このプログラムを作成したのは、個人的な技術検証の観点によるものです。

ですが、ＰＬ／ＳＱＬでもコントロールブレイク処理を作成するケースは多々あると思います。

ＰＬ／ＳＱＬで「カーソルFOR LOOP文」を使用した場合は、読み込み処理を制御できないため、IF文型で作成するしかないでしょう。

これまでコントロールブレイク処理を「カーソルFOR LOOP文＆ IF文型」で標準化されておられる組織・担当の方、今からでも構造化型にすることを検討し変更されてはいかがでしょうか。

IF文型よりは見やすく、新人の方にも説明しやすく分かりやすいと思います。

参考にして頂ければと思います。