class-id MyClass.
working-storage section.
01 volume binary-long private.
property-id Volume binary-long.
getter.
set property-value to volume
setter.
if property-value < 0
set volume to 0
else
set volume to property-value
end-if
end property.
end class.
property-id PropertyReadOnly string.
getter.
set property-value to field-5
end property.
プロパティのサンプルも参照してください。このサンプルは、[スタート > すべてのプログラム > Micro Focus Enterprise Developer > Samples] の COBOL for JVM の下にあります。
PROPERTY-ID で指定されたプロパティには、GETTER キーワードと SETTER キーワードをそれぞれ使用して、取得アクセス機構と設定アクセス機構のいずれか (あるいは両方) を含める必要があります。コンパイラは、get_ メソッドと set_ メソッドを適宜生成します。
COBOL プログラム内でフィールドをプロパティとして公開するには、次の 2 つの方法があります。