メソッド

インスタンス メソッドの変更子

次の変更子は、メソッドが継承する範囲とメソッドが継承される範囲を示します。

ABSTRACT

抽象メソッドを宣言します。抽象メソッドは抽象クラスでのみ宣言でき、そのクラスから派生する非抽象クラスでオーバーライドする必要があります。

OVERRIDE

該当のメソッドが、同じ名前と署名の継承されたメソッドをオーバーライドすることを指定します。

REDEFINE

サブクラス型として定義される項目で再定義メソッドが呼び出された場合のみスーパークラスのメソッドを非表示にします。

FINAL

派生クラスがメソッドをこれ以上オーバーライドしないようにします。

抽象メソッド

抽象メソッドに実装はありません。抽象メソッドを使用するには、そのメソッドを継承し、継承するサブクラスで、メソッドの実装を提供します。抽象クラスには、抽象以外のメソッドと抽象メソッドを含めることができます。抽象以外のメソッドでは、デフォルトの実装が提供され、この実装はサブクラスのメソッドでオーバーライドできます。次に例を示します。

class-id MyAbstractClass abstract.     
       01 myField  value 0 binary-long property. 
       
       method-id AbstractMethod abstract. *> no implementation
       end method.
 
       method-id NonAbstractMethod.       *> not abstract
       procedure division.
            set myField to 1   *> Default behavior, which can be overridden
       end method.       

       end class.

抽象クラスの非抽象メソッドでは、デフォルトの実装が提供され、この実装はサブクラスのメソッドでオーバーライドできます。

       class-id MySubClass inherits type MyAbstractClass. 

       method-id AbstractMethod override.
       procedure division.
           *> Subclass method implements abstract method
           display "myField is: " myField  *> displays 0
       end method.
       
       method-id NonAbstractMethod override.
       procedure division.
           *> Subclass method overrides method that is not abstract
           set myField to 6  
           display "myField is: " myField  *> displays 6
       end method.
       
       end class.

抽象クラスでメソッドを定義して使用するには、次のようにします。

• ABSTRACT キーワードを使用して抽象のメンバーを定義し、抽象以外のメンバーの場合は省略します。抽象メンバーは、抽象クラス内になければなりません。
• 抽象スーパークラスを継承する非抽象クラスには、スーパークラスのすべての抽象メンバーの実装を含める必要があります。ただし、サブクラス自体が抽象であることがあり、この場合、実装を含める必要はありません。
• スーパークラスのメソッドをオーバーライドするサブクラスのメソッドでは、キーワード OVERRIDE を使用する必要があります。
• 抽象メソッドは private にはなりません。public、protected、internal、または protected internal になります。

オーバーライド メソッド

オーバーライド メソッドは、同じ名前と署名の継承される仮想メソッドをオーバーライドするメソッドです。

たとえば、サブクラス Circle はスーパークラス Shape から継承します。どちらのクラスにも Draw メソッドが含まれます。Circle サブクラスの Draw メソッドは、Shape スーパークラスの Draw メソッドをオーバーライドします。

       class-id Shape.
       method-id Draw.
           display "let's draw a super shape"
       end method.
       end class.
              
       class-id Circle inherits type Shape.
       method-id Draw override.
           display "let's draw a circle"
       end method.
       end class.

オーバーライド メソッドを定義するには、次のようにします。

• method-id ヘッダーで OVERRIDE 変更子を指定します。
• メソッドの名前と署名が、継承されたクラスでオーバーライドされるメソッドと同じであることを確認します。

継承されたクラスでは最終メソッドをオーバーライドできません。仮想メソッド (最終として定義されるメソッド) のみをオーバーライドできます。

再定義メソッド

REDEFINE キーワードは、クラスから継承されるメソッドを非表示にする場合に使用されます。継承されるメソッドを非表示にするには、同じ名前を使用する派生クラスでそのメソッドを宣言して REDEFINE を指定します。

再定義メソッドは、スーパークラスのメソッドと同じ名前および署名のメソッドである点がオーバーライド メソッドと似ています。ただし、オーバーライド メソッドとは異なり、再定義メソッドは、その呼び出し方法に応じて実行する場合としない場合があります。メソッドが次のクラスにあるものとして定義される項目で呼び出されるとします。

