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