Re: Check for a numeric data

["Rex Capio" <rex_capio@xxxxxxxxxxxxx>]

Try this:

       d number        c                            '0123456789'

        c        number            check    field:1            x
        c                                if            %found and x <= 9
        c                                eval        nonnumeric = 'Y'
        c                                endif


----- 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.
>