re: Strange result with exponents...

I thought I posted those ptf's.  Sorry if I didn't.

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





Bryan Dietz <BDietz@xxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
04/20/2004 04:08 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG400-L@xxxxxxxxxxxx
cc

Subject
re: Strange result with exponents...










Not to start this back up but I noticed that IBM has PTF'd this
issue...MF32434

http://www-912.ibm.com/a_dir/as4ptf.nsf/b3cb9d42f672b70f86256739004afa0f/e499f0e85b43791f86256e6800529943?OpenDocument


----------------------------
Bryan Dietz
===================

Someone posted this question on the iSeries Network's RPG forum, and it
stumped me, so I thought I'd bring it here and see what you guys think.

I'm running the following code.   The two numbers, VAR1 and VAR2 should
have the same results, shouldn't they?

     d VAR2            S             30p 0
     d VAR1            s             30p 0

     c                   eval      VAR2 = (16**15)
     c     VAR2          dsply

     c                   eval      VAR1 = (16**14)
     c                   eval      VAR1 = VAR1 * 16
     c                   dsply                   VAR1

     c                   eval      *inlr = *on

The result of running this program looks like this:

DSPLY             1152921504606846980
DSPLY             1152921504606846976

So, my question is, what's going on here?   And, why would there be a
difference of 4?!

As far as I can tell, this only happens on V5R2.  Can anyone confirm that
it doesn't happen on older releases?





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