Re: TESTN

[Scott Klement <klemscot@xxxxxxxxxxxx>]

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