COBOL言語の「REDEFINES句」とは？使い方を確認しよう！｜用語辞典

COBOL(コボル)言語の予約語REDEFINES句を使った命令文の書き方とは

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

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

COBOLでは、データ項目を別のレイアウトに変更して再利用することを「再定義」といいます。

REDEFINES句でデータ項目を再定義して利用すると、1つの項目でさまざまなレイアウトに使用することが可能なため、繰り返し項目を使用する場合に便利です。

本記事では、COBOLにおけるREDEFINES句について基本的な使い方やルール、注意点などをご紹介します。

書き方:

レベル番号 [再定義データ項目または FILLER] REDEFINES [再定義対象データ項目].

レベル番号は、再定義対象データ項目と同じレベルを指定する必要があります。再定義データ項目は、プログラム内で再定義名を使用しない場合は、FILLERを指定します。

以下にREDEFINES句を使用して、データ項目を再定義して使用する簡単なプログラムを紹介します。

辞典・辞書-REDEFINES-プログラム

実行結果:

辞典・辞書-REDEFINES-実行結果:

サンプルでは年月日をまとめて取得する項目WORK-DATEを、REDEFINES句を使用して項目WORK-DATE-Rに再定義して、年・月・日をそれぞれの単位で扱えるようにしています。

なお、日付の書式を扱う場合は、英数字編集形式のデータ項目を再定義することもできます。

03 WORK-DATE　　　　　PIC XXXX/XX/XX.

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

再定義データ項目、REDEFINES、再定義対象データ項目の各要素間の改行有無は自由に設定できます。
再定義データ項目と再定義対象データ項目は、同じレベル番号を指定します。
プログラム内で再定義データ項目を使用しない場合はFILLERを指定します。
REDEFINES句で指定できるレベル番号は02～49の範囲内です。
集団項目に従属するデータ項目は、再定義対象データ項目のサイズを上回らない範囲で自由に設定することができます。

COBOL(コボル)言語のREDEFINES句を扱う上での注意点

ファイル節の01レベルのデータ項目の場合、REDEFINES句の指定はできません。
レベル番号66、88はREDEFINES句の指定はできません。
再定義するデータ項目に、VALUE句を記述してはいけません。
再定義データ項目のサイズは、再定義対象データ項目の集団項目のサイズより小さくしても構いませんが、集団項目を上回るサイズを指定することはできません。

以下のように従属する項目のサイズが、集団項目のサイズを上回るとコンパイルエラーが発生します。

03 WORK-DATE　　　　PIC 9(08).

03 WORK-DATE-R　　　REDEFINES WORK-DATE.

05 WORK-YEAR　　　　PIC 9(04).

05 WORK-MONTH　　　PIC 9(04).

05 WORK-DAY　　　　　PIC 9(08).

集団項目のサイズの範囲内なら、従属するデータ項目の範囲を自由に調整することは可能です。

REDEFINES句を使ったCOBOL(コボル)プログラムの活用法

REDEFINES句は、再定義する集団項目に従属している項目についても、項目名やサイズや型などのレイアウトを指定することができます。

以下にREDEFINES句を使用して、従属する項目を再定義して利用する簡単なサンプルを紹介します。

IDENTIFICATION          DIVISION.
PROGRAM-ID.            REDEFINES_SAMPLE02.
 
ENVIRONMENT             DIVISION.
CONFIGURATION           SECTION.
DATA               DIVISION.
  WORKING-STORAGE         SECTION.
   01 FRUITS.
    03 FRUITS-NAME.
     05 FRUITS-NAME-1     PIC X(9).
     05 FRUITS-NAME-2     PIC X(9).
     05 FRUITS-NAME-3     PIC X(9).
    *>REDEFINES句を指定して項目を再定義する
    03 FRUITS-PRICE       REDEFINES FRUITS-NAME.
     05 FRUITS-PRICE-1    PIC 9(3).
     05 FRUITS-PRICE-2    PIC 9(3).
     05 FRUITS-PRICE-3    PIC 9(3).
 
PROCEDURE              DIVISION.
  MAIN             SECTION.
 
    *>商品名を設定する
    MOVE "APPLE"   TO FRUITS-NAME-1.
    MOVE "BANANA"   TO FRUITS-NAME-2.
    MOVE "MELON"   TO FRUITS-NAME-3.
 
    *>結果を出力する
    DISPLAY "商品名:".
    DISPLAY "FRUITS-NAME-1:"FRUITS-NAME-1.
    DISPLAY "FRUITS-NAME-2:"FRUITS-NAME-2.
    DISPLAY "FRUITS-NAME-3:"FRUITS-NAME-3.
 
    *>REDEFINES句で再定義した項目で値段を設定する
    MOVE 100       TO FRUITS-PRICE-1.
    MOVE 150       TO FRUITS-PRICE-2.
    MOVE 500       TO FRUITS-PRICE-3.
 
    *>結果を出力する
    DISPLAY "値段:".
    DISPLAY "FRUITS-PRICE-1:"FRUITS-PRICE-1.
    DISPLAY "FRUITS-PRICE-2:"FRUITS-PRICE-2.
    DISPLAY "FRUITS-PRICE-3:"FRUITS-PRICE-3.
 
  STOP RUN.