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

COBOL(コボル)言語のDBの表データを全削除する「TRUNCATE TABLE」とは?

応用-truncate table-イメージ

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

リレーショナル型のデータベースに対して、表内の全行を削除するためには「TRUNCATE TABLE」を使用します。似た機能に「DELETE FROM 表名」がありますが、「DELETE FROM 表名」はWHERE句を使って対象行を絞り込める一方、「TRUNCATE TABLE」は表内の全行をまとめて削除するため、WHERE句は使用できません。また、ロールバック機能による戻し方はDBMSや実行状態によって異なるため、利用するデータベースの仕様を確認しておきましょう。では、しっかり使い方を身につけましょう

書き方:

TRUNCATE TABLE テーブル名

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

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

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

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

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

1.ホスト変数の定義

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

2.共通領域の定義

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

3.データベース接続

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

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

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

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

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

使用例1:

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

応用-truncate tableプログラム1-使用例1

応用-truncate tableの対応プログラム1-使用例2

テーブル(test3):
応用-truncate tableの対応プログラム1-テーブル(test3)

実行結果:
応用-truncate tableの対応プログラム1-実行結果1

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

DBアクセス及び「TRUNCATE TABLE」の基本的な処理構成と書き方についてご理解いただけたでしょうか？今度は、応用的な使い方について考えていきましょう。「TRUNCATE TABLE」はテーブルデータの作り直しや置き換え処理などに利用されることが多いです。特に大量データを取り扱う時などに「DELETE文」との違いが出ます。では実際に試してみましょう。

使用例2：

IDENTIFICATION          DIVISION.
PROGRAM-ID.             db_truncate_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 WK-COUNT  PIC X(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 COUNT(*)
  INTO :WK-COUNT
  FROM test3
END-EXEC.
DISPLAY WK-COUNT.
 
EXEC SQL
  TRUNCATE TABLE test3
END-EXEC.
EXEC SQL
  COMMIT
END-EXEC.
 
EXEC SQL
  SELECT COUNT(*)
  INTO :WK-COUNT
  FROM test3
END-EXEC.
DISPLAY WK-COUNT.
 
EXEC SQL
  INSERT INTO test3
  SELECT * from test4
END-EXEC.
EXEC SQL
  COMMIT
END-EXEC.
 
EXEC SQL
  SELECT COUNT(*)
  INTO :WK-COUNT
  FROM test3
END-EXEC.
DISPLAY WK-COUNT.
 
STOP RUN.
END PROGRAM db_truncate_sample02.