Re: xfoot a data structure

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

That works Booth - but it doesn't meet the OP's original requirement that it be a DS array. You're using a group field defined as an array.


On 2013-09-04, at 9:03 PM, Booth Martin <booth@xxxxxxxxxxxx> wrote:

> fwiw, this code:
>
>      D                 ds
>      D data                                dim(100)
>      D  numbr1                       11s 2 inz(1) overlay(data)
>      D  numbr2                       11s 2 inz(2) overlay(data: *next)
>       /FREE
>           nField = %xfoot(numbr1);
>           wString =  %editc(nField: 'N');
>           dsply wString;
>           nField = %xfoot(numbr2);
>           wString =  %editc(nField: 'N');
>           dsply wString;
>
> gave me this result:
>  DSPLY       100.00
>  DSPLY       200.00
>
> On 9/4/2013 4:25 PM, Raul A. Jager W. wrote:
> > I have a qualified data structure array, with numeric subfields, like
> > this
> >
> > data            ds                  dim(100) qualified
> > numbr1              11 2
> > numbr2              11 2
> >
> > I can refer to the elements as   dat(i).numbr1, fine
> > Now I wnt to xfoot the 100 numbr1, is it possible?
>
> -- 
> Booth Martin
> www.martinvt.com
> (802)461-5349
> Skype: booth.martin
>
> Remember, there's a big difference between kneeling down and bending 
> over. -- Frank Zappa
> -- 
> This is the RPG programming on the IBM i (AS/400 and 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.

Jon Paris

www.partner400.com
www.SystemiDeveloper.com