MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » November 1997

Re: string to numeric?


  • 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.

fixed

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
+---






Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot 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 here. If you have questions about this, please contact