Oops. Overlooked the part about wanting it to truncate. Sorry.....
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Roger Harman
Sent: Thursday, January 10, 2013 4:19 PM
To: 'RPG programming on the IBM i (AS/400 and iSeries)'
Subject: RE: truncating a decimal value in /Free
Have you tried wrapping it in a MONITOR group?
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of sjl
Sent: Thursday, January 10, 2013 3:45 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: truncating a decimal value in /Free
FieldA is defined as 29.4 and FieldB is defined as 9.0. The following
calculation bombs on "Receiver value too small to hold the result."
Eval FieldB = FieldA;
I know that I can switch back into fixed format and use:
Z-ADD FIeldA FieldB
and the value of FieldB will contain a truncated value if FieldA is too
large to fit in FieldB. However, is there a way to accomplish this in
free-form RPG?
I know that this sounds stupid, and please do NOT ask me why I need to do
this.
I was told that if the value won't fit, truncate it, and I just don't want
to junk up my pretty free-form program with fixed-form code.
- sjl
--
This is the RPG programming on the IBM i (AS/400 and 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 IBM i (AS/400 and 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.
midrange.com
