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.



Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.

                      "Hatzenbeler, Tim"                                        
                      <thatzenbeler@clinit        To:       "'Midrange Systems 
Technical Discussion'" <midrange-l@xxxxxxxxxxxx>                    
            >                    cc:                           
                      Sent by:                    Subject:  is there a better 
                      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
     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,
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.