• Subject: Re: string to numeric?
  • From: "Art Tostaine, Jr." <atostain@xxxxxxxxxxx>
  • Date: Wed, 05 Nov 1997 10:38:48 -0500
  • Organization: Creative Computer Associates, Inc.

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

| 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

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].