Re: Bale, Dan

[boldt@xxxxxxxxxx]

Doug wrote:
>Personally, I'm not sure IsNegative() has as much merit, but it sure
>wouldn't bother me in code either.  Just add something like the
>following to your program.  It will accept any numeric variable of any
>size up to 30 digits and 9 decimals; packed, zoned, binary, integer,
>etc.  I'm not positive about floating point, but I think it is OK too.
>
>     D IsNegative      PR             1
>     D  Value                        30P 9 Const
>
>     C                   If        IsNegative( My_Numeric_Var)
>     C                   ....
>     C                   Endif
>
>
>     P IsNegative      B
>     D IsNegative      PI             1
>     D  Value                        30P 9 Const
>     C                   Return    ( Value < 0 )
>     P IsNegative      E
>
>Personally, I'd put the IsNegative() function in a service program
>with other similar functions.
>
>That's the beauty of user-defined procedures.  You don't have to
>petition Hans & Company to add this kind of stuff to RPG.  Just do it
>yourself!  And it works even on V3R2.  Now.

That procedure has a couple of problems.  First, you need
to define the return value as type 1N, not 1A, if you want
to invoke it the way you do in the IF statement.

Secondly, if you pass a value of say -0.0000000001, the
procedure will return a value of '0', which I suspect is
not what you want.  Also, the procedure call will blow up
on values greater than 9999999999999999999.  (I suspect
the former would be harder to debug.)

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