導入：なぜ「SUPER」が重要なのか
COBOLといえば、長年「手続き型言語」の代名詞でしたが、COBOL 2002以降では本格的なオブジェクト指向機能がサポートされています。特に継承を活用する際、避けて通れないのが「親クラスの処理をいかに呼び出すか」という課題です。オーバーライド（上書き）したメソッドの中で、親クラスの基本動作を維持しつつ機能を追加したいとき、この「SUPER」という予約語が解決策となります。これを使えば、コードの重複を避け、保守性の高い階層構造を構築することが可能です。
基礎知識：SUPERと継承の仕組み
オブジェクト指向における「継承」とは、あるクラス（子クラス）が別のクラス（親クラス）の属性やメソッドを引き継ぐ仕組みです。
「SUPER」は、実行中のメソッドが属するクラスの「直接の親クラス」を指し示す特別なキーワードです。例えば、親クラスで定義された「初期化処理」を子クラスでも実行したい場合、単にメソッドを記述するだけでは再帰的に自分自身を呼び出してしまい、無限ループ（スタックオーバーフロー）を引き起こす可能性があります。そこで「SUPER」を明示することで、正しく親クラスのメソッドへ制御を移すことができます。
実装と解決策
実装の基本は、INVOKE文と組み合わせることです。
INVOKE SUPER “メソッド名” [USING 引数]
このように記述することで、現在実行しているメソッドの親クラスに定義されたメソッドを呼び出せます。注意点として、SUPERはあくまで「直接の親」を指すため、祖父母クラスのメソッドを直接指定することはできません。
サンプルプログラム
以下は、親クラスで定義された初期化処理を、子クラスで拡張する例です。
IDENTIFICATION DIVISION.
CLASS-ID. ChildClass INHERITS BaseClass.
METHOD-ID. Initialize.
> — 親クラスの初期化処理を先に実行する —
INVOKE SUPER “Initialize”
> — 子クラス独自の初期化処理を追加 —
DISPLAY “子クラスの独自処理を実行しました。”
END METHOD Initialize.
END CLASS ChildClass.
応用・注意点：現場で陥りやすい罠
現場でよくあるミスとして、INVOKE SUPERを記述する場所の誤りが挙げられます。基本的には、子クラスのメソッドの先頭で親の処理を呼ぶのが定石ですが、業務要件によっては「親の処理の結果を受けてから、子で条件分岐する」といった設計も必要です。
また、親クラスが存在しない（ルートクラスである）場合にSUPERを使用するとコンパイルエラーになります。設計変更でクラス階層をいじった際は、継承関係を再確認する癖をつけておきましょう。オブジェクト指向COBOLは、適切に使えば大規模な基幹システムをより整理された構造へと導いてくれます。ぜひ使いこなしてください。
コメント