• スーパークラス。その項目が実際にサブクラスのインスタンスを保持する場合でも、スーパークラスのメソッドは実行されます。
• サブクラス。サブクラスの再定義メソッドが実行されます。

たとえば、2 つのサブクラス Circle と Square があり、これらは Shapes スーパークラスから継承します。すべてのクラスに Draw メソッドがあります。Circle クラスの Draw メソッドは、Shapes スーパークラスの Draw メソッドをオーバーライドします。Square クラスの Draw メソッドは、Shapes スーパークラスの Draw メソッドを再定義します。

       class-id Shape.
       method-id Draw.
           display "let's draw a super shape"
       end method.
       end class.
              
       class-id Circle inherits type Shape.
       method-id Draw override.
           display "let's draw a circle"
       end method.
       end class.

       class-id Square inherits type Shape.
       method-id Draw redefine.
           display "let's draw a square"
       end method.
       end class.

Circle クラスと Square クラスは次のように呼び出すことができます。

       program-id. RedefineSampleProgram.
   
       01 myShape type Shape.  
       01 myCircle type Circle.  
       01 mySquare type Square.  
       
       procedure division.
           set myShape to new type Shape
           set myCircle to new type Circle
           set mySquare to new type Square
                      
           invoke myCircle::Draw   *> Circle Draw method is invoked
           invoke mySquare::Draw   *> Square Draw method is invoked
                                   *> Shape Draw method is hidden, redefined
 
           set myShape to myCircle *> Superclass instance is set to subclass 
           invoke myShape::Draw    *> Circle Draw method is invoked  
                                   *> as it overrides Shape Draw method

           set myShape to mySquare *> Superclass instance is set to subclass 
           invoke myShape::Draw    *> Shape Draw method is invoked as
                                   *> Square Draw method doesn't override it
       
       end program.

上記の呼び出しにより、次の出力が生成されます。

let’s draw a circle
let’s draw a square
let’s draw a circle
let’s draw a super shape

REDEFINE を使用する場所がもう 1 つあります。その場所は、スーパークラスのメソッドが FINAL として定義される場所であるため、オーバーライドはできません。この場合、REDEFINE を使用してスーパークラスのメソッドを非表示にすることができます。

最終メソッド

FINAL として宣言されるメソッドは、サブクラスでオーバーライドされません。このため、クラスはスーパークラスを継承できますが、特定のスーパークラスのメソッドは、サブクラスでオーバーライドされません。

たとえば、MySuperClass から継承するクラス MySubClass があるとします。MySuperClass には、1 つの最終メソッドと 1 つの仮想 (最終ではない) メソッドがあります。サブクラスは仮想メソッドをオーバーライドしますが、最終メソッドの継承やオーバーライドはできません。

       class-id MySuperClass.     
              
       method-id VirtualMethod. *> Methods are virtual by default
       procedure division.
           display "Virtual method in the superclass"
       end method.
                    
       method-id FinalMethod final. *> Final methods are not virtual
       procedure division.
           display "Final method in the superclass"      
       end method.
              
       end class.

サブクラスは次のように定義されます。

       class-id MySubClass inherits type MySuperClass.     

       method-id VirtualMethod override.
       procedure division.
           display "Overridden virtual method in the subclass"
       end method.

      * method-id FinalMethod override. 
      *>COBCH0954 Method 'FinalMethod' cannot OVERRIDE a nonvirtual method
              
       end class.

クラスは、次のように呼び出されます。

       program-id FinalOverrideSampleProgram.
       01 mySuper type MySuperClass.
       01 mySub type MySubClass.

       procedure division.
           set mySuper to new type MySuperClass
           invoke mySuper::FinalMethod()
           invoke mySuper::VirtualMethod()
           
           set mySub to new type MySubClass
           invoke mySub::VirtualMethod()

       end program.

上記のサンプル プログラムにより、出力が次のように生成されます。

Final method in the superclass
Virtual method in the superclass
Overridden virtual method in the subclass

最終メソッドはサブクラスでオーバーライドできませんが、サブクラスで再定義できます。