Re: validating

Replace MOVE with EVAL , combine 2 move statements into one EVAL statement.

Joseph Pascoguin <joe.pascoguin@xxxxxxxxxxx> wrote:  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 
Reply-To: RPG programming on the AS400 / iSeries 
To: RPG programming on the AS400 / iSeries 
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 
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/