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

COBOL(コボル)言語でテーブルを作成する「CREATE TABLE」とは?

応用-CREATE TABLE-イメージ

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

リレーショナル型のデータベースに対して、テーブル（表）を作成する際には「CREATE TABLE」を使用します。CREATE TABLE を使用する際は、カラム（列）とデータ型を必要な数だけ指定します。データ型として指定できるものは数字や文字列などが指定できます。（種類が多いのでここでは詳細は省略します）また、列には制約を指定することもできます。

NOT NULL、UNIQUE、PRIMARY KEY などがありますが、テーブルの設計内容に応じて指定してください。COBOL(コボル)言語では DB にアクセスする際にまず使用する基本的な SQL文の一つですので、しっかり使い方を身につけましょう。

書き方:

CREATE TABLE 表名 ( 列名１データ型１,列名２データ型２,・・・)

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

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

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

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

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

1.ホスト変数の定義

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

2.共通領域の定義

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

3.データベース接続

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

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

1～3の準備が整った後、初めてSQL文を記述することができます。今回ご紹介する「CREATE TABLE」文はこの領域を利用してプログラミングしていきます。また、テーブル作成を確定させるために「COMMIT」文を合わせて実行させることがポイントになります。

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

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

使用例1:

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

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

テーブル(test1：処理前):
応用-CREATE TABLE-処理前

テーブル(test1：処理後):
応用-CREATE TABLE-処理後

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

DBアクセス及び「CREATE TABLE」の基本的な処理構成と書き方についてご理解いただけたでしょうか？今度は応用的な使い方について考えていきましょう。「CREATE TABLE」は一度定義すればほとんど変更が発生することがないため、実際の業務処理で現れることはありませんが、初期データのセットアップ（INSERT）、その初期データの確認(SELECT)と合わせて使うことがありますので、いろいろなSQL文と組み合わせて使えるようになりましょう。

使用例２：

IDENTIFICATION          DIVISION.
PROGRAM-ID.                     db_create_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).
 
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
 CREATE TABLE test1 (
 tid   char(4),
 tname char(10)
 )
END-EXEC.
EXEC SQL
 COMMIT
END-EXEC.
EXEC SQL
 INSERT INTO test1 (tid,tname) 
    VALUES('0001','apple')
END-EXEC.
EXEC SQL
 COMMIT
END-EXEC.
EXEC SQL
 SELECT tid,tname
 INTO :TID,:TNAME
 FROM test1
END-EXEC.
DISPLAY TID TNAME.
STOP RUN.
END PROGRAM db_create_sample02.

テーブル(test1：処理前):
応用-CREATE TABLEの対応プログラム2-実行結果1

実行結果：

練習問題

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

問題) テーブルを「CREATE TABLE」で作成した後に列を追加するにはどのような方法があるでしょう？

答え)

列を追加する場合には、「ALTER TABLE」が利用できます。ALTER TABLEを利用しなくとも、一度「DROP TABLE」でテーブルを削除した後に「CREATE TABLE」を使えば列名を追加することができます。このように列名を追加するだけでもいくつか方法がありますので、実際にプログラミングすることでいろいろな処理方法を身につけていきましょう。