1. 導入：なぜプログラムのアドレスを扱う必要があるのか
ベテランの現場では、処理の内容を状況に応じて切り替えたいという場面によく遭遇します。例えば、「処理Aを行うときはこのモジュールを呼び出し、処理Bのときは別のモジュールを呼び出す」といったケースです。通常、CALL文はプログラム名を直接記述しますが、それだとプログラムを変更するたびに再コンパイルが必要になります。そこで役立つのが「USAGE IS FUNCTION-POINTER」です。これを使うと、呼び出し先のアドレスを変数として保持し、実行時に動的に制御することが可能になります。
2. 基礎知識：関数ポインタとは何か
COBOLにおける「関数ポインタ」とは、簡単に言えば「プログラムや関数の入り口（メモリ上の場所）を指し示す住所録」のようなものです。
通常、変数には「数値」や「文字列」を入れますが、このデータ型を使うと、その変数の中に「プログラムの場所情報」を格納できます。これにより、CALL文にハードコーディングされた名前を書く代わりに、この変数を指定することで、柔軟なプログラム構成が実現できます。
3. 実装/解決策：動的呼び出しの仕組み
実装の手順は非常にシンプルです。
1. まず、関数ポインタを格納するための変数を定義します。
2. SET文を使用して、呼び出したいプログラムの入り口アドレスをその変数に代入します。
3. CALL文のターゲットにその変数を指定します。
この仕組みを使えば、メインのロジックを変更することなく、呼び出し先を差し替えることができるようになります。
4. サンプルプログラム
以下のコードは、動的にプログラムを呼び出すための基本形です。
IDENTIFICATION DIVISION.
PROGRAM-ID. DYNAMIC-CALL-SAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
- プログラムのアドレスを保持する変数を定義
05 WS-FUNC-ADDR USAGE IS FUNCTION-POINTER.
PROCEDURE DIVISION.
- ‘SUB-PROGRAM’というプログラムのアドレスを取得して変数に代入
SET WS-FUNC-ADDR TO ENTRY ‘SUB-PROGRAM’.
- 変数を使ってプログラムを呼び出し（動的呼び出し）
CALL WS-FUNC-ADDR.
STOP RUN.
- — 呼び出し先のサブプログラム —
IDENTIFICATION DIVISION.
PROGRAM-ID. SUB-PROGRAM.
PROCEDURE DIVISION.
DISPLAY ‘サブプログラムが呼び出されました！’.
EXIT PROGRAM.
5. 応用・注意点：現場で陥りやすい罠
現場で活用する際は、以下の2点に注意してください。
まず、SET文で指定するプログラム名が正しいかという点です。もし存在しないプログラム名を指定すると、実行時に異常終了（アベンド）の原因となります。また、呼び出し先プログラムとのパラメータの不一致にも気を配りましょう。動的呼び出しは非常に強力ですが、コンパイル時に静的なチェックが働かないため、インターフェースの設計は厳格に行うのがベテランの流儀です。
最初は難しく感じるかもしれませんが、この技術をマスターすれば、大規模で保守性の高いシステムを構築する力が一段とアップしますよ。ぜひ試してみてください。
コメント