1. 導入：なぜLINKAGE SECTIONが重要なのか
COBOLでの開発において、一つの巨大なプログラムですべてを完結させることは稀です。通常は「親プログラム」が「子プログラム」を呼び出すことで処理を分割します。このとき、親から子へデータを安全に受け渡すために欠かせないのが「LINKAGE SECTION（連絡節）」です。これを知ることで、プログラムの部品化が進み、保守性の高いシステム開発が可能になります。
2. 基礎知識：LINKAGE SECTIONとは何か
LINKAGE SECTIONは、呼び出し元のプログラムから渡されるデータを受け取るための「受け皿」です。
ここでの最大の特徴は、自分自身ではメモリ（記憶領域）を確保しないという点です。あくまで「ここにデータが置いてあるはずだ」というアドレス（番地）を指し示す役割を担います。そのため、呼び出し元と呼び出し先のデータ定義が一致していないと、メモリの読み込みミスが発生し、プログラム異常終了の原因となります。
3. 実装/解決策：データ連携の仕組み
実装のポイントは「呼び出し元との型合わせ」です。以下のルールを守ることで、データの受け渡しがスムーズになります。
・呼び出し側：CALL文のUSING句で変数を指定する。
・呼び出し先：PROCEDURE DIVISIONのUSING句で受け取り、LINKAGE SECTIONで定義する。
4. サンプルプログラム
以下の例は、親プログラムから文字列を受け取って表示する簡単な子プログラムです。
[子プログラム側]
IDENTIFICATION DIVISION.
PROGRAM-ID. SUB-PROG.
- 呼び出し元から受け取る変数を定義
LINKAGE SECTION.
01 LS-MESSAGE PIC X(20).
- USING句で受け取る変数を指定
PROCEDURE DIVISION USING LS-MESSAGE.
DISPLAY “呼び出し元からのデータ: ” LS-MESSAGE.
GOBACK.
[親プログラム側（呼び出しのイメージ）]
WORKING-STORAGE SECTION.
01 WS-DATA PIC X(20) VALUE “HELLO COBOL!”.
PROCEDURE DIVISION.
- CALL文でデータを渡す
CALL “SUB-PROG” USING WS-DATA.
GOBACK.
5. 応用・注意点：現場で陥りやすい罠
現場で最も多いバグが、「データの長さ（桁数）の不一致」です。例えば、親プログラムがPIC X(10)で送っているのに、子プログラム側でPIC X(20)と定義してしまうと、メモリ上の隣接するデータまで読み込んでしまい、意図しない値が表示されることがあります。
また、LINKAGE SECTIONで定義した変数は、プログラム終了後に値が保持されません。値を次の処理まで持ち越したい場合は、必ずWORKING-STORAGE SECTIONへMOVEして保存する癖をつけましょう。堅実なコーディングが、安定した基幹システムを支える鍵となります。
コメント