COBOL（コボル）言語と連携するデータベースとは

大量データを、コンピューターの処理しやすい形に整理した情報がデータベースです。データの検索、追加、更新、削除が容易にできるため、様々なシステム開発で利用されています。

データベースには階層型、ネットワーク型、リレーションナル型などありますが、一般的にデータベースと言えば、リレーショナル型データベース（RDB）を指します。RDBは、プログラムとデータが分離している事と問い合わせ言語（SQL）が利用できる事が特徴です。前者は、データ構造に修正があってもプログラムへの影響が少なく、後者は、データベースの操作が容易にできるメリットがあります。

（ご参考）データベースとファイルの違い

データの保存や利用には、データベース以外にもファイルが利用できます。ただし、ファイルと比べてデータベースは、データの保管場所を気にする必要がなく、複数ユーザがファイルを同時に共有して利用する事もできるので、その特徴をよく理解した上で、利用用途に合わせた使い分けをしましょう。

データベース（データベースを管理するシステム：DBMS）は、企業からオープンソースまでとても多くの製品が公開されています。COBOLで利用されている主なDBMSには、以下のようなものがあります。

• オープン系システム：Oracle（ORACLE社）、SQL Server（Microsoft社）
• 基幹系システム：Db2（IBM社）

気軽に学習用として使えるデータベースとしては、オープンソースのDBMSがお勧めです。今回はその中の１つ「PostgreSQL（※）」を使って、実際にデータベース（及びテーブル）の作成からデータを検索するまでの流れをご紹介します。

（ご参考）

• 日本PostgreSQLユーザ会(ダウンロード)：
  https://www.postgresql.jp/download
  ※PostgreSQLは、米カリフォルニア大学の発祥の地であるバークレー校で開発され、１０年以上にわたり研究されたPostgresをもとにしたデータベースと言われています。

PostgreSQLのインストールが完了したら、RDBの管理や操作を行う問い合わせ言語、SQL文(※２)を利用して、以下のように①データベース、②テーブル、③データの順で作成し、最後に④作成したテーブルを検索して結果を確認してみましょう。

以下のようなGUIのツールを利用すると操作も視覚的でわかりやすいでしょう。

（ご参考）

• PG Commander：
  https://eggerapps.at/pgcommander/

①データベース作成

CREATE DATABASE [データベース名]

②テーブル作成

CREATE TABLE [テーブル名] (
　 [列名]　[データ型]　[制約],
   ・・
　 )

③データ作成

INSERT INTO [テーブル名] 
 　( [列名1],[列名2]・・) VALUES
 　( [値1],[値2]・・)

④テーブル検索（結果確認）

SELECT * FROM [テーブル名] 

（例）PostgreSQLに標準で付属しているpsqlでの実行結果

①データベース作成

②テーブル作成

③データ作成

④テーブル検索（結果確認）

データベースの作成が確認できたところで、実際にCOBOLと連携してみましょう。今回はOpen Cobolを利用してPostgreSQLと連携してみます。Open CobolとPostgreSQLの連携にはOpen Cobol ESQLなどのプリコンパイラが必要になります。プリコンパイラを利用する事でCOBOLプログラム内に直接SQL文を記述したプログラムを作成する事ができるようになります。

（ご参考）

• Open Cobol ESQLダウンロードサイト：
  https://www.osscons.jp/osscobol/download/addtools/

（例）テーブルからデータを検索するサンプルPGM

dbsample.cbl

IDENTIFICATION DIVISION.
PROGRAM-ID. dbsample.
DATA DIVISION.
 
WORKING-STORAGE SECTION.
01 TID     PIC X(4).
01 TNAME     PIC X(10).
 
******** (1)ホスト変数の定義 ********
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 DBNAME   PIC X(32) VALUE "testdb".
01 USERNAME  PIC X(32) VALUE "PostgreSQLユーザID".
01 PASSWORD  PIC X(32) VALUE "ユーザIDのパスワード".
EXEC SQL END DECLARE SECTION END-EXEC.
*************************************
******** (2)共通領域の定義 **********
EXEC SQL INCLUDE SQLCA END-EXEC.
*************************************
PROCEDURE DIVISION.
MAIN.
******** (3)データベースと接続 ******
  EXEC SQL
    CONNECT :USERNAME IDENTIFIED BY :PASSWORD
      USING :DBNAME
  END-EXEC. 
*************************************
******** (4)データベースとアクセス **
  EXEC SQL
    SELECT tid,tname
    INTO :TID,:TNAME
    FROM test
    WHERE tid='0001'
  END-EXEC.
*************************************
  DISPLAY TID TNAME.
  STOP RUN.

（補足）コンパイル前にはプリコンパイルが必要です。

・Open COBOL ESQL でプリコンパイルします。

$ ocesql dbsample.cbl dbsample.cob

・プリコンパイル後、その結果をもとにしてコンパイルします。

（PostgreSQLインストールディレクトリを指定します。）

$ cobc -x -locesql -lpq -L/usr/local/opt/postgres/lib dbsample.cob

実行結果

いかがでしたでしょうか。データベースとはどういうものか、COBOLとデータベースを連携するにはどうすればいいか、理解いただけた事と思います。

実際のシステム開発の現場では、データベースの利用は避けては通れません。COBOL言語のデータベースの利用方法と共に、実際の操作にあたるSQL文についてもしっかり学習するようにしましょう。

• 前の記事へ
• 次の記事へ

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

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

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

COBOL入門のカテゴリー

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