はじめに：なぜポインタの足し算はダメなの？
皆さん、COBOL歴ウン十年（！）のベテラン技術者として、今回はモダンCOBOL（2002年以降）のちょっと不思議に思える仕様、「USAGE IS POINTER」に対する代数演算（足し算や引き算）が禁止されている理由について、深掘りしていきます。
「なんだ、ポインタなんだから、C言語みたいに PTR + 1 で次のメモリを指せるはずなのに…」と思った方、いるのではないでしょうか？ 実は、この制限こそが、モダンCOBOLの「安全第一」主義を象徴しているのです。この制限がないと、意図せずメモリを破壊してしまい、プログラムがクラッシュしたり、誤ったデータを出力したりする原因になりかねません。今回は、この「なぜ禁止なのか」を理解し、安全で堅牢なCOBOLプログラムを作成するためのヒントをお届けします。
基礎知識：ポインタとは？そしてモダンCOBOLでの扱いは？
まず、「ポインタ」とは何か、おさらいしておきましょう。ポインタとは、簡単に言うと「メモリ上のアドレスを格納する変数」のことです。プログラムが扱うデータは、すべてメモリ上に配置されます。ポインタを使うと、そのデータの「場所」を直接指定できるようになり、データの操作や、動的なメモリ管理が可能になります。
C言語などの他のプログラミング言語では、ポインタに対して直接的な算術演算（例えば、ポインタに整数を足すなど）を行うことができます。これは、配列の要素を順番にたどる際などに非常に便利です。
しかし、モダンCOBOLでは、USAGE IS POINTER で宣言された変数に対して、直接的な加算や減算といった代数演算を行うことができません。例えば、以下のようなコードはコンパイルエラーになります。
WORKING-STORAGE SECTION.
01 MY-POINTER USAGE IS POINTER.
01 OFFSET-VALUE PIC 9(4) VALUE 1.
PROCEDURE DIVISION.
> これはエラーになります！
ADD OFFSET-VALUE TO MY-POINTER.
なぜこのような制限があるのでしょうか？ それは、「型安全性（Type Safety）」と「メモリ破壊の防止」のためです。COBOLは、ビジネスアプリケーションで長年使われてきた実績があり、その堅牢性が重視されています。ポインタ演算を自由に行えるようにすると、プログラマのミスによって、本来アクセスすべきではないメモリ領域を誤って書き換えてしまうリスクが高まります。
モダンCOBOLでは、ポインタの操作はより明示的で安全な方法で行うことが推奨されています。
実装/解決策：安全なアドレス計算の方法
では、ポインタを使ってメモリ上のオフセットを計算したい場合、モダンCOBOLではどのようにすれば良いのでしょうか？ その鍵は、「ADDRESS OF」句と「部分参照（Subscripting）」を組み合わせることです。
具体的には、まず ADDRESS OF 句を使って、対象となるデータ項目のメモリアドレスを取得します。次に、そのアドレスをポインタ変数に格納します。そして、オフセットを計算したい場合は、ポインタ変数自体を直接操作するのではなく、ADDRESS OF 句で取得したアドレスを基準に、目的のデータ項目を「部分参照」する形でアクセスします。
例えば、あるレコードの先頭アドレスを取得し、そこから特定のフィールドにアクセスしたい場合を考えてみましょう。
WORKING-STORAGE SECTION.
01 EMPLOYEE-RECORD.
05 EMP-ID PIC X(10).
05 EMP-NAME PIC X(50).
05 EMP-SALARY PIC 9(9)V99 COMP-3.
01 EMPLOYEE-PTR USAGE IS POINTER.
01 RECORD-BASE-ADDR PIC X(8) VALUE SPACES. > アドレス格納用 (環境による)
PROCEDURE DIVISION.
> 物理的なレコードの開始アドレスを取得し、ポインタに格納
SET EMPLOYEE-PTR TO ADDRESS OF EMPLOYEE-RECORD.
> ポインタが指すアドレスを直接計算するのではなく、
> ADDRESS OF を使ってフィールドのアドレスを取得し、
> そのフィールドにアクセスする。
> 例: EMP-ID にアクセスする場合
> (この例では、ポインタ変数自体にオフセットを加算するのではなく、
> ADDRESS OF と部分参照で目的のフィールドにアクセスしています。)
> より一般的なのは、ADDRESS OF で取得したアドレスを
> 別の変数（例えばX(8)など）に格納し、それを基準に
> 部分参照でアクセスする方法です。
MOVE EMPLOYEE-PTR TO RECORD-BASE-ADDR.
> EMP-ID にアクセス ( RECORD-BASE-ADDR は便宜上の例です)
> 実際には、ADDRESS OF EMPLOYEE-RECORD を直接使うか、
> オフセット計算を明示的に行う必要があります。
> ここで、より直接的なフィールドアクセスを説明します。
> ADDRESS OF句で取得したポインタを直接使うのではなく、
> ADDRESS OF句で取得したアドレスを基に、
> 目的のフィールドを直接参照します。
> 例えば、EMP-NAME のアドレスを取得したい場合：
> MOVE ADDRESS OF EMP-NAME TO SOME-POINTER-VAR.
> そして、そのポインタ変数を使ってデータにアクセスします。
> ポインタ演算が禁止されているため、
> オフセット計算は、ADDRESS OF と部分参照を
> 組み合わせた明示的な方法で行います。
DISPLAY "Record Address (via pointer): " EMPLOYEE-PTR.
> ポインタ自体にオフセットを加算できないため、
> 特定のフィールドへのアクセスは、
> ADDRESS OF句で対象フィールドのアドレスを取得し、
> そのアドレスにアクセスするのが安全な方法です。
> 例: EMP-NAME の内容を取得したい場合
> (直接ポインタ演算ができないため、以下のようなコードは書けません)
> MOVE (EMPLOYEE-PTR + 50) TO SOME-VAR.
> 安全な方法の概念：
> EMPLOYEE-RECORD の開始アドレスを取得し、
> そこから EMP-NAME のオフセット（この例では10バイト）を
> 明示的に計算して、そのアドレスにアクセスする。
> ただし、COBOLの標準機能だけでこれを直接行うのは複雑なため、
> 通常はADDRESS OF句で直接フィールドのアドレスを取得します。
> 例：EMP-NAME の内容を表示する（ポインタ演算なし）
DISPLAY "Employee Name: " EMP-NAME.
> より高度なポインタ操作（例：別のメモリ領域へのポインタ設定）
> SET ANOTHER-POINTER TO ADDRESS OF SOME-OTHER-DATA.
> MOVE FUNCTION POINTER-TO-INTEGER(EMPLOYEE-PTR) TO INTEGER-VAR.
> MOVE FUNCTION INTEGER-TO-POINTER(INTEGER-VAR) TO EMPLOYEE-PTR.
> (ただし、これらの整数変換は低レベルな操作であり、
> 通常は推奨されません。)
上記サンプルコードのコメントにもあるように、ポインタ変数自体に直接オフセットを加算して他のフィールドのアドレスを得る、というような操作はできません。COBOLでは、ADDRESS OF 句で対象のデータ項目（変数やフィールド）のアドレスを直接取得し、それをポインタ変数に設定するのが最も一般的で安全な方法です。
サンプルプログラム：安全なポインタ操作の例
ここでは、ADDRESS OF 句とポインタ変数を使って、あるデータ項目のアドレスを取得し、そのアドレスを別のポインタ変数にコピーする簡単な例を示します。
IDENTIFICATION DIVISION.
PROGRAM-ID. SAFE-POINTER-DEMO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 SOURCE-DATA PIC X(20) VALUE "Hello, COBOL Pointer!".
01 TARGET-DATA PIC X(20).
01 SOURCE-PTR USAGE IS POINTER.
01 TARGET-PTR USAGE IS POINTER.
PROCEDURE DIVISION.
DISPLAY "--- Safe Pointer Operation Demo ---".
> 1. SOURCE-DATA のアドレスを取得し、SOURCE-PTR に設定
SET SOURCE-PTR TO ADDRESS OF SOURCE-DATA.
DISPLAY "Address of SOURCE-DATA (via SOURCE-PTR): " SOURCE-PTR.
> 注: ポインタ変数の内容を直接表示した場合、
> 実行環境によって異なる形式で表示されます。
> 2. SOURCE-PTR の内容（アドレス）を TARGET-PTR にコピー
> ポインタ変数同士の代入は可能です。
SET TARGET-PTR TO SOURCE-PTR.
DISPLAY "TARGET-PTR now points to the same address.".
> 3. TARGET-PTR が指すメモリ領域のデータをTARGET-DATA にコピー
> ポインタ演算は禁止されているため、直接ポインタ演算で
> TARGET-DATA を参照するのではなく、
> TARGET-PTR が指す領域のデータを、
> TARGET-DATA に明示的にコピーします。
> ここでは、TARGET-PTR が指す場所から20バイトを
> TARGET-DATA にコピーするイメージですが、
> COBOLでは直接的なポインタ経由でのコピーは一般的ではありません。
> 代わりに、ADDRESS OF句で取得したアドレスを基に
> データにアクセスします。
>
> より現実的な例としては、TARGET-PTR が
> TARGET-DATA のアドレスを指していることを確認し、
> TARGET-DATA に値を設定する、というシナリオが考えられます。
>
> ここでは、SOURCE-DATA の内容を
> TARGET-PTR が指す領域（つまりSOURCE-DATA自身）に
> 上書きする例を示します。
> まず、TARGET-PTR が SOURCE-DATA のアドレスを指しているか確認
IF SOURCE-PTR = TARGET-PTR
DISPLAY "SOURCE-PTR and TARGET-PTR point to the same location."
> SOURCE-DATA の内容を変更してみます。
MOVE "Modified Data" TO SOURCE-DATA.
DISPLAY "Changed SOURCE-DATA to: " SOURCE-DATA.
> TARGET-PTR を通して参照すると、変更された内容が見えるはずです。
> ただし、COBOLでポインタ経由で直接データを参照・変更するには、
> ADDRESS OF句で対象フィールドのアドレスを取得し、
> そのアドレスにアクセスする形式になります。
>
> 例: TARGET-PTR が指す場所から20バイトを
> TARGET-DATA にコピーする（実際にはより複雑な操作）
>
> ここでは、TARGET-PTR が指す領域のデータを
> TARGET-DATA にコピーする、という操作を
> 疑似的に表現します。
>
> MOVE FUNCTION POINTER-TO-STRING(TARGET-PTR, 20) TO TARGET-DATA.
> 上記は概念的なもので、実際にはコンパイラ依存や
> 特定の関数を利用する必要があります。
> より標準的な方法で、TARGET-PTR が指す場所のデータを
> TARGET-DATA にコピーするイメージ：
> ADDRESS OF TARGET-DATA を取得し、
> ADDRESS OF SOURCE-DATA と比較するなど。
> ここでは、TARGET-PTR が指す場所のデータを
> TARGET-DATA にコピーする、という操作を
> 簡略化して表現します。
> (実際には、ポインタ演算なしで、
> ADDRESS OF TARGET-DATA を取得し、
> SOURCE-DATA の内容をコピーするのが一般的です。)
> 例：TARGET-PTR が指す場所のデータを
> TARGET-DATA にコピー（概念）
> MOVE TARGET-PTR TO ADDRESS OF TARGET-DATA.
> 上記は構文エラーになります。
> 安全な方法：SOURCE-DATA の内容を TARGET-DATA にコピー
MOVE SOURCE-DATA TO TARGET-DATA.
DISPLAY "Copied content via TARGET-PTR concept to TARGET-DATA: " TARGET-DATA.
ELSE
DISPLAY "Error: SOURCE-PTR and TARGET-PTR do not point to the same location."
END-IF.
DISPLAY "--- End of Demo ---".
STOP RUN.
応用・注意点：現場で役立つヒントと落とし穴
モダンCOBOLで USAGE IS POINTER を使う際の応用や注意点は以下の通りです。
-
明示的なアドレス取得の徹底: ポインタ演算ができないということは、オフセット計算をしたい場合に、より慎重な設計が必要になるということです。
ADDRESS OF句で、操作したいデータ項目のアドレスを毎回明確に取得し、それをポインタ変数に設定する習慣をつけましょう。 -
ポインタ変数の初期化: ポインタ変数は、使用前に必ず初期化（
NULLを設定するか、有効なアドレスを設定）してください。未初期化のポインタ変数を使用すると、予期せぬ動作を引き起こす可能性があります。 -
POINTER-TO-INTEGER/INTEGER-TO-POINTER関数: COBOLには、ポインタと整数との間で変換を行う関数（POINTER-TO-INTEGER、INTEGER-TO-POINTER）が用意されている場合があります。これらを使うと、ポインタの整数値としての扱いや、低レベルなメモリ操作が可能になりますが、非常に危険な操作であり、システム依存性も高いため、特別な理由がない限り使用は避けるべきです。 - メモリリークに注意: 動的にメモリを確保・解放するような高度なポインタ操作を行う場合、メモリリーク（解放し忘れたメモリ領域が残り続けること）に注意が必要です。COBOLでは、通常、メインフレーム環境などではOSやランタイムがメモリ管理をサポートしていますが、それでも設計によっては問題が発生する可能性があります。
-
可読性と保守性: ポインタ演算が直接できない代わりに、
ADDRESS OF句や部分参照を駆使したコードは、一見すると複雑に見えるかもしれません。しかし、これは「安全のため」という明確な意図があります。コードを書く際には、なぜそのように実装しているのかをコメントで明確にし、可読性と保守性を高めることを心がけましょう。
モダンCOBOLにおける USAGE IS POINTER の代数演算禁止は、一見不便に感じるかもしれませんが、これはプログラムの安全性と信頼性を高めるための重要な設計思想です。このルールを理解し、安全なコーディングプラクティスを実践することで、より堅牢なCOBOLアプリケーションを開発することができます。
コメント