COBOL言語の「INDEX句」について知ろう！使い方とは｜用語辞典

COBOL（コボル）言語の予約語INDEXを使った配列（表）のアクセスとは

辞典・辞書-INDEX-イメージ

COBOL(コボル)言語のINDEX句とは？

INDEX（英語）は、日本語に訳すると「目盛り（名詞）」、「索引をつける（動詞）」という意味です。

COBOL（コボル）言語のINDEX句は、配列の索引（インデックス）となる指標データ項目を定義するために使用します。

INDEX句の形式

INDEX句は、指標データ項目を定義するために使用しますが、現在は単体で定義されることはありません。なぜなら、SEARCH文で検索できる配列を定義するときに使用する「INDEXED　BY」によって、指標データ項目がコンパイラにより自動的に定義されるからです。

■書式

　レベル番号　データ項目名　USAGE INDEX

■構文規則

　＜レベル番号＞

　　データ項目のレベル番号を記述します。レベル番号は66と88を除く、01から49、および77を使用することができます。

　＜データ項目名＞

　　データ項目名を記述します。

■使用例

　実際にINDEX句を使用したプログラム例をご紹介します。

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

辞典・辞書-INDEX-使用例

■実行結果

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

辞典・辞書-INDEX-実行結果

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

辞典・辞書-INDEX-入力例

商品名「メロン」が表示され、プログラムが終了しました。

INDEX句のCOBOL(コボル)言語における基本事項やルールについて

INDEX句は、基本項目のデータ項目の表現形式を指標データ型（インデックス）にします。インデックスは配列の検索に使用することができます。

COBOL（コボル）言語のINDEX句を使うときの注意点

INDEX句を指定できるのは基本項目だけです。集団項目には指定できないことに注意してください。

INDEX句を使ったCOBOL（コボル）プログラムの活用方法

INDEX句の発展形にINDEXEDという予約語があります。「INDEXED　BY」を使用すると、配列インデックスをつけることができ、インデックスがつくとSEARCH文を使って、配列を簡単に検索することができます。

■INDEXED　BYの構文

レベル番号　データ項目名　OCCURS　OCCURS　TO　最大要素数

　　　DEPENDING　ON　要素数管理項目名
　　　INDEXED　BY　インデックス項目名

＜レベル番号＞

レベル番号を記述します。

＜データ項目名＞

配列化するデータ項目名を記述します。基本項目と集団項目が記述できます。

＜最小要素数＞

配列がとり得る最小の要素数を記述します。

＜最大要素数＞

配列がとり得る最大の要素数を記述します。

＜要素管理項目名＞

配列の要素数を管理するデータ項目名を記述します。要素管理項目は別途定義が必要です。

＜インデックス項目名＞

配列のインデックス名を記述します。インデックスの定義はコンパイラが自動で行うため、別途定義する必要はありません。

■INDEXED　BYを使用したプログラム例

「COBOL(コボル)言語のINDEX句とは？」でご紹介したサンプルプログラムに、値段を表示する機能を追加し、データ項目を配列化してインデックスをつけ、SEARCH文による検索に変更してみましょう。

******************************************************************
* Author:
* Date:
* Purpose:
* Tectonics: cobc
******************************************************************
 IDENTIFICATION DIVISION.
 PROGRAM-ID. INDEX-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
               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 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 INDEX-SUMPLE2.

■実行結果

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

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

辞典・辞書-INDEX-入力例

「メロン　（900円）」が表示され、プログラムが終了しました。

配列の検索を自分でプログラミングすると、何10ステップものコーディングとデバッグが必要ですが、INDEXED BYを使って配列にインデックスをつけ、SEARCH文を使って検索すると、10ステップとかからず、デバッグも簡単です。「できるだけ自分で作らないプログラム」がバグを内包しないプログラムですので、配列の検索は、ぜひINDEXED　BYとSEARCH文を活用しましょう。

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

【未経験者歓迎】COBOLプログラマー・システムエンジニアの募集

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

COBOL入門のカテゴリー

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