導入：なぜ「キャスト」が必要なのか
COBOL 2002以降のオブジェクト指向拡張では、汎用的なOBJECT REFERENCE型を多用します。しかし、メソッドから返されたオブジェクトが「何者であるか」をコンパイラに明示しなければ、そのオブジェクト固有のメソッドを呼び出すことはできません。これを解決するのが「AS句」による型キャストです。本記事では、このダウンキャストの仕組みを理解し、堅牢なコードを書くための実践的な手法を解説します。
基礎知識：OBJECT REFERENCEとクラス参照
COBOLにおけるオブジェクト参照は、JavaやC#の参照型と同様に扱われます。特に、戻り値が「汎用（OBJECT REFERENCE）」として定義されている場合、コンパイラはその先にあるメソッドが何であるかを判断できません。
ここで登場するのが「キャスト」です。キャストとは、汎用的な参照を特定のクラス型に変換し、そのクラスが持つメソッドへのアクセス権を確保する作業を指します。これを怠ると、呼び出し先で「メソッドが見つからない」といったコンパイルエラーや、実行時の予期せぬ挙動を招く原因となります。
実装：INVOKE … AS 句の論理
解決策はシンプルです。INVOKE文のRETURNING句において、戻り値を格納する際に「AS クラス名」を付与します。これにより、COBOLのランタイムは、その変数が指定されたクラスのインスタンスであることを保証し、以降の処理でそのクラスのメソッドを利用できるようになります。
サンプルプログラム：型キャストの実装例
以下のコードは、ファクトリークラスから生成された汎用オブジェクトを、特定の顧客管理クラスとしてキャストする例です。
IDENTIFICATION DIVISION.
PROGRAM-ID. CAST-SAMPLE.
DATA DIVISION.
WORKING-STORAGE SECTION.
> 汎用オブジェクトではなく、特定のクラスとして定義
01 CUST-OBJ OBJECT REFERENCE Customer.
01 FACTORY-OBJ OBJECT REFERENCE CustomerFactory.
PROCEDURE DIVISION.
> ファクトリークラスのインスタンス化（仮定）
INVOKE CustomerFactory “GET-INSTANCE” RETURNING FACTORY-OBJ.
> INVOKE文で戻り値を特定のクラスへキャスト
> AS句を使うことで、CUST-OBJはCustomerクラスとして扱われる
INVOKE FACTORY-OBJ “CREATE-CUSTOMER”
RETURNING CUST-OBJ AS Customer.
> キャストが成功しているため、Customerクラスのメソッドを安全に呼べる
INVOKE CUST-OBJ “DISPLAY-NAME”.
GOBACK.
END PROGRAM CAST-SAMPLE.
応用・注意点：現場で陥りやすいバグの回避
実務において最も注意すべきは「型不一致」です。もし、実際に返されるオブジェクトがCustomerクラスのサブクラスや、全く別の型である場合、実行時に例外が発生します。
1. 事前チェックの徹底：可能であれば、キャストを行う前に、オブジェクトの型を判定するメソッド（例：IS-INSTANCE-OF）を用意し、型安全性を担保することを推奨します。
2. 冗長なキャストの回避：最初から戻り値の型が確定している場合は、無理に汎用参照で受け取らず、メソッド定義側で適切なクラス型を戻り値として宣言してください。
3. NULLチェック：INVOKEの戻り値がNULLである可能性を考慮し、必ずオブジェクトが生成されたかを確認してからキャストを行う設計にしましょう。
モダンCOBOLにおけるオブジェクト指向は、適切に型を制御することで、従来のプロシージャ型開発よりもはるかに保守性の高いコードを実現できます。ぜひ、AS句を使いこなして堅牢なシステム構築を目指してください。
コメント