Re: test if is numeric in RPG

[Mark Lazarus <mlazarus@xxxxxxxx>]

Hans,

>> >> I want to test if an alphanumeric string is numeric or not. Do you
>> >> have some hints or tips to do this?
>> >
>> >Check out the TESTN opcode.
>>
>>  Unfortunately, TESTN is implemented in such a way that allows character
>> values, the ZONED negative values: }, J, K, L...
>>
>>  -mark
>
>The "character" values are only allowed in the right-most position of
>the field.  To be more specific, the right-most byte may have a digit
>portion of 0 to 9, and a zone of C, D, or F.  Does this look familiar?
>It means that a character field is considered numeric by TESTN if the
>data is in zoned numeric format.  If the indicator in position 71-72
>comes on (or 54-55 in old RPG), the data can be assigned to a numeric
>field using the MOVE opcode.

 I've found that for the most part we want to know if the characters are
from 0-9.  For that, the SCAN opcode is a blessing.

 -mark

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---