[progress Communities] [progress Openedge Abl] Forum Post: Re: Iterate Openedge Collections...

[Peter Judge]

You have to do it ‘old school’ collection style - get an iterator - loop over the iterator - HasNext() + Next() A simple example from the URI class method public integer GetQueryNames( output pcNames as character extent ): define variable iCount as integer no-undo . define variable oIterator as IIterator no-undo . assign iCount = this-object :QueryMap: Size oIterator = cast ( this-object :QueryMap:KeySet, IIterable):Iterator() . if iCount gt 0 then assign extent (pcNames) = iCount. assign iCount = 0 . do while oIterator:HasNext(): assign pcNames[iCount + 1 ] = oIterator: Next ():ToString() iCount = iCount + 1 . end . return iCount. end method .

Continue reading...