1. 導入：なぜインターフェースが必要なのか
COBOLの現場では、長年「手続き型」の記述が主流でしたが、現代のシステム開発では「オブジェクト指向」の考え方が欠かせません。今回解説する「INTERFACE（インターフェース）」は、クラスが持つべき「メソッドの型（シグネチャ）」だけを定義する特別な仕組みです。
なぜこれが重要かというと、複数のプログラムで同じ操作（例えば「帳票出力」や「データ保存」）をさせたいとき、それぞれのクラスが「どんな名前で、どんな引数のメソッドを持つべきか」というルールを強制できるからです。これにより、プログラムの柔軟性が高まり、保守性が劇的に向上します。
2. 基礎知識：インターフェースの仕組み
インターフェースは、それ自体では実行できません。あくまで「設計図の雛形」です。
INTERFACE-IDで定義されたメソッドは、具体的な処理（ロジック）を書きません。その代わり、このインターフェースを実装するクラス（IMPLEMENTS句を使用）に対して、「このメソッドを必ず作成しなさい」という契約を結ばせます。これにより、呼び出し側は「どのクラスが来たとしても、Printメソッドを呼べば必ず動くはずだ」という信頼のもとでコーディングができるようになります。
3. 実装と解決策
インターフェースを導入する際は、以下のステップを踏みます。
1. INTERFACE-IDで規約を定義する。
2. その規約を適用したいクラスでIMPLEMENTS句を宣言する。
3. クラス内で、インターフェースで定義したメソッドを必ず実装する。
これによって、プログラム同士の結合度を下げ、変更に強いシステムを構築できます。
4. サンプルプログラム
以下は、出力処理を共通化するためのインターフェース例です。
インターフェース定義 (Printable.cbl)
INTERFACE-ID. Printable.
- 実行するメソッドの定義（処理内容は書かない）
METHOD-ID. Print-Data.
PROCEDURE DIVISION.
END METHOD Print-Data.
END INTERFACE Printable.
インターフェースを実装するクラス (ReportClass.cbl)
CLASS-ID. ReportClass IMPLEMENTS Printable.
METHOD-ID. Print-Data.
PROCEDURE DIVISION.
- 実際に出力処理を記述する
DISPLAY “帳票を出力します。”
END METHOD Print-Data.
END CLASS ReportClass.
5. 応用・注意点
現場で活用する際の注意点は、「インターフェースは変更を最小限にする」という点です。一度公開したインターフェースにメソッドを追加すると、それを実装しているすべてのクラスで修正が必要になります。
また、COBOL 2002以降の仕様では、一つのクラスが複数のインターフェースを実装（IMPLEMENTS）することも可能です。これは「機能の切り分け」に非常に便利です。例えば「Printable（印刷可能）」インターフェースと「Savable（保存可能）」インターフェースを両方実装することで、そのクラスに複数の役割を安全に持たせることができます。
オブジェクト指向的な設計は、最初は難しく感じるかもしれませんが、大規模なCOBOLシステムを長期間運用するためには不可欠な技術です。ぜひ小さなクラスから取り入れてみてください。
コメント