COBOLのDBアクセスパターンを学ぼう！「GROUP BY」｜応用ガイド

COBOL(コボル)言語のDBの結果を指定した列でグループ化する「GROUP BY」とは?

応用-GROUP BY-イメージ

COBOL(コボル)言語のDBアクセス「GROUP BY」とは？

リレーショナル型のデータベースに対して、特定のテーブルの行を同じ値のグループにまとめ、各グループに集計関数を適用する際には「GROUP BY」句を使用します。例えばある部署ごとの社員数を求める際に「GROUP BY」句が利用できます。集計関数にはCOUNT、SUM、AVG、MIN、MAXなどが使用できますので用途に合わせて使い分けたり、それぞれの集計関数の結果を利用したりすることができます。COBOL(コボル)言語ではDBにアクセスする際によく利用する機能になりますので、しっかり使い方を身につけましょう。

書き方:

SELECT カラム名（集計関数）・・ FROM テーブル名 GOURP BY カラム名

COBOL(コボル)言語のDBアクセス「GROUP BY」の処理構成

COBOL(コボル)言語でSQLを利用する際には、データベースに接続するなど共通の処理を実施しておく必要があります。どのようなSQLを使う場合にも必要になりますので、その使い方について理解しましょう。

[DB利用の基本的な処理構成]

1.ホスト変数の定義、2.共通領域の定義、3.データベース接続、4.データベースアクセス

各処理で実施する処理内容は以下の通りです。

1.ホスト変数の定義

COBOL、DB間のデータ連携は変数定義した項目を利用する必要があります。この変数を利用してDBから取得したデータをCOBOLで加工、編集して利用する使い方になります。

2.共通領域の定義

DBで発生したエラー情報を格納する領域です。DB利用で発生したエラーをもとにエラーハンドリングして利用します。直接の処理をここで定義することはありません。

3.データベース接続

DBにアクセスする際は、ユーザID、パスワードを利用して接続することになります。
この接続についてもプログラミングして定義しておきます。

4.データベースアクセス

1～3の準備が整った後、初めてSQL文を記述することができます。今回ご紹介する「GROUP BY」句はこの領域を利用してプログラミングしていきます。

1.ホスト変数の定義～3.データベース接続はSQLを利用する際は必ず必要になってきますので、一度サンプルを作成して他でも活用できるようにしておきましょう。
では基本的な処理構成について記述したサンプルプログラム(使用例1)を用意しましたので、その書き方について見ていきましょう。

使用例1:

※今回のDBMSは、オープンソースの「PostgreSQL」を使用しています。

※USERNAME、PASSWORDはご自身の環境に合わせて指定ください。（省略します）

応用-GROUPBY-プログラム1-使用例1

テーブル(test):
応用-GROUPBYの対応プログラム1-実行結果1

実行結果:

COBOL(コボル)言語のDBアクセス「GROUP BY」の応用的な使い方

DBアクセス及び「GROUP BY」句の基本的な処理構成と書き方についてご理解いただけたでしょうか？今度は、応用的な使い方について考えていきましょう。使用方法にも記載しましたが「GROUP BY」句は集計関数と組み合わせて使われることが多い機能になります。件数、合計値、平均値、最小、最大など実際にいろいろな集合関数をSQL文に記載いただき、どのような結果が取得できるか学んでみましょう。

使用例２：

IDENTIFICATION                  DIVISION.
PROGRAM-ID.                     db_groupby_sample02.
ENVIRONMENT                     DIVISION.
DATA                            DIVISION.
 WORKING-STORAGE                 SECTION.
* 1.ホスト変数の定義
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01  DBNAME    PIC X(32) VALUE "testdb".
01  USERNAME  PIC X(32) VALUE "********”.
01  PASSWORD  PIC X(32) VALUE “********".
01  TMONTH    PIC X(2).
01  TCOUNT    PIC 9(2).
01  TSUM      PIC 9(2).
01  TMIN      PIC 9(2).
01  TMAX      PIC 9(2).
 EXEC SQL END DECLARE SECTION END-EXEC.
* 2.共通領域の定義
EXEC SQL INCLUDE SQLCA END-EXEC.
PROCEDURE                       DIVISION.
* 3.データベース接続
EXEC SQL
  CONNECT :USERNAME IDENTIFIED BY :PASSWORD
    USING :DBNAME
END-EXEC.
* 4.データベースアクセス
EXEC SQL
  SELECT tmonth,count(tcount),sum(tcount),min(tcount),max(tcount)
   INTO :TMONTH,:TCOUNT,:TSUM,:TMIN,:TMAX
   FROM test2
   GROUP BY tmonth
END-EXEC.
DISPLAY TMONTH,TCOUNT,TSUM,TMIN,TMAX.
STOP RUN.
END PROGRAM db_groupby_sample02.

テーブル(test2):
応用-GROUPBYの対応プログラム2-実行結果1

実行結果：

練習問題

最後に練習問題にチャレンジしてみましょう

問題) サンプルプログラムではSELECT文を利用したためGROUP BYの結果が１件しか取得できませんでした。GROUP BYの結果、複数件のレコードを取得できるようにする場合、どのような対応をすればいいか考えてみましょう。

答え)

SELECT文では複数件のレコードを取得することはできません。複数件のレコードが返却されることがわかっている場合には、「FETCH」を利用します。「FETCH」は複数件のレコードが返却された場合、どの返却行に対して何の処理を行うか指定ができます。別の講座でも紹介していますので合わせて内容確認してみましょう。

この記事を読んだ人は、こちらの記事も読んでいます

あなたのCOBOL技術を活かしませんか？

株式会社COBOLの求人・転職・募集情報を見る

COBOL入門のカテゴリー

｜　基礎　｜　応用　｜　勉強　｜　試験　｜　辞書　｜