Re: Convert Character to Numeric

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

Gary,

You can accomplish the same thing in one line of code:

   fixedLenNbr = %dec( datafield : 20: 2);



On 3/2/2011 2:25 PM, Monnier, Gary wrote:
> 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