RE: is there a better way...

Were on version 5.1  and I tried adding  a dim on a DS, but seu didn't like
it...

d chargegroup     ds                  dim(20)              
d  chargedesc                   30                         
d  chargetotal                  17  2                      

> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx
> [SMTP:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
> MWalter@xxxxxxxxxxxxxxx
> Sent: Tuesday, March 09, 2004 12:20 PM
> To:   Midrange Systems Technical Discussion
> Subject:      Re: is there a better way...
> 
> 
> sounds like a prime candidate for a array datastructure to me. If you're
> on
> a release that supports it. I think it started with V5R1. Works like a
> MODS
> without the OCCURS opcode or bif.
> 
> Thanks,
> 
> Mark
> 
> Mark D. Walter
> Senior Programmer/Analyst
> CCX, Inc.
> mwalter@xxxxxxxxxx
> http://www.ccxinc.com
> 
> 
>  
> 
>                       "Hatzenbeler, Tim"
> 
>                       <thatzenbeler@clinit        To:       "'Midrange
> Systems Technical Discussion'" <midrange-l@xxxxxxxxxxxx>
> 
>                       ech.net>                    cc:
> 
>                       Sent by:                    Subject:  is there a
> better way...
> 
>                       midrange-l-bounces@m
> 
>                       idrange.com
> 
>  
> 
>  
> 
>                       03/09/2004 02:55 PM
> 
>                       Please respond to
> 
>                       Midrange Systems
> 
>                       Technical Discussion
> 
>  
> 
>  
> 
> 
> 
> 
> 
> 
> I'm reading a PO, and there are various charges through each line of
> detail... And I was asked to group the charges at the bottom of the
> page...
> 
> line 1
>      tax 8.96
>      frt 12.45
>      delivery 45.67
> line 2
>      tax 9.12
> line3
>      frt 9.23
> 
> 
> and at the bottom of the page, i need
>      tax xx.xx
>      frt xx.xx
>      delivery xx.xx
> 
> so I was was thinking about using a mods to do this... With a simple add,
> find, update procedure...  But I was wondering, if there were better
> arrary
> handling features in the latest  versions of rpg, to handle this...
> d chargegroup     ds                  occurs(999) inz
> d  chargedesc                   30
> d  chargetotal                  17  2
> 
> but, i'm not allowed to use embedded sql grouping / sum features... It has
> to be all old fashioned rpg code...
> 
> I can't hard code these charge types, they can change anytime accounting
> feels like it...
> 
> Thanks, tim
> 
> This e-mail message, including any attachments, is for the sole use of the
> intended recipient(s) and may contain confidential or privileged
> information.  Any unauthorized review, use, disclosure or distribution is
> prohibited.  If you are not the intended recipient, please contact the
> sender by reply e-mail and destroy the message.
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
> 
> 
> 
> 
> 
> 
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
> 
This e-mail message, including any attachments, is for the sole use of the
intended recipient(s) and may contain confidential or privileged
information.  Any unauthorized review, use, disclosure or distribution is
prohibited.  If you are not the intended recipient, please contact the
sender by reply e-mail and destroy the message.