RE: is there a better way...

Don't dim the ds line, dim a field inside it.

On Tue, 9 Mar 2004 12:41:52 -0800 , "Hatzenbeler, Tim"
<thatzenbeler@xxxxxxxxxxxxx> said:
> 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.
> _______________________________________________
> 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.
> 
-- 
  
  michaelr_41@xxxxxxxxxxxxxx

-- 
http://www.fastmail.fm - I mean, what is it about a decent email service?