Re: test if is numeric in RPG

[Glenn Ericson <Glenn-Ericson@xxxxxxx>]

At 10:16 PM 8/22/97 +0000, you wrote:
>
>
>RE:    test if is numeric in RPG
>
>>Hi,
>>
>>I want to test if an alphanumeric string is numeric or not. Do you
>>have some hints or tips to do this?
>>
>>Thanks
>>Eric Mayrand
>
>
>Eric
>Have a named constant that contains '0123456789'
>then do a SCAN opcode with the named constant in factor 1
>and the character string in factor 2 either test the EQ indicator
>(3rd one) or have a result field(Numeric or array) and test either 
>one or the other. 
>
>The result field(numeric variable) will be zero if no numerics are 
>found.  If the result field is an array, the array will contain the
>positions in the character string that had a numeric in it. OK?
>
>John Carr
>EdgeTech
>+---
What happened to the "old" TESTN op code?
+---
| 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
+---