RE: test if is numeric in RPG

[Bob Cozzi <BobCozzi@xxxxxxx>]

John and Eric,

I usually use the TESTN, however the CHECK opcode might be a little more simple 
for straight numeric stuff.

Bob

On Friday, August 22, 1997 5:17 PM, John Carr [SMTP:74711.77@CompuServe.COM] 
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
> 
> 
> 
> +---
> | 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
> +---
> umidr
> 
+---
| 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
+---