Re: validating

Hi Joseph,

first, your are wasting code by moving blanks to
poo@#k. Eval is same as movel (P) move left and pad
with blanks. So the field will be clear on the eval
statement anyway.

simple validation:

Eval Poo@#k = %Subst(Bdgxx : 5 : 1)

If %Check('ABCDE' : Poo@#k) > 0
// then not found
Else
// found
Endif

Good Luck
Bill

--- Joseph Pascoguin <joe.pascoguin@xxxxxxxxxxx>
wrote:

Hi
       In the below code:
                 EVAL      POO@#K = *BLANKS
                 EVAL      POO@#K =
%SUBST(BDGXX:5:1)
Iam extracting 5th position  of BDGXX, now i want to
validate this with one 
of 5 values A B C D E.
When User enters anything other than that of  these
5 values it should 
display a message in displayfile saying that "valid
values are A,B,C,D,E 
only"...
Please suggest various good ways to implement in
RPGLE(not in display 
file)....




Warm Regards,
JoeP

_________________________________________________________________

FREE pop-up blocking with the new MSN Toolbar - get
it now! 

http://toolbar.msn.click-url.com/go/onm00200415ave/direct/01/

-- 
This is the RPG programming on the AS400 / iSeries
(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.

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com