Re: String to Numeric

     Jim,
        Try the atof() procedure available in the binding directory QC2LE.
     
     the prototype for it goes like this
     
     
     dc2f              pr             8f   extproc('atof')        
     dstring                           *   value options(*string) 


    c                   eval      int=c2f(%trim(amount1))

  
        In the above example amount1 is the character field to be converted.


    While compiling don't forget to add the QC2LE binding directory entry



   Vini



   


______________________________ Reply Separator _________________________________
Subject: String to Numeric
Author:  Jim Langston <jlangston@conexfreight.com> at ARO-INTERNET
Date:    2/7/00 9:26 AM


V3R7M0
     
I have a field I am allowing my users to put in a string value 
(container number, in the format XXXX999999) or a numeric 
value (invoice number, 999999).  I now have this variable that
contains one or the other, but in either case, it is left justified.
     
So I either have:
'ABCD123456 '
or
'1234       '
     
Now I'm kinda stumped.  I can figure out if it is numeric or a 
container number by using the Check opcode.  But, once I
know it's numeric, just how do I convert this thing to a numeric 
value?
     
I tried a Data Structure, but no success.   To map successfully, 
I think the value would have to be like:
'00000001234' and I'm not really sure how to get it there.  I know 
we have the DIGITS function in Query, but it doesn't work in RPG, 
and is going the wrong way anyway.
     
Anyone have any ideas?
     
I think I'm going to wind up building a string like '000000000000001234' 
using
'00000000000' + %TRIM(InputVal) and SUBSTRing it.
     
Regards,
     
Jim Langston
     
+---
| 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
+---