次の例では、bonusPout クラスに bonusPay というメソッドがありません。メソッド呼び出し式を修正して、正しいメソッド名を指定します。
class-id bonusPout. method-id main STATIC. declare myDel as type myDelegate set myDel to method self::bonusPay end method. method-id calcBonus (by value sal1 as binary-long by value sal2 as binary-long) returning finalB as binary-long. ... end method. method-id calcBonus (by value sal1 as binary-long) returning finalB as binary-long. ... end method. method-id calcBonus. ... end method. end class. delegate-id myDelegate. end delegate.