Re: CHECK(ER) and Field Validation

<FONT face="Default Sans Serif, Verdana, Arial, Helvetica, sans-serif" 
size=2><DIV>use the CHANGE keyword in conjunction with CHECK(ER).&nbsp; the 
resulting indicator (i know, damned indicators)&nbsp;will tell you if the field 
has changed, and thus was sent by the CHECK(ER).</DIV><DIV>&nbsp;</DIV><DIV>if 
it's not the last field on the screen, be sure to position your cursor on the 
next field after validation (or the same if 
incorrect).</DIV><DIV>&nbsp;</DIV><DIV>hth,</DIV><DIV>&nbsp;</DIV><DIV>rick<BR></DIV><DIV><FONT
 color=#990099>-----rpg400-l-bounces@xxxxxxxxxxxx wrote: 
-----<BR><BR></FONT>To: rpg400-l@xxxxxxxxxxxx<BR>From: 
fkany@xxxxxxxxxxxxxxxxxx<BR>Sent by: rpg400-l-bounces@xxxxxxxxxxxx<BR>Date: 
08/06/2003 01:34PM<BR>Subject: CHECK(ER) and Field Validation<BR><BR><BR>How 
can I let my program know that CHECK(ER) is being used and to run 
a<BR>validation routine on the field that has CHECK(ER).  I'm using CHECK(ER) 
on<BR>a field I want validated as soon as the user enters in the last position 
of<BR>the field.  Is there a way to have a validation routine run only 
when<BR>CHECK(ER) is being used.  The program is an RPGIII program.  I'm open 
to<BR>easier/alternative suggestions of accomplishing this same task.<BR><BR>I 
would like something similar to:<BR><BR>EXFMT DISPLAY<BR><BR>*Validate XFIELD 
because there is a display attribute of CHECK(ER)<BR>   on the field and the 
user has entered data into the 
field<BR>================================<BR><BR>================================<BR><BR>*NORMAL
 
PROCESSING<BR>=============================<BR><BR><BR>=============================<BR><BR>If
 there are other ideas on how I can accomplish this, please let me 
know.<BR><BR>Thanks,<BR><BR>Frank<BR><BR><BR>_______________________________________________<BR>This
 is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list<BR>To 
post a message email: RPG400-L@xxxxxxxxxxxx<BR>To subscribe, unsubscribe, or 
change list options,<BR>visit: <a 
href="http://lists.midrange.com/mailman/listinfo/rpg400-l"; 
target=blank>http://lists.midrange.com/mailman/listinfo/rpg400-l</a><BR>or 
email: RPG400-L-request@xxxxxxxxxxxx<BR>Before posting, please take a moment to 
review the archives<BR>at <a href="http://archive.midrange.com/rpg400-l"; 
target=blank>http://archive.midrange.com/rpg400-l</a>.<BR><BR></DIV></FONT>