Re: RPGIV - Ignoring decimal precision rules

In case you hate math:

D WORK299Parse ds qualified
D num30 30s 0
D num2 29 30S 0

/free

work299Parse.num30 = work299;
#CYRP = work299Parse.num2;

"sjl" <sjl_abc@xxxxxxxxxxx> wrote in message
news:<mailman.11289.1244574789.23468.rpg400-l@xxxxxxxxxxxx>...

Please don't ask WHY I need to do this. I just need to know if it is
possible. I have a packed field named WORK299 that is defined as

29.9, and

another packed field named #CYRP that is defined as 2.0.

I know that I can use traditional RPG like this:
C Z-ADD WORK299 #CYRP

and I will get the 2 least significant digits of WORK299 into the

field

#CYRP (it will truncate the leading digits of WORK299).


Is it possible to achieve a similar result (truncation of leading

digits) in

free-form RPGIV?

When I tried:
#CYRP = %DECH(WORK299 : 2 : 0)

This statement works if the value of WORK299 is 99 or lower, but if

WORK299

contains a value greater than 99, I get MCH1210 - 'Receiver value too

small

to hold result'.

Thanks,
sjl