Re: XFoot with Qualified DS's

[MWalter@xxxxxxxxxxxxxxx]

That's how I do it except:

total += store(x).early;

Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com


|---------+----------------------------->
|         |           rob@xxxxxxxxx     |
|         |           Sent by:          |
|         |           rpg400-l-bounces@m|
|         |           idrange.com       |
|         |                             |
|         |                             |
|         |           11/25/2003 08:23  |
|         |           AM                |
|         |           Please respond to |
|         |           RPG programming on|
|         |           the AS400 /       |
|         |           iSeries           |
|         |                             |
|---------+----------------------------->
  
>------------------------------------------------------------------------------------------------------------------------------|
  |                                                                             
                                                 |
  |       To:       RPG programming on the AS400 / iSeries 
<rpg400-l@xxxxxxxxxxxx>                                               |
  |       cc:                                                                   
                                                 |
  |       Subject:  Re: XFoot with Qualified DS's                               
                                                 |
  
>------------------------------------------------------------------------------------------------------------------------------|




Would that be
for x = 1 to %elem(store);
  total=total+store(x).early;
endfor;

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin




Hans Boldt <boldt@xxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
11/25/2003 08:12 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Fax to

Subject
Re: XFoot with Qualified DS's






Bartell, Aaron L. (TC) wrote:

> Just got on a machine where I finally get to DIM qualified data
structures
> and I love it!  Is there an easy way to total a column of an array?
Here's
> an example:
>
>      D Store           DS                  Qualified Dim(9999)
>      D  nbr                           9S 0
>      D  early                         9S 0
> ...
>
> I would like it if I could just total 'early' by doing something like
this.
>
> total = %XFoot(Store(*ALL).early);
>
>
> TIA for any input,
> Aaron Bartell
>

Aaron: Actually, a couple of months ago I added a suggestion to our
"proposed enhancements" file that would cover things like that.

But in the meantime, you'll just have to sum up lists of numbers like
this the old-fashioned way, by using a FOR loop.

Cheers! Hans


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


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