Re: Sqlrpgle problem

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

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

Marco:

This will never work because, from what I can see in the "dump", those values in that array are not "sorted" ? =-O

In ILE RPG IV, %lookup requires the entries in the lookup array to be sorted, because it uses a binary search algorithm "under the covers."

HTH,

Mark S. Waterbury

:> On 2/25/2017 1:59 PM, Marco Facchinetti wrote:

Hi, I'm receiving an MCH1210 at line 15733:

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

the dumpl clearly state that the %lookup should return 0 so LD supposed to
be -1.

DUMP ILE RPG
FIELDORD CHAR(10) DIM(9)
(1) 'TFCDPROPAE'
(2) 'TFCDCOMUNE'
(3) 'ABCDPAESE '
(4) 'ARCDCABINA'
(5) 'FTCDUTENTE'
(6) 'ARCDQUTOF1'
(7) 'ARCDQUTOF2'
(8) 'ARCDQUTOF3'
(9) 'W9PERIODO '

LD INT(10) 0 '00000000'X

We are at 7.2.

Any idea? I cannot extend the array, the only way is moving it in a longer
one but it should work even with 9 elements.

TIA
--
Marco Facchinetti

Mr S.r.l.

Tel. 035 962885
Cel. 393 9620498

Skype: facchinettimarco

--
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