COBOL言語の「INSPECT文」で文字列検査!用途を解説します | 用語辞典
COBOL(コボル)言語の予約後INSPECTのTALLYINGを使った命令文の書き方とは
※INSPECT文には文字列の置換えを行う機能(REPLACING)がありますが、別の記事で説明します。
COBOL(コボル)言語のINSPECT文のTALLYNGとは?
COBOL(コボル)には、文字列のデータの中に指定した文字列がいくつあるか検査するINSPECT文のTALLYINGという機能があります。指定した文字列の検査は、例えば取得したデータの中に指定した文字列があるか判断し、結果によって処理を分岐するときによく使われます。
本記事では、INSPECT文のTALLYINGについて基本的な使い方やルール、注意点などをご紹介します。
書き方:
INSPECT [検索対象の文字列] TALLYING
[結果保存項目] FOR ALL [検索文字列] [位置] INITIAL [検索範囲文字列].
以下にINSPECT文を使用して、文字列を検査する簡単なサンプルを紹介します。
使用例:
実行結果:
サンプルではデータ項目WORK-STRに設定した文字列"AABBCCABC"を、INSPECT文のTALLYINGを使用して、文字列"A"が存在するか検査しています。検索文字列の出現回数はデータ項目WORK-RESULTに返却されます。実行結果のとおり、検索文字列"A"は3つあることがわかります。
<複数の文字列を検査したい場合>
また、FOR ALL指定での検索文字列は、1度に1回のみしか使用できないため、複数の文字列を検査したい場合は、再度INSPECT文のTALLYINGを記述して、ALLの後に検索文字列を指定しなければいけません。
そのため、複数検索文字列の指定は、以下のように記述する必要があります。
サンプルでは、文字列"A"と文字列"BB"をそれぞれ検索しています。実行結果はAが3、Bが1となります。
また、結果保存項目はINSPECT文ごとに別々の項目を用意する必要があります。紹介したサンプルでは保存項目は、検索文字列ごとにWORK-RESULT1とWORK-RESULT2の2つを用意していますが、保存項目を使い回した場合、INSPECT文ごとに値が加算されてしまいます。
INSPECT文のTALLYINGのCOBOL(コボル)言語における基本事項やルールについて
- INSPECT、検索対象文字列、TALLYINGなどの各要素間における空白や改行有無は自由に設定できます。
- 各定数は、英数字または日本語定数でなければいけません。
- 1回のINSPECT文のTALLYINGのALLは1回のみ指定できます。
- 検索文字列は大文字小文字が区別されます。
COBOL(コボル)言語のINSPECT文のTALLYINGを扱う上での注意点
INSPECT文のTALLYINGは、文字列を検査するのに便利な命令文ですが、注意しておきたい点があります。検査する対象の文字列は、明確に大文字と小文字が区別されます。対象の文字列のなかに、検索文字列があったとしても対象の文字列が大文字で、検索文字列が小文字の場合、出現回数は0となります。
そのため、対象の文字列が大文字か小文字かわからない場合は、INSPECT文でそれぞれALLで大文字と小文字を指定する必要があります。
以下に大文字と小文字でそれぞれ文字列検査した場合のサンプルを紹介します。
実行結果:
実行結果のとおり、小文字の"a"は存在しないため、出現回数は0となっています。
INSPECT文のTALLYINGを使ったCOBOL(コボル)プログラムの活用法
INSPECT文のTALLYINGで文字列を検査する場合、検索対象の文字列の範囲を指定したい場合があります。例えば、カンマ(,)を挟んだ前半の文字列のみ検査したい場合には、書き方で記載したように、検索文字列の後に[位置] INITIAL [検索範囲文字列]を指定する必要があります。
以下に、検索対象文字列の前半部分の文字列のみ検査する簡単なサンプルを紹介します。
- *> INSPECT_SAMPLE03
- IDENTIFICATION DIVISION.
- PROGRAM-ID. INSPECT_SAMPLE03.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- 01 TEST-WORK-AREA.
- 03 WORK-STR PIC x(20).
- 03 WORK-RESULT1 PIC 9(05).
- 03 WORK-RESULT2 PIC 9(05).
- PROCEDURE DIVISION.
- MAIN SECTION.
- MOVE "AABBCC,ABCDEF" TO WORK-STR.
- INSPECT WORK-STR TALLYING
- WORK-RESULT1 FOR ALL "A".
- INSPECT WORK-STR TALLYING
- WORK-RESULT2 FOR ALL "B" BEFORE INITIAL ",".
- *>結果を出力
- DISPLAY "[検索範囲指定なし:" WORK-RESULT1 "]" UPON CONSOLE.
- DISPLAY "[検索範囲指定あり:" WORK-RESULT2 "]" UPON CONSOLE.
- STOP RUN.
実行結果:
サンプルではデータ項目WORK-STRに設定した文字列”AABBCC,ABC1DEF”をINSPECT文のTALLYINGを使用して、文字列"A"が存在するか検査しています。
次に同じくINSPECT文のTALLYINGを使用して、文字列"B"が存在するか検査し、BEFORE INTIALの後にカンマ(,)を指定しています。
BEFORE INITIALの後に検査範囲文字列を指定することによって、検索対象範囲の文字列を指定することができます。
この記事を読んだ人は、こちらの記事も読んでいます
【未経験者歓迎】COBOLプログラマー・システムエンジニアの募集
COBOL入門のカテゴリー
1. 優良社員が多数在籍しています
2. 即日派遣、又は請負います
3. 安心価格で請負います
4. 同時、協力会社募集中です
1. 正社員
2. 契約社員
3. 個人事業主
などの 求人情報 が閲覧できます。
目指せ!COBOLダントツ一番企業。
創業当初の話や理念が閲覧できます。
応募条件
※2020年5月31日を以って、締切りました。
18歳~28歳の方。
正社員採用において、北川社長の著書『祈り方が9割』を読んで感想文を事前に提出すると、無条件で最終面接まで進むことができます。
COBOLとは、どのようなプログラミング言語なのか、初心者にもわかりやすく、文法の例をあげて解説してます。
COBOL入門の人気記事
- COBOL言語で計算処理をするなら「COMPUTE文」|入門用語辞典
- COBOL言語の「ACCEPT文」の使い方を分かり易く解説|入門用語辞典
- COBOL言語初心者も安心! 難解「CALL文」をスッキリ解決|入門用語辞典
- 徹底解説!一歩先を行くCOBOL言語のCOPY文活用法|応用ガイド
- 一歩先を行くCOBOL言語の表操作!逐次検索と二分検索|応用ガイド
- COBOL言語の加算処理の基本を伝授! 命令文「ADD」とは?|入門用語辞典
- 徹底解説!一歩先を行くCOBOL言語のファイル併合処理|応用ガイド
- COBOL言語でファイルの開閉命令はOPEN文とCLOSE文!|入門用語辞典
- 徹底解説!一歩先を行くCOBOL言語のデータ共有|応用ガイド
- COBOL言語とは?プログラムの書き方やルールを解説!|基礎ガイド
- COBOL言語の歴史とこれまでの進化を知る!廃止・追加機能|基礎ガイド
- COBOL言語のオブジェクト指向について理解しよう!|基礎ガイド
- COBOL言語のディスプレイ出力とコンソール入力について|基礎ガイド
- COBOL言語が得意とする計算処理を体験してみよう!|基礎ガイド
- 一歩先を行くCOBOL言語のユーザ定義関数について|応用ガイド
- 初心者から中級者でも安心!理解できるCOBOL言語の勉強法|学習講座
- 初心者必見!COBOL言語を効率よくマスターする勉強法とは|学習講座
- COBOL初心者が犯しやすいミスとその対策について|学習講座
- COBOL初心者がやってはいけない勉強方法とは?|学習講座
- 一歩先へ行くCOBOLプログラマの知っておくべき4つのヒント|学習講座