1 more Simple ILE Q from Newbie

HI OK I have the change working except that If there is a record not found
as part of validating in panel1, I don't see how to keep the program right
there until the data is corrected.

0 C     chgdtl        begsr
0  *
0  * chain to data file using selected subfile record
0  *
0  *
0 0 C     akey        chain     mfile
0  *
0  * row the change screen.
0  * If F3 or F12 is pressed, do not update the data file
0  *
0 C                   if        %found
 0221.00 C                   exfmt panel1
0222.00 c
0223.00 C       *** I need to chain to a file that will validate a field on
panel1. and if NOT %FOUND to keep the screen right
0224.00 c                                 where it is, display an error
message, etc?
0225.00 C
0226.00 C
0227.00 c
0228.00 C        if        (cfkey <> exit) and (cfkey <> cancel)
0229.00 C                 update fmt01
231.00 c                 endifendif
0232.00 c                   endif
0233.00 c                   endif
0234.00 c                   enddo
0235.00 c                   endsr



> If not %found;
>   // do stuff...
> Endif;
>
>
> Thanks,
> Tommy Holden
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of steema@xxxxxxxxxxxxx
> Sent: Tuesday, December 27, 2005 10:28 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Simple ILE Q from Newbie
>
> Sorry  I have no manual and can't locate the online one.
>
> for %found what is the Not found syntax?
>
> I would normally use ITER but it doesn't allow.
>
> Thanks,
> Steve
> --
> 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.
>
>
> --
> 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.
>
>