Re: Test a field for specific values only

I'm thinking you could do some bit twiddling....

d allA s 20a inz(*ALL'A')
d allN s 20a inz(*ALL'N')
d notA s 20a
d notN s 20a

d test1 s 20a inz('AAANNNANANNNNAAAANAN')
d test2 s 20a inz('AAANX ANANNNNAAAANAN')

d ans1 s 20a
d ans2 s 20a
/free
notA = %bitnot(allA);
notN = %bitnot(allN);

ans1 = %bitor(%bitxor(test1:notA):%bitxor(test1:notN));
ans2 = %bitor(%bitxor(test2:notA):%bitxor(test2:notN));

if ans1 = *ALLx'FF';
dsply '1 VALID';
else;
dsply '1 invalid';
endif;

if ans2 = *ALLx'FF';
dsply '2 VALID';
else;
dsply '2 invalid';
endif;

*INLR = *ON;
return;
/end-free

HTH,
Charles

On Tue, Nov 8, 2011 at 3:58 PM, Jeff Young <jyoung0950@xxxxxxxxx> wrote:

I have a 20 byte field that should only contain the values of A or N in any
given position.
Without looping through each position, is there any way to test if the
field contains any other value?

Thanks,

--
Jeff Young
Sr. Programmer Analyst
--
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.