Re: Test a field for specific values only

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