RE: Test a field for specific values only

[Khalid Hachi <khachi@xxxxxxxxxxxxxx>]

Hi Jeff, You're right:

If YourField = 'AA'  
 Pos = %CHECK(C_AN :YourField); // Pos = 3


So try:

D C_AN          C                   'AN'
D YourField       S             20
D wkVar           S             20    Varying

     wkVar = %Trim(YourField);
     If %CHECK(C_AN : wkVar) <> 0;
         //Error
     Endif;


Khalid

-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de Jeff Young
Envoyé : 8 novembre 2011 16:59
À : RPG programming on the IBM i / System i
Objet : Re: Test a field for specific values only

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;
>
>
>
> -----Message d'origine-----
> De : rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> De la part de Jeff Young
> Envoyé : 8 novembre 2011 15:58
> À : rpg400-l@xxxxxxxxxxxx
> Objet : 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,
>
> --
> 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.
>
> --
> 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.