クラス

クラスは、そのクラスから作成されるオブジェクトインスタンスのデータメンバーと関数メンバーを定義します。マネージ COBOL により、クラスは 1 つ以上の他のクラスから継承できます。

コンテキスト：

    プログラムの構造
        タイプ

class-specification

class-header

例

class A.
01 sField string.
Method doStuff.
   ...
end method.

class nestedClass.
...
end class.

end class.

コアのサンプルも参照してください。このサンプルは、[スタート > すべてのプログラム > Micro Focus Enterprise Developer > Samples] の COBOL for JVM の下にあります。

クラスヘッダのキーワード

ABSTRACT: 基本クラスとしてのみ使用される予定のクラスを宣言します。抽象クラスは、不完全なクラスと考えられます。不完全なクラスがそのメンバーにアクセスするには継承される必要があります。
FINAL: 定義が完全なクラスを宣言します。クラスの FINAL 変更子は、クラスでサブクラスを使用できないことを暗示します。
STATIC: インスタンス化できないクラスを宣言します。
PARTIAL: 宣言が、宣言全体を構成する 2 つ以上の部分のいずれかであることを示します。部分クラスを使用すると、クラス宣言を論理部分に分割することができます。
INHERITS: クラスが継承されることを定義します。type-specifier は、継承されるクラスを指定します。継承を使用すると、クラスに、継承されるクラスタイプのメンバーを暗黙的に含めることができます。
IMPLEMENTS: インターフェイスが実装されることを示します。type-specifier は、実装されるインターフェイスを指定します。

抽象クラス

抽象クラスは、インスタンス化できないクラスですが、継承のみは可能です。このため、抽象クラスは、通常基本クラスとして使用されます。抽象クラスのメンバーは、抽象クラスでのみ宣言され、実装はできません。抽象クラスは継承される必要があるため、抽象クラスの宣言時に FINAL 変更子は使用できません。

抽象クラスには、通常抽象メソッドが含まれます。このメソッドは、インターフェイスのメソッド宣言と同様に、クラス宣言では実装できません。抽象クラスはインスタンス化できないため、抽象クラスを継承するサブクラスでは、抽象クラスで定義される抽象メソッドの実装を提供する必要があります。抽象メソッドを含めることができるのは、抽象クラスのみです。

抽象クラスは、クラスからオブジェクトを作成しない場合に役立ちます。サブクラスを使用して実装を完了する際に、クラスを抽象として宣言します。

非抽象クラスがインターフェイスを介して抽象クラスから派生する場合、継承されたクラスは、抽象クラスのすべての抽象メンバーを実装する必要があります。次の例に示すように、派生したクラスの非抽象メンバーに抽象クラスのメンバーを実装する場合、OVERRIDE を使用します。

       class-id. Animal abstract.
       method-id MakeNoise abstract.
      *> 実装は許可されない
       end method.

       end class.

       class-id Dog inherits type Animal.
      *> Animal クラスの MakeNoise メソッドをオーバーライドする
       method-id MakeNoise override.
           display "Woof!"
       end method.
       end class.

この例では、抽象クラス Animal には、抽象メソッド MakeNoise が含まれます。非抽象クラス Dog は抽象クラス Animal から継承するため、OVERRIDE 変更子を使用して MakeNoise の実装を提供する必要があります。

抽象クラスには、抽象メソッドに加えて非抽象メソッドも含めることができます。

抽象クラスを継承するクラスは、継承されたクラスのメンバーの実装を提供しない場合、抽象クラスとしても宣言される必要があります。

最終クラス

最終クラスは継承できません。このため、最終クラスのメソッドはオーバーライドできません。

クラスを FINAL で宣言すると、クラスの破損防止に役立ちます。また、サブクラスが目的の動作をオーバーライドすることで目的のクラスの機能を変更してしまう危険を防ぎます。

ネストされたクラス

ネストされたクラスは、次の構文を使用して、包含クラス内の静的フィールド、プロパティ、メソッドにアクセスできます。

self::memberName

ネストされたクラス定義のオプションの句 SHARING PARENT を使用すると、ネストされたクラスは、包含クラスのインスタンスフィールド、プロパティ、メソッドにアクセスできます。

    class-id ContainingClass.
    ...
    class-id Nested1.
        ...
    end class.
    class-id Nested2 sharing parent.
       ...
    end class.
    end class.

SHARING PARENT を使用するネストされたクラス

SHARING PARENT 句を使用するネストされたクラスは、囲みクラスのインスタンスメソッド内からのみインスタンス化できます。これらのクラスは、そのインスタンスメンバーが private であっても、self:: 構文を使用して包含クラスからインスタンスメンバーにアクセスできます。

このようなネストされたクラスには、その包含クラスのインスタンスへの暗黙参照が含まれます。ネストされたクラスでは、この参照を使用して、囲みクラスのインタンスメンバーにアクセスします。つまり、外部で保持される内部クラスへのすべての参照のガベージが収集されるまで、包含クラスインスタンスのガベージは収集されません。

次に例を示します。

    class-id ContainingClass.
    01 companyName string value "Micro Focus".

    method-id instance1.
    01 o type Nested2.
        set o to new Nested2
        ...
    end method

    class-id Nested2 SHARING PARENT.
    method-id method2
        display self::companyName
    end method.
    end class.

    end class.

SHARING PARENT を使用しないネストされたクラス

SHARING PARENT 句を使用せずに定義されるネストされたクラスは、public、private または internal として宣言できます。指定された可視性に応じて、これらのクラスは、包含クラスやインスタンスメソッドからではなく、コンテキストからインスタンス化できます。また、self:: 構文を使用して包含クラスのインスタンスメンバーにアクセスできません。ただし、明示的なオブジェクト参照を使用する場合のみアクセスできます。

クラス