1. 導入：なぜSET ADDRESS OFが必要なのか
COBOLといえば静的なデータ定義のイメージが強いですが、現代のシステム開発では、必要な時に必要な分だけメモリを確保する「動的メモリ管理」が欠かせません。特に大規模なリスト処理や、外部インターフェースから受け取った不定長のデータ構造を扱う際、Linkage Sectionで定義したレコードに、確保したメモリのアドレスを正しく紐付けなければなりません。この橋渡し役を担うのが「SET ADDRESS OF」文です。これを使わずにポインタを操作しようとすると、不正なメモリアクセスによる異常終了（ABEND）を招く恐れがあるため、正しい作法を身につけることが極めて重要です。
2. 基礎知識：ポインタとLinkage Section
COBOLにおける「ポインタ」とは、メモリ上の特定の場所（番地）を指し示す変数です。
Linkage Sectionは、プログラムの外側にあるメモリ領域や、動的に確保されたメモリ領域を「COBOLのデータ構造として解釈するための枠組み」です。
通常、変数定義はWorking-Storage Sectionで行いますが、そこは固定のメモリ領域です。一方、BASED属性を付与した項目やLinkage Section内の項目は、実体を持たない「定義（テンプレート）」に過ぎません。このテンプレートに「このメモリ番地を使いなさい」と指示を出すのが「SET ADDRESS OF」の役割です。
3. 実装と解決策：ポインタを紐付ける手順
実装の手順はシンプルですが、順序を間違えてはいけません。
1. ポインタ変数を定義する。
2. ALLOCATE文（または外部ルーチン）でメモリ領域を確保し、その開始アドレスをポインタ変数に格納する。
3. SET ADDRESS OF [Linkage項目] TO [ポインタ変数] を実行する。
これで、以降はそのLinkage項目を、通常の変数と同じように参照・更新できるようになります。
4. サンプルプログラム
以下のコードは、動的にメモリを確保し、それを構造体として扱う基本的な例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. PTR-SAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
- 確保したメモリの番地を保持するポインタ
01 MY-PTR POINTER.
LINKAGE SECTION.
- メモリ上に展開されるデータ構造の定義
01 MY-RECORD.
05 REC-ID PIC X(4).
05 REC-VALUE PIC 9(5).
PROCEDURE DIVISION.
- 1. 必要なメモリを確保して、そのアドレスをMY-PTRに格納
ALLOCATE 9 BYTES RETURNING MY-PTR.
- 2. アドレスをLinkage項目に紐付け
SET ADDRESS OF MY-RECORD TO MY-PTR.
- 3. 通常の変数のようにデータ操作が可能
MOVE “A001” TO REC-ID.
MOVE 12345 TO REC-VALUE.
DISPLAY “ID: ” REC-ID ” VALUE: ” REC-VALUE.
- 4. 使い終わったら必ず解放する（メモリリーク防止）
FREE MY-PTR.
GOBACK.
5. 応用・注意点：現場で陥りやすい罠
現場で最も多いトラブルは「解放後の参照」と「ポインタの未初期化」です。
FREE文でメモリを解放した直後、そのポインタ変数は「無効なアドレス」を指したままになります。この状態で再度SET ADDRESS OFを行わずにLinkage項目を参照すると、深刻なバグになります。
また、SET ADDRESS OFを実行する前に、必ずポインタがNULLでないことを確認する癖をつけましょう。堅牢なシステムを構築するためには、確保・紐付け・解放のライフサイクルを厳密に管理することが、ベテラン技術者の作法です。
コメント