Alan,
The %DEC() bif converts character to numeric. For example:
numericField = %dec(characterField:9:0)
9 = the precision (field length)
0 = decimal positions
But I would wrap that puppy in a MONITOR just in case invalid numeric data is ever in that character field.
Jerry C. Adams
IBM System i Programmer/Analyst
B&W Wholesale
office: 615-995-7024
email: jerry@xxxxxxxxxxxxxxx
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Alan Shore
Sent: Monday, August 04, 2008 3:18 PM
To: RPG programming on the AS400 / iSeries
Subject: MOVEL in freeform
Afternoon everyone
I have a program that uses the following code
MOVEL character-field numeric field
so that if character-field contains 00000000M the numeric field contains
000000004- (minus 4)
What is the freeform equivalent?
I have
numeric-field = %dec(character-field:9:0);
with numeric-field being defined as
D numeric-field s 9s 0
my program errors out with
Message ID . . . . . . : RNX0105
Message . . . . : A character representation of a numeric value is in
error.
Cause . . . . . : A conversion from character to numeric found data that
was
not valid.
Recovery . . . : Correct the numeric data.
If anyone can help, or point me in the correct direction, that would be
great
Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxxxxx
P:(631) 244-2000 ext. 5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
--
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.
midrange.com
