Re: Character to Numeric

The AS/400 Snippets site has an ILE-RPG character-to-numeric subprocedure, C2N,
which is part of the no-charge CGIDEV (CGI development) library, all of which 
has
been at the Snippets site for several years.

To find C2N, go to http://www.as400.ibm.com/snippets.  Search for RPG Source.
Then select XXXC2N.  Select PROTOTYPES to get all the CGIDEV library's
prototypes, including C2N.

In addition, one can prototype C's atoi, atof, and atol functions (convert
strings to integer, float, and long, respectively) or the Machine Interface
Library's  cvtefni and cvtefnd functions (convert external form to numeric value
(integer and double, respectively).

Mel Rothman



boldt@ca.ibm.com wrote:

> >Ken wrote:
> >>
> >>Does RPG/Anything have a way of evaluating a character string to a
> numeric
> >>result?
> >>
> >>Imbedded decimal point would exist and imbedded thousands separator may
> or
> >>may not exist.  Negative sign may be placed on either left or right of
> >>value. If one or more non-supported characters exist the result should be
> >>Zero.
> >>
> >>Visual Basic has a function named Val and is coded: X = Val(somestring)
>
> Eurrat wrote:
> >Hey!  I has heard this request before.  Hans, I still feel that it would
> be
> >a great function to add to RPG.
>
> Great!  Are you volunteering to write a procedure that
> can do this?
>
> (As I've noted before, if we added a new BIF to the RPG
> language, programmers wouldn't get to use it for years.
> But if someone wrote a procedure to do it and shared it
> with others, programmers would benefit from it now.)
>
> Cheers!  Hans
>
> Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.com
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---