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

COBOL(コボル)言語のDBの結果を指定した順番で取り出す「ORDER BY」とは?

応用-ORDERBY-イメージ

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

リレーショナル型のデータベースに対して、特定の順番でレコードを取り出す際には「ORDER BY」句を使用します。

SELECT文と共に利用され、デフォルトでは昇順(ASC)で並べ替えられますが、降順(DESC)を指定することも可能です。また複数のカラムを指定した並び替えも可能で、優先順位に応じた並べ替えをする際に利用します。COBOL(コボル)言語でもDBにアクセスする際によく利用する機能になりますので、しっかり使い方を身につけましょう。

書き方:

SELECT * FROM テーブル名 ORDER BY カラム名 ASC(DESC)

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

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

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

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

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

1.ホスト変数の定義

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

2.共通領域の定義

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

3.データベース接続

DBにアクセスする際は、ユーザID、パスワードを利用して接続することになります。

この接続についてもプログラミングして定義しておきます。

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

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

1.ホスト変数の定義～3.データベース接続はSQLを利用する際は必ず必要になってきますので、一度サンプルを作成して他でも活用できるようにしておきましょう。

では基本的な処理構成について記述したサンプルプログラム(使用例1)を用意しましたので、その書き方について見ていきましょう。

使用例1:

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

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

応用-ORDERBYの対応プログラム1-使用例1

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

実行結果:

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

DBアクセス及び「ORDER BY」句の基本的な処理構成と書き方についてご理解いただけたでしょうか？今度は、応用的な使い方について考えていきましょう。使用方法にも記載しましたが「ORDER BY」句は複数のカラムを指定したり、並び順を昇順や降順に指定したりすることができます。テーブルのデータ状態を把握しながらどういう指定でレコードが抽出されるか考えていただき、ORDER BY句の指定方法を学んでみましょう。

使用例２：

IDENTIFICATION          DIVISION.
PROGRAM-ID.            db_orderby_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 TID     PIC X(4).
01 TNAME    PIC X(10).
01 SW-AREA.
 03 SW-NOTFOUND PIC X(01) VALUE SPACE.
01 CST-AREA.
 03 CST-1X    PIC X(01) VALUE "1".
 03 CST-SQL-NF PIC S9(09) COMP-5 VALUE +100.
EXEC SQL END DECLARE SECTION END-EXEC.
*****************************************************
* 2.共通領域の定義
EXEC SQL INCLUDE SQLCA END-EXEC.
*****************************************************
PROCEDURE          DIVISION.
MAIN-RTN          SECTION.
* 3.データベース接続
EXEC SQL
 CONNECT :USERNAME IDENTIFIED BY :PASSWORD
    USING :DBNAME
END-EXEC.
* 4.データベースアクセス
*** DB カーソルオープン処理
  PERFORM  OPEN-RTN.
*** DB FETCH処理
  PERFORM  FETCH-RTN UNTIL SW-NOTFOUND = CST-1X.
*** DB カーソルクローズ処理
  PERFORM  CLOSE-RTN.
STOP RUN.
MAIN-EXIT.
*****************************************************
***  DB カーソルオープン処理
OPEN-RTN          SECTION.
 EXEC SQL
  DECLARE CSR01  CURSOR  FOR
  SELECT  tid,tname
  FROM    test
  ORDER BY tid DESC,tname ASC
END-EXEC.
EXEC SQL
  OPEN CSR01
  END-EXEC.
OPEN-EXIT.
*****************************************************
***  DB FETCH処理
FETCH-RTN          SECTION.
 EXEC SQL
  FETCH CSR01
  INTO  :TID,:TNAME
 END-EXEC.
*
 IF SQLCODE = CST-SQL-NF
 THEN
  MOVE CST-1X TO SW-NOTFOUND
 ELSE
  DISPLAY TID TNAME
 END-IF.
 FETCH-EXIT.
*****************************************************
***  DB カーソルクローズ処理
CLOSE-RTN          SECTION.
 EXEC SQL
  CLOSE CSR01
 END-EXEC.
CLOSE-EXIT.
*****************************************************
END PROGRAM db_orderby_sample02.