Re: Test a field for specific values only

[Charles Wilt <charles.wilt@xxxxxxxxx>]

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.