Re: Converting a string to a number in RPG

[Joe.Maguire@xxxxxxxxxxxx]

Can't say I've tested every permutation of a decimal number represented in 
a string, but I believe the 'atof' API will do what you need.  I use it 
for a similar purpose via the below prototype.

D CvtDec          PR             8F    ExtProc('atof')
D                                 *    Options(*String) Value

C                   Eval(h)   MyDecField = CvtDec(MyCharField)

Kind Regards,

Joe Maguire




From:
James Lampert <jamesl@xxxxxxxxxxxxxxxxx>
To:
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
Date:
28/12/2008 19:00
Subject:
Converting a string to a number in RPG
Sent by:
rpg400-l-bounces@xxxxxxxxxxxx



Given a string representation of a number, zero-blanked (and possibly, 
but not necessarily, even starting in the leftmost position) and with an 
explicit decimal point (that may or may not be present), and a V5R3 
target box,

e.g,  "123.45" or "  1.23" or "1.23" or "1.2" or "123"

Is there some *easy* way my addled brain is overlooking, to parse that 
into a fixed-decimal numeric field (zoned or packed)? Beyond just 
looping through the character positions and building up the number, 
digit by digit?