RE: Converting a string to a number in RPG -- RPG400-L

According to the IBM manual
http://publib.boulder.ibm.com/infocenter/iseries/v5r4/index.jsp?topic=/books/c092508602.htm

"The decimal point is optional. It can be either a period or a comma. "
However, you have a mixture, and in this case the comma does NOT represent
the decimal point, so it looks like commas are a no-no in this instance

Alan Shore
Programmer/Analyst, Distribution
E:AShore@xxxxxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill

rpg400-l-bounces@xxxxxxxxxxxx wrote on 12/29/2008 04:40:59 PM:

It just so happens that I had just written a clunky routine to
convert a character field to numeric when I saw these posts.
The value is LETOTL = ' 1,492.05'
So, I tried this instead:
Eval #Amount = %Dec(LETOTL:11:2)
Where #Amount is defined
D #Amount S 11 2
However, I got this error message:
A character representation of a numeric value is in error.

Is my problem with the comma?
We are at V5R4M0
Thanks,

Fran Denoncourt
Sr. Programmer/Analyst
Pinal County Treasurer's Office
Florence, AZ 85232
(520) 866-6404
Frances.Denoncourt@xxxxxxxxxxxxxxxxx
Receipt of this message does not grant you permission to send me
Unsolicited Commercial Email

On 12/29/2008 at 8:08 AM, in message <OF69A3F30F.2F65B4DE-

ON8525752E.0052F151-8525752E.005338D4@xxxxxxxxx>, <rob@xxxxxxxxx> wrote:
Check the V5R3 RPGLE Reference available via the infocenter at

http://publib.boulder.ibm.com/infocenter/iseries/v5r3/topic/books/sc092508.pdf

Since V5R3 is scheduled for destruction in a few months you may want to
download that.

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com

From:
"James HH. Lampert" <jamesl@xxxxxxxxxxxxxxxxx>
To:
"RPG programming on the IBM i / System i" <rpg400-l@xxxxxxxxxxxx>
Date:
12/28/2008 04:50 PM
Subject:
RE: Converting a string to a number in RPG
Sent by:
rpg400-l-bounces@xxxxxxxxxxxx

No, they take character strings alright. Using your original examples:

D DecField S 5 2

C Eval MyDecField = %Dec( '123.45' : 5 : 2 )
C Eval MyDecField = %Dec( ' 1.23' : 5 : 2 )
C Eval MyDecField = %Dec( '1.23' : 5 : 2 )
C Eval MyDecField = %Dec( '1.2' : 5 : 2 )
C Eval MyDecField = %Dec( '123' : 5 : 2 )

Passing a character string as the first argument to %dec doesn't even
compile. It just gives an "invalid argument" message. As I said, I did
actually try it.

It might work in a compiler more recent than the V4R2 compiler I tried it

on, but I didn't care to bother hooking up to the IBM test box while just

sticking my nose into the office on a Sunday.

If it does work on something post-V4R2, what revision does it come in at?

--
JHHL
--
This is the RPG programming on the IBM i / System i (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 / System i (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 / System i (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.