COBCH1616 入れ子のクラスの中でのみ使用可能である

一部の構文はネストされたクラスに対してのみ有効であり、その他のクラスからは削除する必要があります。たとえば、SHARING PARENT 指定は、包含クラスでは使用できません。

...
end class.

class-id myContainingClass SHARING PARENT	*> this is incorrect usage
  01 myContainingStr string value "Hello Managed COBOL".
  ...
  class-id myNestedClass SHARING PARENT		*> this is correct usage
    display self::myContainingStr.
  end class.
...
end class.