Re: TESTN -- RPG400-L

Hi Dan,

Hmmm. Cursing TESTN for telling you that a negative number is a number? How
about just adding an extra statement:

C                   TESTN                   WORK              4  81
C   81              MOVE      WORK          NUMBER            4 081  81

If 81 is on, it's a positive number.

HTH,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax



----- Original Message -----
From: <D.BALE@handleman.com>
To: <RPG400-L@midrange.com>
Sent: Tuesday, October 31, 2000 1:03 PM
Subject: Re: TESTN


> Scott, I love that idea!  Simple and elegant.  I can't tell you the number
of
> times I've cursed TESTN for this problem.  Heck, you could make it a lot
more
> universal and define WORK as a 31-byte alpha, instead of 4.  Another tip
for
> my toolbox!
>
> Dan Bale
> IT - AS/400
> Handleman Company
> 248-362-4400  Ext. 4952
>
> -------------------------- Original Message --------------------------
>
> '12G' is a character representation of the number -127.  When you
> MOVE a negative number to a character field, it changes the value of
> the "zone" portion of rightmost byte to reflect that its a negative
> number.  (The change will usually result in a letter from A-R or the "{"
> character.)
>
> Therefore "12G" is a valid number.
>
> If you only want to test for valid positive numbers, do something like
> this:
>
> C                   MOVEL     '12G'         SIN               3
> C                   MOVE      *zeros        WORK              4
> C                   MOVEL     SIN           WORK
> C                   TESTN                   WORK                  81
> c                   eval       *inlr = *on
>
> By putting that extra zero at the end, the "G" ends up in the middle
> of the number, and will signal an error.
>
>
> On Tue, 31 Oct 2000, Lurton Keel wrote:
>
> > Here is a program.
> > C                   MOVEL     '12G'         SIN               3
> > C                   TESTN                      SIN                  81
> > c                    eval          *inlr = *on
> > indicator 81 is in pos 71-72.
> > My problem is that in the above example, indicator 81 is on even though
> > there is a "G" in the field.
> > The RPG reference says.
> > "Positions 71 and 72: Either the result field contains numeric
characters,
> > or it contains a 1-character field that consists of a letter from A to
R."
> > What's up
> >
> +---
> | 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
+---