RE: Test a field for specific values only

[Mark Tate <mtate@xxxxxxxxxxxx>]

0024.01 DTwentyFld        S             20A   INZ('     AN            ')
0024.02 DTwentyFld2       S             20A   INZ('     AN      B     ')
0033.00  /Free                                                          
0033.01    If %check('AN ':TwentyFld) = 0;                              
0033.03      Dsply ('Only AN');                                         
0033.04    Else;                                                        
0033.05      Dsply ('Not Only AN');                                     
0033.06    EndIf;                                                       
0033.07                                                                 
0033.08    If %check('AN ':TwentyFld2) = 0;                             
0033.09      Dsply ('Only AN');                                         
0033.10    Else;                                                        
0033.11      Dsply ('Not Only AN');                                     
0033.12    EndIf;                                                       
0033.13                                                                 
0043.00    *INLR = *On;                                                 
0044.00    Return;                                                      



-Mark

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff Young
Sent: Tuesday, November 08, 2011 12:58 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Test a field for specific values only

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,