導入
COBOL開発において、REDEFINES句は同じメモリ領域を異なる形式で再定義する強力な機能です。しかし、このREDEFINESが連続する「多重定義」において、最後の項目に打つピリオドの位置を誤ると、コンパイルエラーや予期せぬデータ破壊を引き起こします。本記事では、データ定義の境界を正しく画定するための「終端ピリオド」の重要性について解説します。
基礎知識
REDEFINES句は、すでに定義されたデータ項目と同じメモリ領域を別の名前・形式で参照するために使用されます。特に、ひとつの領域を複数の形式で使い分ける際、以下のように連続して記述することがあります。
05 データ領域-A PIC X(10).
05 データ領域-B REDEFINES データ領域-A PIC 9(10).
05 データ領域-C REDEFINES データ領域-A PIC X(10).
ここで重要なのが、REDEFINES構造の「終了」をコンパイラに伝えるピリオドの役割です。ピリオドはデータ定義の区切りを意味するため、この位置がずれると、後続のデータ項目が意図せずREDEFINESの一部として取り込まれてしまうという事態を招きます。
実装/解決策
多重REDEFINESを行う際は、最後の項目にピリオドを打つことで「この領域の再定義はここまで」という境界を明確にします。逆に言えば、途中の項目にはピリオドを打ってはいけません。ピリオドを打った時点で、その階層の定義が終了したとみなされるからです。
サンプルプログラム
以下のコードは、10バイトの領域を「文字列」と「数値」の両面から安全に扱うための記述例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. REDEFINES-SAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
- 基準となる領域
05 WORK-AREA PIC X(10).
- 連続するREDEFINES構造（最後の行にのみピリオドを打つ）
05 WORK-NUM REDEFINES WORK-AREA PIC 9(10)
05 WORK-ALPHA REDEFINES WORK-AREA PIC X(10).
- ↑ここまでの定義が「WORK-AREA」を指していることを明示
- 次の項目は独立した定義として記述可能
05 NEXT-ITEM PIC X(01).
PROCEDURE DIVISION.
MOVE 1234567890 TO WORK-NUM.
DISPLAY “数値として表示: ” WORK-NUM.
DISPLAY “文字として表示: ” WORK-ALPHA.
STOP RUN.
応用・注意点
現場でよくあるミスは、「REDEFINESの途中の行にピリオドを打ってしまう」ことです。ピリオドを打つと、その下の行は別の階層（レベル番号が同じかそれより大きい場合）として解釈され、コンパイルエラーやメモリ上の意図しない重複が発生します。
また、最新のコンパイラではインデントが崩れていてもエラーにはなりませんが、可読性を高めるために、REDEFINESの各行は必ずインデントを揃えて記述しましょう。特に、大規模なCOPY句を使用したデータ定義では、コピー先で予期せぬピリオドが紛れ込んでいないか、常に注意を払うのがベテランの流儀です。
コメント