Re: CHECK(ER) and Field Validation

<FONT face="Default Sans Serif, Verdana, Arial, Helvetica, sans-serif" 
size=2><DIV>not handy, but here goes an /free-dds example&nbsp; 
;)</DIV><DIV>&nbsp;</DIV><DIV>D&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; fldx 
&nbsp;&nbsp; b&nbsp; 1&nbsp; 20CHECK(ER) 
CHANGE(20)</DIV><DIV>D&nbsp;21&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 DSPATR(PC RI)</DIV><DIV>D&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;nxtfld 
b&nbsp; 1&nbsp; 
40</DIV><DIV>D&nbsp;20&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 
DSPATR(PC)</DIV><DIV>&nbsp;</DIV><DIV>-------</DIV><DIV>c&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 dow&nbsp;&nbsp;&nbsp;&nbsp;not 
*inkc</DIV><DIV>c&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; exfmt&nbsp; 
screen</DIV><DIV>&nbsp;</DIV><DIV>c&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 if&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
*in20</DIV><DIV>c&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;exsr&nbsp;&nbsp;&nbsp;&nbsp;
 
verifyfldx</DIV><DIV>&nbsp;</DIV><DIV>c&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 
if&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$errfldx</DIV><DIV>c&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 eval&nbsp;&nbsp;&nbsp;&nbsp;*in20 = 
*off</DIV><DIV>c&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
eval&nbsp;&nbsp;&nbsp;&nbsp;*in21 = 
*on</DIV><DIV>c&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
end</DIV><DIV>&nbsp;</DIV><DIV>c&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 
iter</DIV><DIV>c&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end</DIV><DIV>&nbsp;</DIV><DIV>c&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 enddo</DIV><DIV>&nbsp;</DIV><DIV>you could also use the hldfldx method 
mentioned earlier instead of CHANGE, if you wish.<BR></DIV><DIV>hope this 
helps</DIV><DIV>&nbsp;</DIV><DIV>rick<BR></DIV><DIV><FONT 
color=#990099>-----rpg400-l-bounces@xxxxxxxxxxxx wrote: -----<BR><BR></FONT>To: 
CN=RPG programming on the AS400/O=iSeries 
&lt;rpg400-l@xxxxxxxxxxxx&gt;<BR>From: fkany@xxxxxxxxxxxxxxxxxx<BR>Sent by: 
rpg400-l-bounces@xxxxxxxxxxxx<BR>Date: 08/06/2003 03:36PM<BR>Subject: Re: 
CHECK(ER) and Field Validation<BR><BR><BR>&gt; use the CHANGE 
keyword.....<BR><BR>Thanks Rick, I'll give that a try.  Would you happen to 
have an example of<BR>using this 
method?<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>