Re: test if is numeric in RPG

Mark Lazarus <mlazarus@ttec.com> wrote:
> David,
>
> >> 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.

Cheers!  Hans

Hans Boldt, ILE RPG Development, IBM Toronto Lab, hboldt@vnet.ibm.com
+---
| 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
+---