Re: DEC CONVERSION ERROR

[Booth Martin <booth@xxxxxxxxxxxx>]

Can you use a multiplier instead?

if  big8/0 < 100
eval(r)  small4/2 = big8/0
else
whatevef
endif





Jay Vaughn wrote:
> now this one is giving me trouble where there is a decimal point involved...
>
>
> The target for a numeric operation is too small to hold the result.
>
> MMSS = %DEC(%SUBST(%EDITC(WKSCRTMIN :'X'):5:4):4:2);
>
> MMSS = 4s2
>  
> Thanks,
>  
> Jay Vaughn
> Senior I5 Programmer/Analyst
> RateWatch
> (P) 251.209.8968
> www.rate-watch.com
>
>
> -----Original Message-----
> From: "Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxxxxxxxxx>
> To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> Date: Thu, 10 Jan 2008 11:21:11 -0600
> Subject: RE: DEC CONVERSION ERROR
>
>
> I meant to say "your code will fail or become unpredictable if value of
> WKSCRTMIN is less than or equal to 999 .
>  
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lim Hock-Chai
> Sent: Thursday, January 10, 2008 11:14 AM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: DEC CONVERSION ERROR
>
> %char will suppress leading 0.  Your code will fail or become
> unpredictable if value of WKSCRTMIN is less than 9999.  You probably
> want to consider changing the statement to be like below:
> HHHH = %DEC(%SUBST(%EDITC(WKSCRTMIN :'X'):1:4):4:0); 
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jay Vaughn
> Sent: Thursday, January 10, 2008 10:20 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: DEC CONVERSION ERROR
>
> The target for a numeric operation is too small to hold the result.
>
> HHHH = %DEC(%SUBST(%CHAR(WKSCRTMIN):1:4):4:0);
>
> HHHH = 4P0 AND WKSCRTMIN = 8P0
>
> Can't figure out why I am getting this error.
>
>
>
>  
> Thanks,
>  
> Jay Vaughn
> Senior I5 Programmer/Analyst
> RateWatch
> (P) 251.209.8968
> www.rate-watch.com
> --
> 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.
>
>