Re: Sqlrpgle problem

Hi Marco,

Not sure if you discovered the answer. I looked over the replies you received, and most of them were rather confused (to put it mildly.)

My guess is that this has to do with the "intermediate result". If you don't know what that is, think of it this way: Internally, RPG needs to use a temporary variable to store the result of one thing in an expression so that it can then use that result as part of the rest of the expression.

Inside RPG, it will do something like this:

intermediate_result = %lookup(*blanks:fieldord)
intermediate_result = intermediate result - 1
ld = intermediate_result

Hopefully that makes sense... the intermediate result is a temporary variable used to link all of your calculations together into one expression.

My guess is that RPG is making the intermediate result an unsigned integer. PROBABLY because the output of %LOOKUP is an unsigned integer. So RPG makes the intermediate result unsigned -- and when it tries to subtract one from it, you get the MCH1210.

If I'm right, you can fix the problem by doing this:

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

This would solve the problem because it forces the output of %Lookup to be a signed integer (due to the %int). Since a signed integer can be negative, it will solve the problem.

Let me know if that helps...





On 2/25/17 12: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