導入：なぜREDEFINES句が必要なのか
COBOLの現場では、同じメモリ領域を状況に応じて使い分けたいという場面が多々あります。例えば、通信データとして受け取った一塊の文字列を、ある時は数値として集計し、ある時は文字データとして判定するようなケースです。REDEFINES句を活用すれば、メモリを無駄に消費することなく、柔軟なデータ処理が可能になります。これはメモリ資源が限られた環境や、複雑な構造体を持つ帳票作成において非常に強力な武器となります。
基礎知識：メモリ共有の仕組み
REDEFINES句は、すでに定義されたデータ項目と同じメモリ領域に対して、「別の名前」と「別の属性（型）」を割り当てる機能です。
ここで重要なのは、物理メモリは一つであるという点です。REDEFINES句を記述すると、コンパイラはその領域を「別の視点」から解釈できるようになります。ただし、ルールとして「再定義する項目（REDEFINES句を持つ項目）は、元の項目の直後に記述しなければならない」という厳格な配置規則があります。これを守らないとコンパイルエラーになるため注意してください。
実装と解決策
基本的には、元の項目を定義した直後に、REDEFINES句を使って新しい名前と属性を定義します。これにより、元の項目の値を変更すると、再定義した項目の値も自動的に変化します。この特性を利用して、数値の桁数チェックを行ったり、特定のフラグを文字単位で分解して読み取ったりすることが可能です。
サンプルプログラム
以下のプログラムは、4桁の数値領域を、数値として扱う場合と、上位2桁・下位2桁を別々の項目として扱う場合の例です。
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. REDEF-SAMPLE.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 数値として扱うための領域
000600 05 WS-TOTAL-VAL PIC 9(04) VALUE 1234.
000700 WS-TOTAL-VALの領域を文字として再定義
000800 05 WS-TOTAL-STR REDEFINES WS-TOTAL-VAL PIC X(04).
000900 WS-TOTAL-VALを2桁ずつに分割して再定義
001000 05 WS-DIV-VAL REDEFINES WS-TOTAL-VAL.
001100 10 WS-DIV-HI PIC 9(02).
001200 10 WS-DIV-LO PIC 9(02).
001300
001400 PROCEDURE DIVISION.
001500 DISPLAY “全体数値: ” WS-TOTAL-VAL.
001600 DISPLAY “文字として: ” WS-TOTAL-STR.
001700 DISPLAY “上位2桁: ” WS-DIV-HI.
001800 DISPLAY “下位2桁: ” WS-DIV-LO.
001900 STOP RUN.
応用・注意点：現場で陥りやすいバグの回避
REDEFINESを使用する際、最も注意すべきは「データ型の不整合」です。例えば、PIC 9(4)の領域をPIC X(4)で再定義して数字以外の文字を代入してしまうと、その後で元のPIC 9(4)の項目を使って演算を行った際に、データ例外（ABEND）が発生するリスクがあります。
また、REDEFINES句を定義している項目には、VALUE句を記述することはできません。初期値を設定したい場合は、元の定義側（REDEFINESされる側）に記述するのが鉄則です。現場ではこのルールを忘れてコンパイルエラーに悩む新人が多いため、基本をしっかり押さえておきましょう。
コメント