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

COBOL(コボル)言語のDBの列名を別名で使用する「AS」とは?

応用-DBアクセスパターンAS-イメージ

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

リレーショナル型のデータベースに対して、実行結果の列名を別名で使用する際には「AS」句を使用します。別名はエイリアスとも呼ばれますが、主に「列名」や「テーブル名」に対してわかりやすい名前を一時的に付けたい場合に使用します。別名を付けることでPGM中の表示名がわかりやすくなったり、SQL文を短く表現することができます。COBOL(コボル)言語でDBアクセスする際にも利用できる機能になりますので、しっかり使い方を身につけましょう。

書き方（列名にASを使う）:

SELECT 列名 AS 別名 FROM テーブル名

書き方（テーブル名にASを使う）:

SELECT 列名 FROM テーブル名 AS 別名

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

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

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

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

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

1.ホスト変数の定義

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

2.共通領域の定義

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

3.データベース接続

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

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

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

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

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

使用例1:

※今回のDBMSは、オープンソースの「PostgreSQL」を使用しています。
※USERNAME、PASSWORDはご自身の環境に合わせて指定してください。（省略します）

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

使用例１は列名にASを使うパターンになります。実行結果ではASが機能しているかわかり難いため、SQL文を直接実行した結果を記載しておきます。

応用-ASの対応プログラム1

テーブル(test):
応用-ASの対応プログラム1 テーブル(test)

実行結果:

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

DBアクセスおよび「AS」句の基本的な処理構成と書き方についてご理解いただけたでしょうか？今度は、応用的な使い方について考えていきましょう。先ほど書き方でもご紹介しましたがASはテーブル名にも使用することができます。このため、例えばJOINなど複数テーブルを共通のキーで結合して1つの結果を取得する際にもSQLを読みやすくすることができます。

使用例２：

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 TNAME2    PIC X(10).
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 a.tid,a.tname,b.tname
 INTO :TID,:TNAME,:TNAME2
 FROM test AS a
 JOIN test3 AS b
 ON a.tid = b.tid
 WHERE a.tid = '0001'
END-EXEC.
 
DISPLAY TID TNAME TNAME2.
STOP RUN.
END PROGRAM db_selectas_sample02.