RE: Eval Absolute Value of Negative# into Unsigned Int

Which makes absolute sense.
I feel bad about not figuring that one out on my own.
Thanks!

Kurt Anderson
Application Developer
Highsmith Inc

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Barbara Morris
Sent: Tuesday, May 30, 2006 4:28 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Eval Absolute Value of Negative# into Unsigned Int

Kurt Anderson wrote:

D NumWrong 3u 0
D Count1       3u 0    Dim( 5 )
D Count2       3u 0    Dim( 5 )

// NumWrong = 0
// Count1(i) = 8
// Count2(i) = 29

NumWrong += %uns( %abs( Count1(i) - Count2(i) ) ); // or NumWrong += 
%abs( Count1(i) - Count2(i) );

Receiver value too small to hold result.

The intermediate result of subtraction between unsigned values is an
unsigned value. 
http://publib.boulder.ibm.com/infocenter/iseries/v5r4/topic/books_web/c0
925086550.htm#Header_712

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

Try this
   NumWrong += %abs( Count1(i) - %int(Count2(i)));

--
This is the RPG programming on the AS400 / 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.