RE: [Re: RPGILE V4.3 Gotcha]

[Buck Calabro <mcalabro@xxxxxxxxxxxx>]

Jim,
On my machines, this code produces the expected results of 15.47 whether the
variables are defined as 7,2 or 10,2.
Did you get a different result when you tried it?  You _did_ try it, right?

Buck Calabro
Aptis; Albany, NY
mailto:Buck.Calabro@aptissoftware.com

> -----Original Message-----
> From: Jim Langston 
> Sent: Tuesday, October 05, 1999 2:19 PM
> To:   RPG400-L@midrange.com
> Subject:      Re: [Re: RPGILE V4.3 Gotcha]
> 
> Define them as 10, 2 instead of 7, 2
> most of our numbers are defined 10, 2
> 
> Regards,
> 
> Jim Langston
> 
> Buck Calabro wrote:
> 
> > Jim,
> > I haven't had many surprises using business math.  Here's your example
> > translated into EVAL:
> >
> > D                SDS
> > D  WorkStation          244    253
> >
> > D Fix1            s              7  2 inz(12.5)
> > D Fix2            s              7  2 inz(1.5)
> > D Fix3            s              7  3 inz(.825)
> > D Result          s              7  2 inz(0)
> >
> > C                   Eval(h)   Result = Fix1 * Fix2 * Fix3
> >
> > C     Result        dsply     WorkStation
> > C                   eval      *InLR = *On
> 
+---
| 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
+---