RE: The target for a numeric operation is too small to hold the r esul t (C G D F) -- RPG400-L

you might have something here...  I used 17,6 because our Infinium system
uses it, so I might try scaling it back a little...  I went to the div op,
for a quick fix, but I would prefer to keep it using the eval...

Tim

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [SMTP:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Boer, Sacha
> Sent: Friday, July 16, 2004 1:35 PM
> To:   RPG programming on the AS400 / iSeries
> Subject:      RE: The target for a numeric operation is too small to hold
> the r esul t (C G D F)
> 
> Hi Tim, I'm not quite sure who posted the original question or whether
> it's been answered yet, but please bear in mind that up to 5.1 you numeric
> limit is 30,15 (from the top of my head) and as of 5.2 I believe they
> stretched it to 60, something.
> Anyway, your division of 17,6 by 17,6 would need a theoretical resultfield
> of 34,12. 
> OS400 will create a "workfield" for you when you code the entire
> calculation into one statement. 34.12 exceeds the limits so here you'll
> get the error. 
> 
> You should however be okay if:
> 1) you drop to 15,6 for your fields (or at least the ones used in the
> division)
> 2) create your own resultfields for each individual part of the
> calculation, preventing OS400 to create its own.
> 
> Good luck!
> Sacha
> 
> 
> -----Oorspronkelijk bericht-----
> Van: mwalter@xxxxxxxxxxxxxxx [mailto:mwalter@xxxxxxxxxxxxxxx] 
> Verzonden: vrijdag 16 juli 2004 22:07
> Aan: RPG programming on the AS400 / iSeries
> Onderwerp: RE: The target for a numeric operation is too small to hold the
> r esul t (C G D F)
> 
> 
> Absolutely. I've gotten that error on fields on the right side of an
> assignment operator.
> 
> Thanks,
> 
> Mark
> 
> Mark D. Walter
> Senior Programmer/Analyst
> CCX, Inc.
> mwalter@xxxxxxxxxx
> http://www.ccxinc.com
> 
> 
>  
> 
>                       "Hatzenbeler, Tim"
> 
>                       <thatzenbeler@clin        To:       "'RPG
> programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>            
>                       itech.net>                cc:
> 
>                       Sent by:                  Subject:  RE: The target
> for a numeric operation is too small to hold the r esul t (C G 
>                       rpg400-l-bounces@m         D F)
> 
>                       idrange.com
> 
>  
> 
>  
> 
>                       07/16/2004 03:55
> 
>                       PM
> 
>                       Please respond to
> 
>                       RPG programming on
> 
>                       the AS400 /
> 
>                       iSeries
> 
>  
> 
>  
> 
> 
> 
> 
> 
> I did try the (h) and it still failed.....  could the error be in the
> (g_g_txamount-linetax) part, before it tries to divide?
> 
> Tim
> 
> > -----Original Message-----
> > From:            rpg400-l-bounces@xxxxxxxxxxxx
> [SMTP:rpg400-l-bounces@xxxxxxxxxxxx]
> > On Behalf Of rick.baird@xxxxxxxxxxxxxxx
> > Sent:            Friday, July 16, 2004 12:27 PM
> > To:        RPG programming on the AS400 / iSeries
> > Subject:         Re: The target for a numeric operation is too small to
> hold
> > the resul t (C G D F)
> >
> >
> > Tim,
> >
> > If you're dropping decimals, use half adjust (h) op extender - eval (h)
> > p_P.... etc.
> >
> > If you're dropping higher order digits (result is larger than
> > 99,999,999,999.999999) then you have to monitor for the error.
> >
> > Rick
> >
> > -------Original Message---------
> >              I'm getting this error....  Is there an H spec to remove
> it,
> > or do I
> > use an error code to trap it.?
> >
> >              The target for a numeric operation is too small to hold the
> > result
> > (C G D F)
> >
> >              c                   eval      p_P_tax_var  =
> >
> >              c
> > (g_g_txamount-linetax)/linetax
> >
> >
> >              All four of these variables, are defined ast 17,6  So I'm
> ok,
> > if I
> > have to drop accuracy after 7 places..
> >
> >              Thanks, tim
> >
> >
> > --
> > 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 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 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.
> --
> 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 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.