RE: Math Bind able API (2) -- RPG400-L



Chris,

that did'nt help either... the following are the results that I got when I
ran the program

First run
DSPLY  +2.929687500000000E+004
DSPLY    29296.87500               ==> result from procedure that returns value
DSPLY  +1.000000000000000E+000
DSPLY        1.00000               ==> result from CALLB

Second Run
The float operation resulted in a value that is too small (C G D F).
C

Third Run
DSPLY  +1.000000000000000E+001
DSPLY       10.00000
DSPLY  +1.000000000000000E+000
DSPLY        1.00000

Fourth Run
The float operation resulted in a value that is too small (C G D F).
C

The right answer is 1.0!






Chris Bipes <rpg@cross-check.com>@midrange.com on 04/05/2000 07:38:01 PM

Please respond to RPG400-L@midrange.com

Sent by:  owner-rpg400-l@midrange.com


To:   "'RPG400-L@midrange.com'" <RPG400-L@midrange.com>
cc:

Subject:  RE: Math Bind able API (2)


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



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