COBOL言語の配列とは?基本を理解して使いこなそう!|基礎ガイド
COBOL(コボル)言語の配列を定義するOCCURS句を使った命令文の書き方とは
プログラムにおける配列とは?
配列とはコンピュータのプログラムにおいて、複数のデータ項目を格納するために用いられる箱がいくつも並んだものを指します。
データ項目はプログラム実行時の入力データや演算結果などの一時データを保存していく入れ物です。通常は1つのデータ項目に1つのデータのみしか保存できませんが、データ項目を仕切ることにより、複数のデータを保存できます。
COBOL(コボル)では配列と同じデータ形式のことを「表テーブル」とも呼びます。
COBOL(コボル)言語における配列の定義
COBOLでは配列を使用するためには、データ部(DATA DIVISION)にOCCURS句を使用して、以下のように定義します。
書き方1:要素数が固定
データ項目の定義 OCCURS 配列の最大要素数.
一般規則:
・ 01、66、77、88レベルのデータ項目は指定できません。
・VALUE句を指定した場合は、配列の全ての要素に値が設定されます。
データ項目の定義:
・01、66、77、88以外のレベルを指定します。
・レベル番号を正しく設定すればデータ項目と、集団項目どちらの指定もできます。
最大要素数:
・配列に格納するための要素数を、0以上の数値定数で指定します。
書き方2:要素数が可変
データ項目の定義 OCCURS 最小要素数 TO 最大要素数
DEPENDING ON 要素数管理項目.
一般規則:
・基本的な規則は書き方1と同様です。
要素数管理項目:
・配列に格納されているデータ数を管理するための項目を指定します。
・要素数管理項目は数値のデータ項目で定義する必要があります。
最小要素数:
・配列に格納するための要素数を0以上の数値定数で指定します。
最大要素数:
・配列に格納するための要素数を最小要素数以上の数値定数で指定します。
COBOL(コボル)言語における配列の基本的な使い方
ここでは、実際に固定長と可変長の配列を定義して、配列の動作を確認する簡単なサンプルプログラムを紹介します。
サンプルプログラム
- IDENTIFICATION DIVISION.
- PROGRAM-ID. OCCURS_SAMPLE01.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *>----------------------------------------------------
- *> 固定長の配列を定義
- *>----------------------------------------------------
- 01 WORK-ITEM-1.
- 03 WORK-DATA PIC X(12) VALUE "OCCURS_TEST" OCCURS 5 TIMES.
- *>----------------------------------------------------
- *> 可変長の配列を定義
- *>----------------------------------------------------
- 01 WORK-ITEM-2.
- 03 WORK-SIZE PIC 9(01).
- 03 FRUITS OCCURS 0 TO 5
- DEPENDING ON WORK-SIZE.
- 05 ITEM PIC X(10).
- PROCEDURE DIVISION.
- MAIN.
- *>----------------------------------------------------
- *> 配列処理
- *>----------------------------------------------------
- *> 配列の初期化
- SET WORK-SIZE TO 5.
- MOVE "apple" TO ITEM(1).
- MOVE "orange" TO ITEM(2).
- MOVE "banana" TO ITEM(3).
- MOVE "pineapple" TO ITEM(4).
- MOVE "melon" TO ITEM(5).
- *>----------------------------------------------------
- *> 結果を出力
- *>----------------------------------------------------
- DISPLAY "WORK-ITEM-1 : "WORK-ITEM-1.
- DISPLAY "ITEM(1) : "ITEM(1).
- DISPLAY "ITEM(2) : "ITEM(2).
- DISPLAY "ITEM(3) : "ITEM(3).
- DISPLAY "ITEM(4) : "ITEM(4).
- DISPLAY "ITEM(5) : "ITEM(5).
- STOP RUN.
実行結果:
サンプルでは固定長の配列WORK-DATAと可変長の配列FRUITSを定義しています。
WORK-DATAでは、VALUE句を指定し初期データを文字列で指定しています。
可変長の配列FRUITSでは最小要素数を0、最大要素数を5で指定し、手続き部(PROCEDURE DIVISION)で要素数を5とし、配列のそれぞれの要素にデータ項目を設定しています。
練習問題
ここでは練習問題にチャレンジしてみましょう。
固定長の配列を定義し、最大要素数を5で指定します。定義した配列のデータ項目に要素数分の任意の値を格納してDISPLAY文で出力してください。
回答:
- IDENTIFICATION DIVISION.
- PROGRAM-ID. OCCURS_SAMPLE02.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- WORKING-STORAGE SECTION.
- *>----------------------------------------------------
- *> 固定長の配列を定義
- *>----------------------------------------------------
- 01 WORK-ITEM-1.
- 03 WORK-DATA OCCURS 5.
- 05 WORK-ITEM PIC X(10).
- PROCEDURE DIVISION.
- MAIN.
- *>----------------------------------------------------
- *> 配列処理
- *>----------------------------------------------------
- *> 値を格納
- MOVE "ITEM1" TO WORK-ITEM(1).
- MOVE "ITEM2" TO WORK-ITEM(2).
- MOVE "ITEM3" TO WORK-ITEM(3).
- MOVE "ITEM4" TO WORK-ITEM(4).
- MOVE "ITEM5" TO WORK-ITEM(5).
- *>----------------------------------------------------
- *> 結果を出力
- *>----------------------------------------------------
- DISPLAY "WORK-ITEM(1) : "WORK-ITEM(1).
- DISPLAY "WORK-ITEM(2) : "WORK-ITEM(2).
- DISPLAY "WORK-ITEM(3) : "WORK-ITEM(3).
- DISPLAY "WORK-ITEM(4) : "WORK-ITEM(4).
- DISPLAY "WORK-ITEM(5) : "WORK-ITEM(5).
- STOP RUN.
実行結果:
この記事を読んだ人は、こちらの記事も読んでいます
あなたの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句」は便利?使用方法を学びましょう|用語辞典