RE: XFOOT

For testing, try xfooting the array into a 13,2 result field, then
display the results somehow.  Odds are you are truncating off the high
end digits of your current result field.

Regards,
Andy Nolen-Parkhouse

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of fkany@averittexpress.com
> Sent: Thursday, October 24, 2002 3:02 PM
> To: rpg400-l@midrange.com
> Subject: 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.
>
>
>
>
> _______________________________________________
> 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.