ポリモルフィズムとは,一つのメッセージに対して異なる処理をすることを許す機能です。オブジェクト指向機能では,メソッドの呼び起こし(INVOKE文)でポリモルフィズムができます。これは,「あるオブジェクト参照は,それに適合するオブジェクトのメソッドを呼び起こせる」というオブジェクト参照の特徴を利用したものです。
ポリモルフィズムの使用例を,次に示します。
DATA DIVISION.
WORKING-STORAGE SECTION.
01 HA USAGE OBJECT REFERENCE 預金口座. *> 1.
:
PROCEDURE DIVISION.
:
IF 要求 = 普通預金処理 *> 2.
INVOKE 普通預金口座 'NEW' RETURNING HA
ELSE
INVOKE 当座預金口座 'NEW' RETURNING HA
END-IF.
:
INVOKE HA '引き出し'. *> 3.