Re: string to numeric?

["Art Tostaine, Jr." <atostain@xxxxxxxxxxx>]

Jon Paris wrote:

> I've attached an RPG IV program that uses the MI function cvtefnd to convert a
> string to a floating point value.  There are other functions in the MI Library
> and the C function library that might also be useful but I don't have time to
> check them all out.  See the ILE C bookshelf on the softcopy library for more
> information. There may also be others on the system but .......
>
> Phone: (416) 448-4019   -   Fax: (416) 448-4414
>
>
>  D Str2Flt         Pr             8F   ExtProc('cvtefnd')
>  D  Str                            *   Value
>  D  StrLen                       10U 0 Value
>  D  Mask                          3    Const
>  D InpStr          S             20
>  D FltResult       S              8F
>  D DecResult       S             15  5
>  C     'Input Number'Dsply                   InpStr
>  C                   Eval      FltResult = Str2Flt( %Addr(InpStr) :
>  C                                                  %Len(%trimr(InpStr)) :
>  C                                                  '$,.' )
>  C                   Eval      DecResult = FltResult
>  C     DecResult     Dsply
>  C                   SetOn                                          LR

 Ummm, I really don't want everyone to know that I'm still learning  ExtProc, 
BUT,  how can I compile this?

--
Art Tostaine, Jr.
Creative Computer Associates, Inc.
Parlin, NJ
atostaine_at_crecomp_dot_com


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---