Re: validating -- RPG400-L

Hi Bill

Thanks, do you think the below code still I can reduce?
C                   MOVEL(P)  'BDGQMC'      TY1@#K
C****             EVAL      POO@#K = *BLANKS
C                   EVAL      POO@#K = %SUBST(BDGXX:5:1)
C     KEY1       CHAIN     SYSTF
C                   IF        NOT %FOUND(SYSTF)
C                   MOVE      *ON           *IN58
C                   MOVE      *ON           *IN99
C                   CLEAR                   BDGDSC
C                   MOVE      *BLANKS       MSGD
C                   EXSR      SPERR
C                   ENDIF
*
C                   ELSE
C                   MOVE      *ON           *IN58
C                   MOVE      *ON           *IN99
C                   CLEAR                   BDGDSC
C                   MOVE      *BLANKS       MSGD
C                   MOVE      'BDG0001'     MSGID
C                   EXSR       SPERR
C
C                   ENDIF
C                   ENDIF





Warm Regards,
JoeP

From: Bill Wragg <bill_wragg@xxxxxxxx>
Reply-To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
Subject: Re: validating
Date: Sat, 23 Sep 2006 09:37:14 -0400 (EDT)

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
--
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.


_________________________________________________________________

Express yourself instantly with MSN Messenger! Download today it's FREE!http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/