RE: Is there an OP-Code to determine if a Numeric Field is Negative?

I can't believe we're wasting bandwidth on this.  I don't think the original
poster has even responded to any of our answers; perhaps he was joking???

Although I _will_ say that I learned something from this thread:

    C                 EVAL    *IN99 = (NBR < 0)

But, enough already!  How many ways can you skin an indicator?  

- Dan

-----Original Message-----
From: boldt@ca.ibm.com [mailto:boldt@ca.ibm.com]
Sent: Monday, March 06, 2000 2:26 PM
To: RPG400-L@midrange.com
Subject: Re: Is there an OP-Code to determine if a Numeric Field is
Negative?


Peter wrote:
>Although IF constructs are the preferred method, you CAN do something
>different without it:
>
>    C      NBR        COMP    *ZERO                99
>    C   99            MOVE    'Y'        NEGTIV  1
>    C  N99            MOVE    'N'        NEGTIV

COMP really is a thing of the past.  You could code the
above COMP instead as:

    C                 EVAL    *IN99 = (NBR < 0)

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