COBOL言語の表操作とは?基本を理解して使いこなそう!|基礎ガイド
COBOL(コボル)言語の表とSEARCH文を使用した表検索とは
ソフトウェアにおける表とは?
一般的に表とは、一覧表などのデータを縦と横の線で区切ったものですが、ソフトウェアの世界での表は、データの並び(配列)を意味します。データが1列に並んだものを1次元配列、縦と横に並んだものを2次元配列、さらにそれを積み重ねたものを3次元配列と呼びます。
COBOL言語の表操作
COBOL言語の表(配列)はテーブルとも呼ばれ、定義して操作を行ったり、SEARCH文を使用して検索したりすることができます。配列にデータを保存したり、取り出したりする場合は、配列の要素番号を指定する必要があります。
配列はDATA DIVISIONに定義し、PROCEDURE DIVISIONで操作します。
表(配列)の定義
表(配列)は、DATA DIVISIONのデータ項目の定義で、OCCURS句を使用して定義します。
■書式
データ項目の定義 OCCURS 最少要素数 TO 最大要素数
DEPENDING ON 要素数管理項目
INDEXED BY インデックス項目
<データ項目の定義>
配列にするデータ項目定義を記述します。01、66、77、88レベルのデータ項目は配列化できませんが、レベル番号が正しければ、単体のデータ項目でも、集団項目でも配列化することができます。
<最少要素数>
配列にする最少の要素数を0以上の整数の数値定数で指定します。
<最大要素数>
配列にする最大の要素数を最少要素数以上の整数の数値定数で指定します。
<要素数管理項目>
配列に格納されているデータ数を管理するデータ項目を指定します。要素数管理項目は、別途数値タイプで定義しておく必要があります。
<インデックス項目>
SEARCH文で検索した結果の要素番号が入るデータ項目を指定します。インデックス項目は特殊なデータ項目であり、コンパイラにより自動生成されるため、別途定義する必要はありません。
表(配列)の操作
表(配列)にデータを設定したり、取り出したり、検索したりする操作は、PROCEDURE DIVISIONで行います。
配列内のデータの設定や取り出しは、配列データ項目名(配列番号)でダイレクトに行い、データの検索はSEARCH文を使用します。
■SEARCH文の書式
SEARCH 検索表領域名(配列名)
AT END
検索条件に一致するデータがない場合に実行する命令群
WHEN 検索条件
検索条件に一致するデータがある場合に実行する命令群
END-SEARCH.
<検索表領域名(配列名)>
検索する表領域名(配列名)を記述します。
<検索条件に一致するデータがない場合に実行する命令群>
検索条件に一致するデータがない場合に実行する命令を記述します。命令は複数でも単数でもかまいません。
<検索条件>
検索する表領域(配列)の検索条件を論理式で記述します。検索対象項目に指定する要素番号は、表領域(配列)を定義したときに「INDEXED BY」で指定したSEARCH文用のインデックス項目を指定します。
<検索条件に一致するデータがある場合に実行する命令群>
検索条件に一致するデータがある場合に実行する命令を記述します。命令は複数でも単数でもかまいません。
■プログラム例
ご紹介するサンプルプログラムは、コンソールに商品番号の入力を促すメッセージを表示し、入力された商品番号を商品テーブルから検索して、商品名を表示するプログラムです。該当する番号がない場合は、エラーメッセージを表示し、番号の再入力を促します。
- ******************************************************************
- * Author:
- * Date:
- * Purpose:
- * Tectonics: cobc
- ******************************************************************
- IDENTIFICATION DIVISION.
- PROGRAM-ID. HYOU-SAMPLE1.
- DATA DIVISION.
- FILE SECTION.
- WORKING-STORAGE SECTION.
- 01 WORKING-AREA.
- * コンソール入力&表示バッファ
- 03 CONSOLE-INPUT PIC 9(01).
- 03 DISP_BUF PIC X(64).
- * 商品テーブル
- 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).
- *-------------------------------------------
- * 主手続
- *-------------------------------------------
- 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).
- EXEC-DISPLAY-INPUT-PROC.
- * コンソール表示&入力
- DISPLAY "商品番号を入力してください(1~5)".
- ACCEPT CONSOLE-INPUT FROM CONSOLE.
- * 商品テーブルの検索
- SET TBL_IDX TO 1.
- SEARCH SHOHIN_TBL
- AT END
- DISPLAY "入力番号が誤っています。"
- GO TO EXEC-DISPLAY-INPUT-PROC
- WHEN HINBAN(TBL_IDX) = CONSOLE-INPUT
- MOVE SPACE TO DISP_BUF
- STRING "商品名は「" HINMEI(TBL_IDX) "」です。"
- DELIMITED BY SPACE
- INTO DISP_BUF
- DISPLAY DISP_BUF
- END-SEARCH.
- END-PROC.
- STOP RUN.
- END PROGRAM HYOU-SAMPLE1.
■実行結果
はじめに番号入力を促すメッセージが表示されます。
数字の0を入力してみます。
エラーメッセージが表示され、再度、番号入力が促されました。
数字の6を入力してみます。
エラーメッセージが表示され、再度、番号入力が促されました。
数字の1を入力してみます。
商品名が表示され、プログラムが終了しました。
COBOL言語の表操作の確認問題
問)
COBOL言語のプログラムにおいて、表(配列)の検索を行う命令文は何か。
答え)
SEARCH文。
表(配列)の概念と操作方法はCOBOL言語に限らず、ソフトウェアを作成する際には必要になる知識ですが、実際に配列を操作するロジックを1から自作するには時間と労力がかかります。幸いなことにCOBOL言語には、簡単に配列の検索ができる命令としてSEARCH文が用意されていますので、ぜひ使用方法を習得しておきましょう。
この記事を読んだ人は、こちらの記事も読んでいます
あなたのCOBOL技術を活かしませんか?
COBOL入門のカテゴリー
1. 優良社員が多数在籍しています
2. 即日派遣、又は請負います
3. 安心価格で請負います
4. 同時、協力会社募集中です
1. 正社員
2. 契約社員
3. 個人事業主
などの 求人情報 が閲覧できます。
目指せ!COBOLダントツ一番企業。
創業当初の話や理念が閲覧できます。
応募条件
※2020年5月31日を以って、締切りました。
18歳~28歳の方。
正社員採用において、北川社長の著書『祈り方が9割』を読んで感想文を事前に提出すると、無条件で最終面接まで進むことができます。
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句」は便利?使用方法を学びましょう|用語辞典