1. 導入：なぜ「BY VALUE」が必要なのか
COBOLの世界では、長らくデータをやり取りする際に「アドレス（メモリ上の場所）」を渡す「BY REFERENCE」が標準でした。しかし、C言語やJavaなど他のプログラミング言語と連携する際、相手は「値そのもの」を期待していることがよくあります。そんな時、アドレスを渡してしまうとプログラムがクラッシュする原因になります。ここで活躍するのが「BY VALUE（値渡し）」です。これをマスターすることで、現代のシステム開発に欠かせない「言語間連携」の壁を突破できるようになります。
2. 基礎知識：値渡し（BY VALUE）の仕組み
通常、COBOLのCALL文で変数を渡すと、そのデータがメモリ上のどこにあるかという「住所」を相手に伝えます。一方、「BY VALUE」は「住所」ではなく、変数に格納されている「中身（値）」そのものを直接相手に渡します。
これにより、呼び出された側のプログラムは、元のデータを誤って書き換える心配がなくなり、安全に処理を行うことができます。ただし、値をコピーして渡すため、非常に巨大なデータを渡そうとするとメモリを消費し、パフォーマンスが低下する点には注意が必要です。
3. 実装/解決策：CALL文での指定方法
COBOLで値渡しを行う際は、CALL文の中で「BY VALUE」というキーワードを明示します。
基本構文は以下の通りです。
CALL “サブプログラム名” USING BY VALUE 変数名
この時、受け取る側のプログラム（サブプログラム）でも、LINKAGE SECTIONの定義を適切に行う必要があります。
4. サンプルプログラム：値渡しを実践する
以下のコードは、数値を値渡しでサブプログラムに送り、計算結果を受け取る簡単な例です。
[呼び出し側]
IDENTIFICATION DIVISION.
PROGRAM-ID. MAIN-PROG.
WORKING-STORAGE SECTION.
01 WS-NUM PIC 9(4) VALUE 100.
PROCEDURE DIVISION.
> 数値100を値渡しでサブプログラムへ送る
CALL “SUB-PROG” USING BY VALUE WS-NUM.
STOP RUN.
[呼び出される側 (SUB-PROG)]
IDENTIFICATION DIVISION.
PROGRAM-ID. SUB-PROG.
LINKAGE SECTION.
> 値渡しを受けるための定義。PIC句のサイズに注意してください
01 LS-NUM PIC 9(4).
PROCEDURE DIVISION USING BY VALUE LS-NUM.
> 受け取った値を表示
DISPLAY “受け取った値は: ” LS-NUM.
EXIT PROGRAM.
5. 応用・注意点：現場でハマらないために
現場で「BY VALUE」を使う際、初心者が最も陥りやすい罠が「データ型の不一致」です。
特にC言語などと連携する場合、COBOLの「PIC 9(4)」と相手側の「int型」のサイズが合っていないと、データが化けてしまいます。
また、巨大な集団項目（レコード全体など）をBY VALUEで渡そうとしないでください。値渡しはデータをコピーしてスタックに積むため、大きなデータを渡すとスタックオーバーフローを引き起こす危険があります。
「小さな数値やフラグはBY VALUE」「大きな構造体はBY REFERENCE」と使い分けるのが、ベテランの設計術です。ぜひ覚えておいてください。
コメント