1. 導入：なぜ今、INVOKE文なのか
COBOLといえば「事務処理計算」というイメージが強いかもしれませんが、現代のCOBOL（COBOL 2002以降）は非常に強力なオブジェクト指向機能を備えています。従来の「手続き型」の記述だけでは、大規模システムでコードが肥大化しがちです。そこで重要になるのがINVOKE文です。これを使うことで、複雑な処理を「オブジェクト」という部品に閉じ込め、再利用性の高いスッキリとしたプログラムを書くことができるようになります。
2. 基礎知識：オブジェクトとメソッド
INVOKE文を理解するには、2つの用語を押さえておきましょう。
オブジェクトとは、データと、そのデータを扱うための処理（メソッド）をひとまとめにした「部品」のことです。例えば「銀行口座」というオブジェクトなら、「残高」というデータと「預け入れ」「引き出し」という処理がセットになっています。
メソッドとは、そのオブジェクトに対して「これをしてくれ」と命令する具体的な操作のことです。INVOKE文は、この命令を出すための「呼び出しボタン」のような役割を果たします。
3. 実装：INVOKE文の仕組み
INVOKE文の基本構文は非常にシンプルです。
INVOKE [オブジェクト名] [メソッド名] USING [引数] RETURNING [戻り値].
これだけで、対象となるオブジェクトの機能を呼び出し、結果を受け取ることができます。従来のCALL文のような外部プログラム呼び出しとは異なり、オブジェクトの内部状態を安全に操作できるのが最大の特徴です。
4. サンプルプログラム
以下のコードは、預金口座クラスを模したオブジェクトに対して、1000円を預け入れる処理を実行する例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. INVOKE-SAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
- オブジェクトの参照を保持する変数
01 ACCOUNT-OBJ OBJECT REFERENCE.
01 DEPOSIT-AMT PIC 9(5) VALUE 1000.
PROCEDURE DIVISION.
- 実際にはここでオブジェクトの生成が行われていると想定します
- INVOKE文によるメソッド呼び出し
- ACCOUNT-OBJに対して「Deposit」という名前の処理を依頼します
INVOKE ACCOUNT-OBJ “Deposit” USING DEPOSIT-AMT.
DISPLAY “預け入れ処理が完了しました。”
GOBACK.
5. 応用・注意点：現場でハマらないために
INVOKE文を使用する際、初心者が最も陥りやすい罠は「オブジェクトが空（NULL）」のまま呼び出してしまうことです。プログラムが異常終了する原因の多くはこれです。必ずINVOKEの前に、オブジェクトが正しく生成されているか（NULLではないか）をチェックする習慣をつけましょう。
また、メソッド名は大文字・小文字を区別する場合があるため、定義書通りに記述することも重要です。モダンCOBOLのオブジェクト指向機能を使えば、保守性の高いコードが書けます。ぜひ、既存のサブルーチンをクラス化してINVOKEで呼び出す練習から始めてみてください。
コメント