RE: 1 more Simple ILE Q from Newbie

You need to turn on an indicator that displays the error message (or
however you do it) and then EXFMT the screen again. Keep doing that
(looping) until you are error free or the user presses Exit or Cancel.
Then drop out of the loop and do whatever.

> -------- Original Message --------
> Subject: 1 more Simple ILE Q from Newbie
> From: steema@xxxxxxxxxxxxx
> Date: Tue, December 27, 2005 11:48 am
> To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> 
> 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.
> >
> >
> 
> -- 
> 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.