RE: text to numeric BIF

["Haas, Matt" <Matt.Haas@xxxxxxxxxxxxxxxxxxx>]

Mike,

I'm using a procedure Brad Stone wrote to do this called #CtoN. You can get it 
from http://www.netshare400.com/cgi-bin/DSPSAMP?file=QRPGLESRC&mbr=F.STRING.

Matt

-----Original Message-----
From: meovino@xxxxxxxxxxxxxxxxx [mailto:meovino@xxxxxxxxxxxxxxxxx]
Sent: Tuesday, February 25, 2003 4:32 PM
To: RPG400-L@xxxxxxxxxxxx
Subject: text to numeric BIF


Are there any BIF's that will allow you to convert the value of an alpha
field to a numeric field?  I currently am using MOVE to move the alpha
field value to a signed numeric, then Z-ADD to get the value into a packed
field.  It looks something like this:

     c                   move      alpha         signed
     c                   z-add     signed        packed

There has got to be a better way than this, especially now that I'm using
free format.

Mike E.



_______________________________________________
This is the RPG programming on the AS400 / iSeries (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.