COBOL言語の「OCCURS句」について知ろう!学ぶべき基本とは | 用語辞典
COBOL(コボル)言語の予約語OCCURSを使った配列とは
COBOL(コボル)言語のOCCURS句とは?
OCCURS(英語)は、OCCURの三人称単数現在形で、日本語に訳すると「存在する」という意味です。
COBOL(コボル)言語のOCCURS句は、データ項目を表(配列)にするために使用します。
OCCURS句の形式
OCCURS句は、直前に記述されたデータ項目を配列化します。
■書式
データ項目の定義 OCCURS 最大要素数
■構文規則
<データ項目の定義>
配列化するデータ項目定義を記述します。01、66、77、88レベルのデータ項目は配列化できませんが、レベル番号が正しければ、単体のデータ項目でも、集団項目でも配列化することができます。
<最大要素数>
配列化する最大の要素数を2以上の整数の数値定数で指定します。
■使用例
実際にOCCURS句を使用したプログラム例をご紹介します。
このプログラムは、コンソールに番号の入力を促すメッセージを表示し、入力された番号の商品名を商品テーブルから取得して、商品名を表示するプログラムです。該当する番号がない場合は、エラーメッセージを表示し、番号の再入力を促します。
■実行結果
はじめに番号入力を促すメッセージが表示されます。
数字の0を入力してみます。
エラーメッセージが表示され、再度、番号入力が促されました。
数字の6を入力してみます。
エラーメッセージが表示され、再度、番号入力が促されました。
数字の3を入力してみます。
「バナナ」が表示され、プログラムが終了しました。
OCCURS句のCOBOL(コボル)言語における基本事項やルールについて
OCCURS句は、データ項目や集団項目を配列化する予約語です。
OCCURS句が作る配列は1次元、2次元、3次元の配列など、定義の方法によってさまざまなかたちをとることができます。
1次元配列は、データを1列に並べたイメージで、2次元配列は碁盤の目のようなイメージ、3次元配列は2次元の配列を積み重ねたイメージになります。
COBOL(コボル)言語のOCCURS句を使うときの注意点
OCCURS句は、01、66、77、88レベルには記述できませんので、注意してください。
OCCURS句で配列のサイズを動的に定義したときには、「DEPENDING ON」で指定したテーブルサイズにSET文で値(テーブルサイズ)を設定する必要があります。
OCCURS句を使ったCOBOL(コボル)プログラムの活用方法
OCCURS句を使ってデータを配列化すると、SEARCH文を使って、配列内を検索することができます。
配列内の検索には、インデックス項目の値から、配列の最後までを順番に検索する逐次検索と、データの検索範囲を2分して検索する2分検索の2つの検索方法があります。
それでは、SEARCH文による通常の検索の逐次検索を使って、「COBOL(コボル)言語のOCCURS句とは?」でご紹介したサンプルプログラムと同じ機能を実現してみましょう。
- ******************************************************************
- * Author:
- * Date:
- * Purpose:
- * Tectonics: cobc
- ******************************************************************
- IDENTIFICATION DIVISION.
- PROGRAM-ID. OCCURS-SUMPLE2.
- 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 OCCURS-SUMPLE2.
■実行結果
「COBOL(コボル)言語のOCCURS句とは?」でご紹介したサンプルプログラムと全く同じ実行結果を得ることができます。
はじめに番号入力を促すメッセージが表示されます。
数字の0を入力してみます。
エラーメッセージが表示され、再度、番号入力が促されました。
数字の6を入力してみます。
エラーメッセージが表示され、再度、番号入力が促されました。
数字の3を入力してみます。
「バナナ」が表示され、プログラムが終了しました。
OCCURS句で配列化することにより、配列内の検索をSEARCH文で行うことができます。配列の検索処理は自分でプログラミングすると、何十ステップものコーディングとデバッグが必要ですが、SEARCH文を使えば、10ステップとかからず、デバッグも簡単です。「できるだけ自分で作らないプログラム」がバグを生まないプログラムですので、できるだけOCCURS句と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句」は便利?使用方法を学びましょう|用語辞典