Re: Looking for free format equivalent

On 2019-05-02 7:22 PM, Roger Harman wrote:

AFAIK, %lookup() does a linear search.

I assume you mean a binary search for the %lookupXX() functions *only*.

From the RPGLE Reference: "Since a binary search is used by the %LOOKUPxx built-in functions..."

%lookup does a binary search too, if the array is sequenced. "%lookupXX" includes the plain %lookup().

Test: This program displays 0 (when the array is not sorted) then 22 (when it is sorted).

dcl-ds ds;
arr char(1) dim(26) ascend;
end-ds;
dcl-s p int(10);
ds = 'zyxwvutsrqponmlkjihgfedcba';
dsply ( %lookup('v' : arr));
sorta arr;
dsply ( %lookup('v' : arr));
return;