COBOL言語の「SEARCH文」を活用して表内検索をしよう! | 用語辞典
COBOL(コボル)言語の予約語SEARCH、AT END、WHEN、END-SEARCHを使った表内検索とは
COBOL(コボル)言語のSEARCH~AT END~WHEN~END-SEARCH文とは?
SEARCH(英語)は、日本語に訳すると「探す」、AT ENDは「終了したとき」、WHEN(英語)は「いつ」という意味です。
COBOL(コボル)言語のSEARCH~AT END~WHEN~END-SEARCH文は、表を検索しWHENの検索条件に一致するとWHEN以下の処理を実行します。
SEARCH文の形式:SEARCH~AT END~WHEN~END-SEARCH
SEARCH~AT END~WHEN~END-SEARCHでは、検索表領域内にWHENの検索条件に一致するデータがある場合に、WHENからEND-SEARCHの間に書かれた命令を実行します。検索表領域内にWHENの検索条件に一致するデータがない場合には、AT ENDからWHENの間に書かれた命令を実行します。
■書式
SEARCH 検索表領域名
AT END
検索条件に一致するデータがない場合に実行する命令群
WHEN 検索条件
検索条件に一致するデータがある場合に実行する命令群
END-SEARCH.
■構文規則
<検索表領域名>
検索する表領域名を記述します。
<検索条件に一致するデータがない場合に実行する命令群>
検索条件に一致するデータがない場合に実行する命令を記述します。命令は複数でも単数でもかまいません。
<検索条件>
検索する表領域の検索条件を論理式で記述します。検索対象項目に指定する要素番号は、表領域を定義したときに「INDEXED BY」で指定した検索用のインデックス項目を指定します。
<検索条件に一致するデータがある場合に実行する命令群>
検索条件に一致するデータがある場合に実行する命令を記述します。命令は複数でも単数でもかまいません。
■使用例
実際にSEARCH~AT END~WHEN~END-SEARCHを使用したプログラム例をご紹介します。
このプログラムは、コンソールに商品番号の入力を促すメッセージを表示し、入力された商品番号を商品テーブルから検索し、商品名と値段を表示するプログラムです。該当する商品番号がない場合は、商品コードの再入力を促します。
■実行結果
はじめに商品番号入力を促すメッセージが表示されます。
数字の5を入力してみます。
「メロン (900円)」が表示され、プログラムが終了しました。
SEARCH文のCOBOL(コボル)言語における基本事項やルールについて
SEARCH文のWHEN句に指定できる論理式はIF文と同様です。使用できる記号と演算子をご紹介します。
記号/演算子 |
意味 |
論理式の例 |
論理式の意味 |
= |
等しい |
A = B |
AとBが等しい場合、真 |
NOT = |
等しくない |
A NOT = B |
AとBが異なる場合、真 |
> |
より大きい |
A > B |
AがBより大きい場合、真 |
>= |
以上 |
A >= B |
AがBより大きい、または等しい場合、真 |
< |
より小さい |
A < B |
AがBより小さい場合、真 |
<= |
以下 |
A <= B |
AがBより小さい、または等しい場合、真 |
AND |
かつ |
A = B AND C = D |
両方が成り立つ場合、真 |
OR |
または |
A = B OR C = D |
どちらかが成り立つ場合、真 |
NOT |
否定 |
NOT A > B |
「A > B」が成り立たない場合、真 |
論理式に使用する記号や演算子には、評価される順番があります。
記号である「=」、「NOT =」、「>」、「>=」、「<」、「<=」は、左から評価され、評価の優先順位を変える場合はカッコで括ると先に評価されます。また、記号は演算子である「AND」、「OR」、「NOT」よりも先に評価されます。
演算子である「AND」、「OR」、「NOT」も左から評価され、カッコで括ることによって先に評価させることができます。
COBOL(コボル)言語のSEARCH文を使うときの注意点
SEARCH文は、検索を実行する前に、表領域を定義したときに「INDEXED BY」で指定した検索用のインデックス項目にSET文で検索を開始するインデックスを設定してから、検索を実行しなければなりません。
SEARCH文を使ったCOBOL(コボル)プログラムの活用方法
検索にはインデックス項目の値から、配列の最後までを順番に検索する逐次検索と、データの検索範囲を2分して検索する2分検索の2つの検索方法があります。
SEARCH文による通常の検索は逐次検索ですが、ALL句を指定することによって、2分検索で検索させることができます。ただし、2分検索する表領域の定義のときに、KEY ISでキー項目を指定する必要があります。表領域のキー項目は、昇順、または降順にデータが格納されている必要があります。
では、「COBOL(コボル)言語のSEARCH~AT END~WHEN~END-SEARCH文とは?」でご紹介したサンプルプログラムを2分検索による検索に変更してみましょう。
変更箇所は、赤マーカーの部分です。
- ******************************************************************
- * Author:
- * Date:
- * Purpose:
- * Tectonics: cobc
- ******************************************************************
- IDENTIFICATION DIVISION.
- PROGRAM-ID. SEARCH-SUMPLE2.
- DATA DIVISION.
- FILE SECTION.
- WORKING-STORAGE SECTION.
- 01 WORKING-AREA.
- * コンソール入力&表示バッファ
- 03 CONSOLE-INPUT PIC 9(01).
- 03 DISP_BUF PIC X(20).
- * 商品テーブル
- 01 SHOHIN_TBL_MASTER.
- 03 TBL_SIZE PIC 9(01).
- 03 SHOHIN_TBL OCCURS 0 TO 5
- DEPENDING ON TBL_SIZE
- ASCENDING KEY IS HINBAN
- INDEXED BY TBL_IDX.
- 05 HINBAN PIC 9(01).
- 05 HINMEI PIC X(10).
- 05 NEDAN PIC 9(03).
- PROCEDURE DIVISION.
- *-------------------------------------------
- * 主手続
- *-------------------------------------------
- MAIN-PROCEDURE.
- * コンソール入力エリアの初期化
- MOVE ZERO TO CONSOLE-INPUT.
- * 商品テーブルの初期化
- SET TBL_SIZE TO 5.
- MOVE 1 TO HINBAN(1).
- MOVE 2 TO HINBAN(2).
- MOVE 3 TO HINBAN(3).
- MOVE 4 TO HINBAN(4).
- MOVE 5 TO HINBAN(5).
- MOVE "みかん" TO HINMEI(1).
- MOVE "りんご" TO HINMEI(2).
- MOVE "バナナ" TO HINMEI(3).
- MOVE "いちご" TO HINMEI(4).
- MOVE "メロン" TO HINMEI(5).
- MOVE 100 TO NEDAN(1).
- MOVE 200 TO NEDAN(2).
- MOVE 250 TO NEDAN(3).
- MOVE 600 TO NEDAN(4).
- MOVE 900 TO NEDAN(5).
- EXEC-DISPLAY-INPUT-PROC.
- * コンソール表示&入力
- DISPLAY "商品番号を入力してください(1~5)".
- ACCEPT CONSOLE-INPUT FROM CONSOLE.
- * 商品テーブルの検索
- SET TBL_IDX TO 1.
- SEARCH ALL SHOHIN_TBL
- AT END
- DISPLAY "1~5の値を入力してください"
- GO TO EXEC-DISPLAY-INPUT-PROC
- WHEN HINBAN(TBL_IDX) = CONSOLE-INPUT
- MOVE SPACE TO DISP_BUF
- STRING HINMEI(TBL_IDX) " " "(" NEDAN(TBL_IDX) "円)"
- DELIMITED BY SPACE
- INTO DISP_BUF
- DISPLAY DISP_BUF
- END-SEARCH.
- END-PROC.
- STOP RUN.
- END PROGRAM SEARCH-SUMPLE2.
■実行結果
はじめに商品番号入力を促すメッセージが表示されます。
数字の5を入力してみます。
「メロン (900円)」が表示され、プログラムが終了しました。
表領域の検索を自分でプログラミングすると、何10ステップものコーディングとデバッグが必要ですが、SEARCH文を使えば、10ステップとかからず、デバッグも簡単です。「できるだけ自分で作らないプログラム」がバグを内包しないプログラムですので、表領域の検索は、ぜひSEARCH文を活用しましょう。
この記事を読んだ人は、こちらの記事も読んでいます
あなたのCOBOL技術を活かしませんか?
COBOL入門のカテゴリー
1. 優良社員が多数在籍しています
2. 即日派遣、又は請負います
3. 安心価格で請負います
4. 同時、協力会社募集中です
1. 正社員
2. 契約社員
3. 個人事業主
などの 求人情報 が閲覧できます。
目指せ!COBOLダントツ一番企業。
創業当初の話や理念が閲覧できます。
COBOLとは、どのようなプログラミング言語なのか、初心者にもわかりやすく、文法の例をあげて解説してます。
COBOL入門の人気記事
- COBOL言語とは?プログラムの書き方やルールを解説!|基礎ガイド
- 【COBOL言語】条件分岐処理の代名詞「IF文」について知ろう|用語辞典
- COBOL言語の「MOVE文」とは?転記のルールをご紹介します|用語辞典
- COBOL言語の「STRING文」とは?文字連結の基礎知識と注意点|用語辞典
- 多枝分岐ってなに?COBOL言語の「EVALUATE文」を知ろう!|用語辞典
- COBOL言語の「PICTURE句」とは?基本事項を解説します!|用語辞典
- COBOL言語で計算処理をするなら「COMPUTE文」|用語辞典
- COBOL言語の「REDEFINES句」とは?使い方を確認しよう!|用語辞典
- 覚えておけば楽ができる?COBOL言語の「COPY文」の使い方|用語辞典
- COBOL言語の文字列操作のパターンを理解しよう!|基礎ガイド
- COBOL言語の初期化処理に重宝する「INITIALIZE文」とは?|用語辞典
- COBOL言語の「LOW-VALUE」の使い方について理解しよう!|基礎ガイド
- COBOL言語の「OCCURS句」について知ろう!学ぶべき基本とは|用語辞典
- COBOL言語初心者も安心! 難解「CALL文」をスッキリ解決|用語辞典
- COBOL言語の「PERFORM文」とは。実行制御について解説!|用語辞典
- COBOL言語の繰り返し処理のパターンを理解しよう!|基礎ガイド
- COBOL言語の「定数」の種類と使い方について理解しよう!|用語辞典
- COBOLのDBアクセスパターンを学ぼう!「FETCH」|応用ガイド
- COBOL言語の「DISPLAY文」は、ディスプレイ出力の為にある|用語辞典
- COBOL言語の「VARYING句」は便利?使用方法を学びましょう|用語辞典