To access object data in a containing class, the nested class must specify the SHARING PARENT phrase.
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.