RE: Floating Point Question

[Joel Fritz <JFritz@xxxxxxxxxxxxxxxx>]

I think you can use the C function atof().  It takes a character string as
an argument and returns a double.  I just took a quick look at the manual
and I believe it handles the "E" as an exponent.  

Here's a prototype:

01.00 D atof            PR             8f   ExtProc('atof')        
02.00 D inputstring                     *   Value Options(*String)

Bind your program specifying binding directory QC2LE.  

You can call it by passing it a character field.  

If you check the archives for August of last year, Barbara Morris posted a
conversion chart for C and RPG data types.  I think there's also one in the
ILE RPG redbook.

-----Original Message-----
From: Reger, Bill [mailto:breger@levitz.com]
Sent: Wednesday, May 24, 2000 6:40 AM
To: RPG400-L@midrange.com
Subject: Floating Point Question


In an RPG ILE program, I have a 14-byte alpha Field that contains the
external representation of a floating point value, for example:
+1.2345678E005.  How can I take this alpha field and convert it into a
4-byte Floating Point Field (with the value 123456.78 in this example)?

Neither the %EDITFLT (Convert to Float External Representation) or %FLOAT
(Convert to Floating Format) BIF's do what I need.  I don't have any
experience working with Floating Point fields.  Does anyone have any ideas
for me?

Thanks,  Bill

William K. Reger
Senior Project Manager
Levitz Furniture Corporation
Phone:  (561) 994-5114
Web:  www.wrkdbf.com <http://www.wrkdbf.com/> 
E-mail:  breger@levitz.com <mailto:breger@levitz.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
+---