Re: Math Bindable API (2)

ajith wrote:
>When I runthe following code, why is that I get vague results when I use
>CEESDCOS as a procedure that returns value. But, when I use CALLB to call
>the same procedure I get right results all the time.
>
>Also when I call the program again it bombs with the foll. error
> The float operation resulted in a value that is too small (C G D F).
>
>When I cancel and call the program again, it works....
>In other words, it works on every alternate call but the first part gives
>wrong results!
>
> (code snipped)
>
>Am I doing something wrong here..


Yes.  Try this instead:

--------------------------------------------------------
h dftactgrp(*no) bnddir('QILE')

d Cos             pr                  extproc('CEESDCOS')
d  Parm1                         8f
d  Parm2                         8f
d  FeedBack                     12

d Parm            s              8f   inz
d Result          s              8f   inz
d FB              s             12a

c                   callp     Cos(Parm:Result:FB)
c     Result        dsply

c                   eval      *inlr = *On
--------------------------------------------------------

Cheers!  Hans

Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.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
+---