Re: Sqlrpgle problem

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

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