Re: Convert Character to Numeric

Jeff,

So how about using a data structure to do the conversion for you? Something like the following.


D nbrToMoveDS DS
D fixedLenNbr 20S 2
D fixedLenChar 20A overlay(fixedLenNbr:1)
D char18Value 18A overlay(fixedLenChar:1)
D char2Value 2A overlay(fixedLenChar:*NEXT)

fixedLenNbr = 0;

x = ( %scan('.':datafield:1) - 1 ); // Find decimal position
y = ( 18 - x) + 1;

%subst(char18Value:y:x) = %subst(datafield:1:x);

x = x + 2;

char2Value = %subst(datafield:x:2);

And fixedLenNbr should be 123.45.




-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff Young
Sent: Wednesday, March 02, 2011 11:14 AM
To: RPG programming on the IBM i / System i
Subject: Re: Convert Character to Numeric

The data is comming from a data file and is in the format 123.45 with the
decimal point in the data.

Thanks,


Jeff Young
Sr. Programmer Analyst
IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions V5R2
IBM Certified Specialist- e(logo) server i5Series Technical Solutions
Designer V5R3
IBM Certified Specialist- e(logo)server i5Series Technical
Solutions Implementer V5R3









________________________________
From: "Rick.Chevalier@xxxxxxxxxxxxxxx"<Rick.Chevalier@xxxxxxxxxxxxxxx>
To: rpg400-l@xxxxxxxxxxxx
Sent: Wed, March 2, 2011 2:04:07 PM
Subject: RE: Convert Character to Numeric

Jeff,

There are two recent threads that relate to this topic. They should be in the
archives. One is cvthc not converting all values. I deleted the other thread
from my folder so I can't get the topic for you right now.

How is the data you are receiving formatted? Signed, packed? I know it's in a
character field, I'm looking for the representation.

Rick

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On
Behalf Of Jeff Young
Sent: Wednesday, March 02, 2011 12:48 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Convert Character to Numeric

I have a character field where the number of digits and decimal places is stored
in a file.
I need to convert this to a fixed length numeric field that is defined in my
program.
It appears that the %Dec BIF required a literal or a value that is known at
compile time.
What is the best way to do this?

Thanks,

Jeff Young
Sr. Programmer Analyst