導入：なぜFACTORYが必要なのか？
COBOLといえば、手続き型の言語というイメージが強いかもしれませんが、2002年以降の標準規格（OOCOBOL）では強力なオブジェクト指向機能が備わっています。その中でも「FACTORY（ファクトリ）」は、インスタンスを生成する際の「設計図」として非常に重要です。通常、クラスのメソッドは「インスタンス化（NEW）」しないと使えませんが、FACTORYを使うことで、インスタンス化せずに呼び出せる「静的メソッド」を定義できます。これにより、オブジェクト生成のロジックを整理し、コードの可読性を劇的に向上させることができます。
基礎知識：FACTORYとインスタンスの役割分担
COBOLのクラス定義において、データやメソッドは大きく分けて2つの場所に存在します。
1. OBJECTセクション：個々のインスタンス（実体）が持つデータやメソッド。
2. FACTORYセクション：クラスそのものが持つデータやメソッド。
FACTORYは、いわば「クラスの管理者」です。例えば「社員」というクラスがある場合、個々の社員データはOBJECT側に持ちますが、「社員番号を自動採番する」といったクラス全体で共有すべき処理はFACTORYに記述するのが定石です。
実装：FACTORYの書き方
FACTORYセクションは、クラス定義の中に記述します。ここで定義したメソッドは、インスタンスを作成する前であっても、クラス名を使って直接呼び出すことが可能です。特に「インスタンスを生成して返すメソッド（ファクトリメソッド）」をここに記述するのが最も一般的な使い方です。
サンプルプログラム：インスタンスを生成するFACTORY
以下の例は、挨拶メッセージを返すオブジェクトを作成するシンプルな実装例です。
IDENTIFICATION DIVISION.
CLASS-ID. Greeter.
- — FACTORYの開始 —
FACTORY.
METHOD-ID. CreateInstance.
LINKAGE SECTION.
01 obj-ref OBJECT REFERENCE Greeter.
PROCEDURE DIVISION RETURNING obj-ref.
- 新しいインスタンスを生成して呼び出し元に返す
INVOKE Greeter “NEW” RETURNING obj-ref.
EXIT METHOD.
END METHOD CreateInstance.
END FACTORY.
- — 通常のメソッド —
OBJECT.
METHOD-ID. SayHello.
PROCEDURE DIVISION.
DISPLAY “こんにちは！COBOLの世界へようこそ”.
END METHOD SayHello.
END OBJECT.
END CLASS Greeter.
応用・注意点：現場での活用と落とし穴
FACTORYを使用する際の最大のメリットは、オブジェクトの生成ロジックをカプセル化できる点です。例えば、DB接続先の設定をインスタンス生成時に毎回書くのではなく、FACTORYメソッド内で一元管理すれば、設定変更があった際も修正箇所を1か所に絞れます。
注意点として、FACTORYセクション内のデータ（クラス変数）は、すべてのインスタンスで共有される「静的領域」にあることを忘れないでください。不用意にフラグを立てると、予期せぬタイミングで他のインスタンスに影響を与えるバグ（いわゆる競合状態）の原因になります。基本的には「状態を持たないユーティリティ的な処理」や「インスタンス生成専用」として使うのが、ベテランの現場では好まれます。まずはこの「インスタンス生成の窓口」としての使い方からマスターしてみてください。
コメント