Re: Check for a numeric data -- RPG400-L

This is how the CHECK oper code works.
        Factor 1 is your comparator string.
        Factor 2 is composed of two items separated by ":"
            1.    Base string
            2.    Start location
        Verification begins at the leftmost char (start location) of factor
2 base string (char by char going to the right) comparing it with the
elements in factor 1.  If a match is not found, an integer value is placed
in the result field to indicate the position of the incorrect character.
        This is the same with "CHECKR" oper code except that it begins with
the rightmost char (start location) going to the left.
        I would say that the loop is now being handled by the CHECK/CHECKR
operation.



----- Original Message -----
From: "Oludare" <oludare@ix.netcom.com>
To: <rpg400-l@midrange.com>
Sent: Tuesday, October 23, 2001 12:23 PM
Subject: Re: Check for a numeric data


> Rex,
>
> Don't you have to loop these functions? And how are you checking for 2-8
> positions?
>
> Dare
>
> ----- Original Message -----
> From: "Rex Capio" <rex_capio@swimtrend.com>
> To: <rpg400-l@midrange.com>
> Sent: Tuesday, October 23, 2001 12:11 PM
> Subject: Re: Check for a numeric data
>
>
> > 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.
> > >
> >
> > _______________________________________________
> > 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.
> >
> >
>
> _______________________________________________
> 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.
>