含んでいるクラス内のオブジェクト データにアクセスするには、ネストされたクラスは SHARING PARENT を指定する必要があります。
class-id myContainingClass. working-storage section. 01 i1 binary-long VALUE 1. 01 i2 string. class-id myNestedClass1. method-id myMethod1. set i2 to "abc". *> this is incorrect end method. end class. class-id myNestedClass2 sharing parent. method-id myMethod2. set i1 to 123. *> this is correct end method. end class. end class.