Re: Sqlrpgle problem

On Feb 25, 2017, at 2:57 PM, Mark S Waterbury <mark.s.waterbury@xxxxxxxxxxxxx> wrote:

Hi, Jon:

Thanks for clarifying that. (I should have referred to my RPG IV reference before replying.)

Mark

On 2/25/2017 2:53 PM, Jon Paris wrote:
I thought that the problem was the Int definition - but that just shows that my brain is not working! Duh - so OP please ignore my earlier response.


As to Mark's comment - I'm not sure about that. %Lookup (unlike the old LOOKUP opcode) _can_ use a binary search but I think it will only do so if Ascend or Descend is specified for the array definition.

I'm not sure if this is a compiler bug or if it relates to a "feature" of intermediate results that I am not familiar with - hopefully Barbara can clarify.

If you separate the subtraction from the %Lookup return value it works fine. %Lookup returns zero as it should.

It is not clear to me why the OP wants -1 when zero is a valid "not there" response and of course all the lookup results will be one less than they should be but I assume he has his own reason. So rewriting the code like this:

ld = %lookup(*blanks:fieldord);
ld -= 1;

Works just fine.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: http://amzn.to/2dEadiD