導入：なぜ集団項目での受け渡しが重要なのか
COBOL開発において、プログラム間でデータをやり取りする際、項目を一つずつ引数に並べていませんか？引数が多いと保守性が下がるだけでなく、パラメータの整合性を保つのも一苦労です。そこで活用したいのが「集団項目（01レベル）」の全体渡しです。この手法を使えば、レコード構造そのものをサブプログラムと共有できるため、インターフェースの変更に強く、コードも非常にスッキリと保つことができます。
基礎知識：メモリブロックの共有とは
COBOLのCALL文において、引数に集団項目を指定すると、その集団項目が占有する「メモリ上のアドレス」がそのままサブプログラムに渡されます。サブプログラム側で、渡された側と同じ構造の01レベルを定義しておけば、メイン側で更新した値が即座にサブプログラム側で参照可能になります。これは、いわばC言語でいうところの「構造体ポインタ」を渡すような仕組みです。
実装：一括渡しの手順
1. メイン側とサブ側で、共有するレコード構造（コピーブック等）を完全に一致させる。
2. CALL文のUSING句に、その集団項目名を記述する。
3. サブプログラムのLINKAGE SECTIONで、同じ構造を宣言する。
サンプルプログラム
メインプログラムから顧客情報をサブプログラムへ渡し、値を書き換える例です。
> メインプログラム側
WORKING-STORAGE SECTION.
01 WS-CUSTOMER-REC.
05 CUST-ID PIC X(05).
05 CUST-NAME PIC X(20).
PROCEDURE DIVISION.
MOVE “12345” TO CUST-ID.
MOVE “山田太郎” TO CUST-NAME.
> 集団項目をそのまま渡す
CALL “SUB-UPDATE” USING WS-CUSTOMER-REC.
DISPLAY “更新後の名前: ” CUST-NAME.
STOP RUN.
> サブプログラム側 (SUB-UPDATE)
LINKAGE SECTION.
01 LK-CUSTOMER-REC.
05 LK-ID PIC X(05).
05 LK-NAME PIC X(20).
PROCEDURE DIVISION USING LK-CUSTOMER-REC.
> メイン側のメモリを直接書き換える
MOVE “佐藤花子” TO LK-NAME.
EXIT PROGRAM.
応用・注意点：現場で陥りやすい罠
この手法は非常に強力ですが、以下の点には十分注意してください。
1. 構造の不一致は致命傷
メイン側とサブ側の定義が1バイトでも異なると、意図しない場所のメモリが書き換わる（あるいは誤った値が読み取られる）バグが発生します。必ずコピーブックを用いて、定義を共通化することを徹底してください。
2. 再帰呼び出しやマルチスレッド時の注意
集団項目渡しはメモリの直接参照であるため、複数のプログラムから同時に同じ領域を操作すると、競合問題が発生する可能性があります。設計段階で「誰がそのデータを所有（更新）しているか」を明確にしておくことが、ベテランの設計術です。
3. 可変長レコードの扱い
OCCURS句を含む集団項目を渡す際は、DEPENDING ON句の扱いにも注意が必要です。データ長が変化する場合、受け側でも正しくその長さを認識できるような設計を心がけましょう。
レコード単位での連携は、大規模システムにおける「疎結合」な設計の第一歩です。ぜひ活用してください。
コメント