COBOL言語の「SEARCH文」を活用して表内検索をしよう！｜用語辞典

COBOL(コボル)言語の予約語SEARCH、AT END、WHEN、END-SEARCHを使った表内検索とは

辞典・辞書-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を使用したプログラム例をご紹介します。

辞典・辞書-SEARCH-使用例

このプログラムは、コンソールに商品番号の入力を促すメッセージを表示し、入力された商品番号を商品テーブルから検索し、商品名と値段を表示するプログラムです。該当する商品番号がない場合は、商品コードの再入力を促します。

■実行結果

はじめに商品番号入力を促すメッセージが表示されます。

数字の5を入力してみます。

辞典・辞書-SEARCH-入力例1

「メロン　（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.