Re: validating

[Bill Wragg <bill_wragg@xxxxxxxx>]

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