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

                TESTN or TESTZ might work.  If you use TESTN the rightmost
character of the result field will contain the letters J thru R.  I'm not
exactly sure how TESTZ would work.

                LAC

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