Parameters must be passed by value, not by reference, when used in iterators, properties and indexers.
class-id SimpleIndexer. 01 myArray string occurs 100. indexer-id string. procedure division using by reference i as binary-long. *> i must be passed by value getter. set property-value to myArray[i] setter. set myArray[i] to property-value end indexer. end class.