• Subject: Re: test if is numeric in RPG
  • From: "Hans Boldt" <hboldt@xxxxxxxxxxxx>
  • Date: Mon, 25 Aug 97 08:09:53 EDT

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

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2020 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].