COBCH1608 ここでは USAGE は使用できない

一部の USAGE 型は、手続き部ヘッダーでは使用できません。次に例を示します。

class-id myClass1.
      
indexer-id string.
procedure division using i1 as COMP-3. *> this is incorrect
    getter.
    set property-value to i1.
end indexer.
end class.

class-id myClass2.
indexer-id string.
procedure division using i2 as binary-double. *> this is correct
    getter.
    set property-value to i2
end indexer.
end class.