Re: Test a field for specific values only

[Stuart Rowe <rowestu@xxxxxxxxx>]

%check( <comparator>: <string> )

identifies the first position of the character in <string> that is not in
<comparator>.  It returns zero if all characters in <string> are in
<comparator>.

It reads like "check that each character in <string> is one of these in the
<comparator>. If not, stop and tell the position of that character."

You're right, John, that's exactly what it's for.

Stu



On Tue, Nov 8, 2011 at 16:54, Charles Wilt <charles.wilt@xxxxxxxxx> wrote:

> You know..my first thought was %check...but thought maybe I was
> misremembering how it worked...otherwise Jeff would have just used it.
>  Or perhaps it loops behind the scenes and thus was disqualified...
>
> So I came up with my bit twiddling answer. :)
>
> Charles
>
>
> On Tue, Nov 8, 2011 at 5:29 PM, John Yeung <gallium.arsenide@xxxxxxxxx>
> wrote:
> > Jeff, did you try it?  Your situation is the *exact* reason for the
> > existence of the %check function.
> >
> > John
> >
> > On Tue, Nov 8, 2011 at 4:59 PM, Jeff Young <jyoung0950@xxxxxxxxx> wrote:
> > > That does not work if the field is AA or NN.
> > > Each position of the field can only be A or N.
> > >
> > > On Tue, Nov 8, 2011 at 4:09 PM, Khalid Hachi <khachi@xxxxxxxxxxxxxx>
> wrote:
> > > > Hi Jeff,
> > > >
> > > > D C_AN          C                   'AN'
> > > >
> > > > Pos = %CHECK(C_AN :YourField);
> > > > If Pos <> 0;
> > > >   //Error
> > > > Endif;
> > --
> > This is the RPG programming on the IBM i / System i (RPG400-L) mailing
> list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.