COBCH1555 含んでいるクラス内に宣言されたオブジェクトデータにアクセスできない

含んでいるクラス内のオブジェクト データにアクセスするには、ネストされたクラスは 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.