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

I wish to clarify my previous post on this topic, as a miscommunicated
statement was pointed out to me in a private email.

The "wasting bandwidth" missive was definitely NOT aimed at Brian Stapleton,
the original poster of this topic.  I normally re-read everything before I
push "Send", but I must have been in a hurry on this one.

I was commenting mostly on the 14 responses so far (and counting) on how to
accomplish what Brian asked originally last week.  Hence my comment, "How
many ways can you skin an indicator?"  The absence of any emoticons didn't
help set the intended tone, either.

Brian, several of us have asked why you wanted to know whether there was an
alternative to the code you posted.  I thought that there must have been a
special case.  Heck, I just now thought that perhaps you've never seen
incarnations of RPG prior to RPG-IV and, just perhaps, you've never seen a
COMP opcode before (you lucky dog!)  Is that it?

Regards,
Dan Bale

-----Original Message-----
From: Bale, Dan [mailto:DBale@TFSA.Textron.com]
Sent: Monday, March 06, 2000 3:50 PM
To: 'RPG400-L@midrange.com'
Subject: 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
+---