COBCH1702 CONSTANT 項目 '<フィールド 1>' の値に循環定義が含まれる

VALUE 句を変更して、VALUE 句自身を参照しないようにする必要があります。

次の例では、クラス a の 3 つのすべてのフィールドに循環定義が含まれています。

class-id a.
01 n1 binary-long PUBLIC CONSTANT VALUE TYPE a::n2.    
01 n2 binary-long PUBLIC CONSTANT VALUE TYPE a::n1 + 1.
01 i1 binary-long PUBLIC CONSTANT VALUE TYPE b::i1.
method-id main STATIC.
 display n1
 display n2
end method.
end class.

class-id b.
01 i1 binary-long PUBLIC CONSTANT VALUE TYPE c::i1.
end class.

class-id c.
01 i1 binary-long PUBLIC CONSTANT VALUE TYPE a::i1.
end class.