RE: XFOOT

There are 9000 Elements in the Array and each element is 9, 2.

Arrays
E
$RA                           9000              9      2
E
$RB                           9000              9      2

J = 9000
*Sum up Array elements and place in last element of Array
C
XFOOT $RA                                    $RA, J
C
XFOOT $WA                                   $WA,J





Buck Calabro <Buck.Calabro@commsoft.net>@midrange.com on 10/24/2002
01:53:27 PM

Please respond to rpg400-l@midrange.com

Sent by:  rpg400-l-admin@midrange.com


To:   rpg400-l@midrange.com
cc:

Subject:  RE: XFOOT


>It seems that the XFOOT operation I'm using
>is not working.  It places a value a lot lower
>in the result field than what it should be.
>I have pasted some of the code in this email.

As you probably saw, the pcx images were stripped by the mail program.  But
if I can hazard a guess, is the result field of the XFOOT big enough to
hold
the final result?  In other words, are you trying to hold 1,000 in a 3/0
field?
  --buck
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.