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

Booth,
I do happen to agree with your view.
My comments were directed at me being the dinosaur who actually has used
indicators.

Norm



----- Original Message -----
From: <boothm@earth.Goddard.edu>
To: <RPG400-L@midrange.com>
Sent: Tuesday, 7 March 2000 10:30
Subject: Re: Is there an OP-Code to determine if a Numeric Field is
Negative?


> I'm watching all of the bashing of COMP and of indicators.  These are good
> tools.  Old, understood, and true;  much like a hammer or a shovel.  The
> hammer and the shovel don't change much, a better shovel or a better
> hammer really hasn't been invented.  So sure, there's newer fads and
> fancier solutions, but indicators are not evil creatures for pete's sake.
> _______________________
> Booth Martin
> boothm@earth.goddard.edu
> http://www.spy.net/~booth
> _______________________
>
>
>
>
> "Norm Dennis" <wmss@iinet.net.au>
> Sent by: owner-rpg400-l@midrange.com
> 03/06/2000 12:06 AM
> Please respond to RPG400-L
>
>
>         To:     <RPG400-L@midrange.com>
>         cc:
>         Subject:        Re: Is there an OP-Code to determine if a Numeric
Field is Negative?
>
>
> Are you refering to a situation at input time in RPG?
> If so, in the days of the dinosaur, yes.
> On the input spec there was an indicator on byte 65-66 for zero,
> byte 67-68 for negative and byte 69-70 for positive.
>
> Norm
>
>
>
> ----- Original Message -----
> From: "Bale, Dan" <DBale@TFSA.Textron.com>
> To: <RPG400-L@midrange.com>
> Sent: Friday, 3 March 2000 4:36
> Subject: RE: Is there an OP-Code to determine if a Numeric Field is
> Negative?
>
>
> > The short answer is: NO.
> >
> > The long answer:  You can't get much clearer than "If ABC < 0".  What is
> it
> > about that form that makes you ask the question?
> >
> > Just remember how far we've come.  Remember?:
> >      C           ABC       COMP 0                      88
> >
> > <Shudder, heave, quiver...>
> >
> > - Dan Bale
> >
> > -----Original Message-----
> > From: Brian Stapleton [mailto:Brian.Stapleton@diverseylever.com]
> > Sent: Thursday, March 02, 2000 8:37 AM
> > To: rpg400-l@midrange.com
> > Subject: Is there an OP-Code to determine if a Numeric Field is
> > Negative?
> >
> >
> > Greetings All;
> >
> > Is there an Op code that I can use to determine if a numeric field is
> > Negative?
> >  Just looking for a different way than doing this...
> >
> > IF Number_Field    <   0
> > Do Something...
> > EndIf
> >
> >
> >
> >
> > Brian Stapleton
> > Information Services
> > DiverseyLever Institutional
> > A Div of DiverseyLever
> > Brian.Stapleton@diverseylever.com
> > (248) 304-3553
> >
> >
> >
> >
> > +---
> > | 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
> > +---
> >
>
> +---
> | 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
> +---
>

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