Re: Check for a numeric data

["Oludare" <oludare@xxxxxxxxxxxxx>]

Do a 1 to 9 loop and perform a %SUBSTR, initialie a counter to 1 b4 loop, &
TESTN within the loop.  If encounter non-numeric LEAVE the loop and check if
counter reach 10.

Dare

----- Original Message -----
From: "Wills, Mike N. (TC)" <MNWills@taylorcorp.com>
To: <rpg400-l@midrange.com>
Sent: Tuesday, October 23, 2001 11:50 AM
Subject: Check for a numeric data


> How do I check to see if one part of a text field is numeric? An example
of
> the field is: '   12345THIS IS TEXT'. I want to check to see if the first
9
> characters are numeric.
>
> TIA for any help.
>
> Mike
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>