× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Hi Scott and thanks for you time.

Of course your suggestion solves the problem (as Jon or my solution did it).

Another way to force the cast (in this case it uses packed) is:

ld s 10i 0
x s 10u 0
/Free
ld = x - 1,0;


This is from RPG reference manual (%LOOKUP):

"If no value matches the specified condition, zero is returned. The value
returned is
in unsigned integer format (type U)."

The (final) answer is, as always, in the manual:

Format of Numeric Intermediate Results
For binary operations involving numeric fields, the format of the
intermediate
result depends on the format of the operands.
For the operators +, -, and *:
- If at least one operand has a float format, the result is float format.
- Otherwise, if at least one operand has packed-decimal, zoned-decimal, or
binary
format, the result has packed-decimal format.
- Otherwise, if at least one operand has integer format, the result has
integer
format.
- Otherwise, the result has unsigned format.
- For numeric literals that are not in float format:
– If the literal is within the range of an unsigned integer, the literal is
assumed
to be an unsigned integer.
– Otherwise, if the literal is within the range of an integer, the literal
is assumed
to be an integer.
– Otherwise, the literal is assumed to be packed decimal.

Thanks

--
Marco Facchinetti

Mr S.r.l.

Tel. 035 962885
Cel. 393 9620498

Skype: facchinettimarco

2017-02-26 9:04 GMT+01:00 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


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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.