RE: Math Bind able API (2)

[Chris Bipes <rpg@xxxxxxxxxxxxxxx>]

Since you are only inz the data structure, the binary number contain blanks
or x'40404040'.  Try putting the clear opt code on the FB data structure
which will properly inz the sub fields.

Christopher K. Bipes     mailto:ChrisB@Cross-Check.com
Sr. Programmer/Analyst   mailto:Chris_Bipes@Yahoo.com
CrossCheck, Inc.         http://www.cross-check.com
6119 State Farm Drive    Phone: 707 586-0551 x 1102
Rohnert Park CA  94928 Fax: 707 586-1884

If consistency is the hobgoblin of little minds, only geniuses work here.
Karen Herbelin - Readers Digest 3/2000


-----Original Message-----
From: ajkumar@rccl.com [mailto:ajkumar@rccl.com]
Sent: Wednesday, April 05, 2000 3:01 PM
To: RPG400-L@midrange.com
Subject: Math Bindable API (2)



Hi...

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!

h dftactgrp(*no) bnddir('QILE')
 *
d Cos             pr             8f   extproc('CEESDCOS')
d  Parm1                         8f
d  FeedBack                     12
 *
dParm             s              8f   inz(0.000000000000E+000)
dResult           s              8f   inz
dR1               s             13  6 inz
dA1               s             13    inz
 *
d FB              ds            12    inz
d  FB1                           4b 0
d  FB2                           3
d  FB3                           4b 0
d  FB4                           1
 *
c                   eval      Result = *zeros
c                   eval      Result = Cos(Parm:FB)
 *
c     Result        dsply
 *
c                   eval      R1 = Result
c                   eval      A1 = %editc(R1:'M')
c     A1            dsply
 *
 ************************************************
 *
c                   callb     'CEESDCOS'
c                   parm                    Parm
c                   parm                    Result
 *
c     Result        dsply
 *
c                   eval      R1 = result
c                   eval      A1 = %editc(R1:'M')
c     A1            dsply
 *
c                   eval      *inlr = *On


Am I doing something wrong here..


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