1. 導入：なぜこの仕様が重要なのか
COBOLの現場で長年重宝されてきた「MOVE CORRESPONDING」命令。集団項目間で名前の一致する項目を一括転記できる非常に便利な機能ですが、モダンCOBOL環境、特にNATIONAL項目（Unicodeデータ）が混在する環境では、思わぬ落とし穴となります。なぜこの制約があるのか、そしてどう対応すべきかを解説します。
2. 基礎知識：NATIONAL項目と暗黙の変換
COBOLにおける「NATIONAL項目」とは、Unicode（UTF-16）を扱うためのデータ型です。通常の英数字項目（DISPLAY）と異なり、文字コード体系が異なるため、転記時には文字セットの変換が必要です。
MOVE CORRESPONDINGは、コンパイル時に名前の対応関係を自動解決する仕組みですが、コンパイラは「異なる文字セット間での暗黙的な変換によるデータ損失」を防ぐため、NATIONAL項目が含まれる集団項目に対しては、この命令の適用を制限、あるいは無視する挙動をとります。これはプログラムの安全性と予測可能性を担保するための重要な仕様です。
3. 実装・解決策
CORRESPONDINGが使えないからといって、すべて手動でMOVEを書く必要はありません。基本的には「明示的な変換」を意識した構造設計が求められます。
最も安全なアプローチは、集団項目間の転記が必要な場合、COPY句で共通定義を保持しつつ、個別にMOVEを行うか、あるいは変換用関数（FUNCTION DISPLAY-OF / NATIONAL-OF）を適切に組み合わせることです。
4. サンプルプログラム
以下は、NATIONAL項目を含む場合にCORRESPONDINGが機能しないことを前提とした、安全な転記方法の例です。
[プログラム例]
IDENTIFICATION DIVISION.
PROGRAM-ID. MOVE-EXAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
- 通常の項目
01 GROUP-A.
05 NAME-JIS PIC X(10).
- NATIONAL項目（Unicode）
01 GROUP-B.
05 NAME-NAT PIC N(10) USAGE NATIONAL.
01 WORK-AREA-A.
05 NAME-JIS PIC X(10).
01 WORK-AREA-B.
05 NAME-NAT PIC N(10) USAGE NATIONAL.
PROCEDURE DIVISION.
- MOVE CORRESPONDINGは、型が混在する場合に意図しない挙動やエラーになるため
- 以下のように明示的にMOVEを行うのが、モダンCOBOLでの定石です。
- 文字セットを意識した転記
MOVE NAME-JIS OF GROUP-A TO NAME-JIS OF WORK-AREA-A.
- NATIONAL項目の転記（明示的な変換が必要な場合）
MOVE NAME-NAT OF GROUP-B TO NAME-NAT OF WORK-AREA-B.
STOP RUN.
5. 応用・注意点：現場で陥りやすいバグ
現場で最も怖いのは「コンパイルエラーにならず、データが化ける」ケースです。
注意点として、古い仕様のコンパイラでは警告レベルで済まされる場合でも、モダンCOBOLでは厳格に型チェックが行われます。
「MOVE CORRESPONDING」に頼りすぎず、集団項目の構造を変更する際は、必ずデバッグモードで文字化けが発生していないかを確認してください。また、データ定義（COPY句）を統一することで、そもそもMOVE CORRESPONDINGに頼る必要がない「疎結合なデータ設計」を心がけることが、ベテラン技術者としての腕の見せ所です。
コメント