1. 導入：なぜポインタをそのまま渡せないのか？
COBOLの現場で、ある程度複雑なプログラムを組むようになると「POINTER」型を使ってメモリのアドレスを直接操作する機会が出てきます。しかし、ここで初心者が必ず一度は躓くのが、「組込関数にポインタ変数を渡すとコンパイルエラーになる」という問題です。なぜ関数はポインタを受け取ってくれないのでしょうか？それは、組込関数が「具体的な値」を求めているのに対し、ポインタは「場所（アドレス）」しか持っていないからです。このギャップを埋める方法を解説します。
2. 基礎知識：ポインタと値の違い
まず、COBOLにおけるPOINTER型は「メモリ上のどこにあるか」という住所情報しか持っていません。一方、FUNCTIONなどの組込関数は、その住所の中身（値）を見て計算や加工を行います。
ここで重要になるのが「参照解決（デリファレンス）」という考え方です。ポインタという「住所」を使って、その先にある「データそのもの」を取り出す作業を指します。COBOLでは「ADDRESS OF」を使ってポインタを定義し、それを「SET文」で操作し、最終的に「基底（BASED）項目」を使って値を取り出すのが基本の流れとなります。
3. 実装：解決策は「BASED」の活用
組込関数に値を渡すには、ポインタが指し示す先に「型（レコードレイアウト）」を被せる必要があります。これをCOBOLでは「BASED句」を使用して実現します。
手順は以下の通りです。
1. POINTER型の変数を定義する。
2. そのポインタが指すデータの構造をBASED句付きで定義する。
3. SET文でポインタにアドレスを格納する。
4. SET ADDRESS OF [BASED項目] TO [ポインタ変数] を実行する。
5. これで[BASED項目]が関数内で直接扱えるようになります。
4. サンプルプログラム
以下のコードは、ポインタが指す先の数値を組込関数「FUNCTION SQRT（平方根）」で計算する例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. POINTER-SAMPLE.
WORKING-STORAGE SECTION.
- ポインタの定義
01 MY-POINTER POINTER.
- ポインタが指す先のデータの型定義（BASEDを使用）
01 TARGET-DATA BASED PIC 9(04)V99.
01 RESULT-VAL PIC 9(04)V99.
PROCEDURE DIVISION.
- 実際にはALLOCATEなどでメモリを確保したアドレスが入っていると想定
- ここでは便宜上、ある領域のアドレスを代入したと仮定します
SET MY-POINTER TO ADDRESS OF SOME-AREA.
- 重要：ポインタが指す先に、定義した型を紐付ける
SET ADDRESS OF TARGET-DATA TO MY-POINTER.
- 組込関数に渡すときは「ポインタそのもの」ではなく「TARGET-DATA」を渡す
COMPUTE RESULT-VAL = FUNCTION SQRT(TARGET-DATA).
DISPLAY “計算結果: ” RESULT-VAL.
GOBACK.
5. 応用・注意点：現場で陥りやすいバグ
現場で最も多い事故は、「アドレスをセットする前にBASED項目を参照してしまう」ことです。ポインタがNULLの状態や、不正なアドレスを指したまま関数に渡すと、プログラムが異常終了（システム例外）を起こします。
また、BASED項目はメモリ上の領域を再利用しているため、別のポインタに切り替えた瞬間に、以前のBASED項目の中身も変わってしまいます。複雑な処理を行う際は、ポインタの生存期間と、BASED項目の参照範囲を明確に管理することを徹底してください。これができると、COBOLのメモリ管理が一気にプロフェッショナルなレベルに近づきます。
コメント