導入
COBOL開発において、プログラム間のデータ受け渡しは避けて通れない道です。その際に不可欠なのが「LINKAGE SECTION（連絡節）」ですが、単に「引数を受け取る場所」とだけ理解していると、思わぬメモリ破壊や予期せぬバグを引き起こす原因になります。今回は、LINKAGE SECTIONの仕組みを正しく理解し、安全かつ効率的に外部連携を行うための勘所を解説します。
基礎知識
LINKAGE SECTIONは、呼び出されたプログラム（サブプログラム）側で、呼び出し元から引き渡されるデータの「型」を定義する場所です。
重要なのは、LINKAGE SECTION自体はメモリを確保しないという点です。これは、あくまで呼び出し元のWORKING-STORAGE SECTIONにある領域に対して「この形式でアクセスする」という指示（マッピング）をしているに過ぎません。C言語で言えばポインタのような役割を果たしており、呼び出し元と呼び出し先で同じメモリ領域を共有しているという意識が、バグを防ぐ鍵となります。
実装/解決策
LINKAGE SECTIONを定義する際は、呼び出し元が送ってくるデータの長さと、定義する側の長さが一致していることが鉄則です。もし定義が長すぎると、他の領域まで書き換えてしまう「メモリ破壊」が発生し、原因の特定が非常に困難な障害に発展します。
また、複数の引数がある場合は、PROCEDURE DIVISIONのUSING句に記述した順番と、LINKAGE SECTIONでの定義順を厳密に合わせる必要があります。
サンプルプログラム
以下は、呼び出し元から受け取った数値を加工して返す、実用的なサンプルです。
IDENTIFICATION DIVISION.
PROGRAM-ID. SUB-CALC.
DATA DIVISION.
LINKAGE SECTION.
- 呼び出し元から渡されるデータ領域の定義
01 LS-INPUT-VAL PIC 9(05).
01 LS-RESULT-VAL PIC 9(07).
PROCEDURE DIVISION USING LS-INPUT-VAL, LS-RESULT-VAL.
MAIN-LOGIC.
- 受け取った値に100を掛けて結果領域に格納する
- 実際のメモリ操作は呼び出し元の領域に対して行われる
COMPUTE LS-RESULT-VAL = LS-INPUT-VAL 100.
GOBACK.
応用・注意点
現場でよくある失敗として「LINKAGE SECTIONで定義した項目に初期値（VALUE句）を指定しようとする」ケースがあります。LINKAGE SECTIONではVALUE句は使用できません。初期化が必要な場合は、PROCEDURE DIVISIONで受け取った直後にMOVE文で初期化するか、呼び出し元で初期化してから渡すのが鉄則です。
また、外部連携の際は「再定義（REDEFINES）」を組み合わせることで、一つの引数を状況に応じて異なる構造体として扱うテクニックも有効です。ただし、構造が複雑になればなるほど保守性が低下するため、まずは「呼び出し元と呼び出し先でデータ長を完全に一致させる」という基本を徹底してください。この基本を守るだけで、システム全体の安定感は大きく向上します。
コメント