COBOL(コボル)言語のDBの指定文字を削除する「TRIM」とは?

リレーショナル型のデータベースに対して、特定の列の値（文字列）から不要な空白や指定文字を削除するためには「TRIM」を使用します。削除できるのは文字列の先頭・末尾にある文字で、文字列の途中にある文字は削除されません。また、削除する文字を指定しない場合は「空白」が削除されます。使い方をしっかり身につけましょう。

書き方:

TRIM(対象文字列)
TRIM(対象文字列,削除する文字列)

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

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

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

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

1.ホスト変数の定義

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

2.共通領域の定義

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

3.データベース接続

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

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

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

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

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

使用例1

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

テーブル(test4):

実行結果:

DBアクセスおよび「TRIM」関数の基本的な処理構成と書き方についてご理解いただけたでしょうか？今度は、応用的な使い方について考えていきましょう。TRIMは他に文字列の先頭の文字を削除する「LTRIM」と文字列の末尾の文字を削除する「RTRIM」を利用することができます。関数として2種類用意されており、先頭だけ、末尾だけ、という使い方ができますので実際に試してみましょう。なお、「LTRIM」「RTRIM」ともに削除する文字列を指定しなかった場合は「空白」が削除されます。

使用例２：

IDENTIFICATION          DIVISION.
PROGRAM-ID.            db_trim_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-NAME  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 ltrim(tname,'1.')
 INTO :WK-NAME
 FROM test3
 WHERE tid = '1'
END-EXEC.
DISPLAY WK-NAME.
 
EXEC SQL
 SELECT rtrim(tname,':1')
 INTO :WK-NAME
 FROM test3
 WHERE tid = '2'
END-EXEC.
STOP RUN.
ND PROGRAM db_trim_sample02.

テーブル(test3):

実行結果:

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

問題) TRIMで削除される「空白」は、全角空白・半角空白のどちらも対象になるでしょうか？

答え)一般的に、デフォルトでは半角空白のみが削除対象になります。全角空白を削除したい場合は、削除する文字として全角空白を明示的に指定する必要があります。「TRIM」はちょっとした時に便利に活用できますので、覚えておきましょう。

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

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

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

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

COBOL入門のカテゴリー

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