Re: Force EOF in a Subfile

Kurt,

I do not understand your question. 

Reading through a SFL and turning on SFLNXTCHG will make the changed records 
availble for the next READC. And this READC will start from the top of the SFL 
after each EXFMT. Reords not read the first time are still marked as changed.

Regards,
Carel Teijgeler 

*********** REPLY SEPARATOR  ***********

On 12-8-05 at 14:32 Kurt Anderson wrote:

>How do I do force an EOF in a subfile w/o altering the state of any records in 
>the subfile?
>(Sorry, my searches in the archives didn't turn anything up.)
> 
>Essentially, I'm validating a subfile by reading through as ReadC.
>DoU %EOF;
>  ReadC Subfile;
>  If not %EOF;
>     If errAction();
>       dspatr = @RU;   // reverse image, underline
>       PosCsr = *On;
>     EndIf;
>     SflNxtChg = *On
>     Update Subfile;
>  EndIf;
>EndDo;
> 
>Ok, but based on that processing, I want the top record displayed to
>have a field Positioned-To (assuming there were no errors found).
>I'm omitting a lot of code here obviously, but there is code that
>determines if the 1st record needs to be updated again.  If it needs to
>be, I do a:
> 
>Chain 1 Subfile;
>If %found;
>  PosCsr = *On;
>  Update Subfile;
>EndIf;
> 
>Now, in order to process this subfile if no errors were found, I need to
>loop with a ReadC again.  Except, by doing the chain, I lost my EOF on
>the subfile.
>I could do a:
>Chain LastRec Subfile;
>ReadC Subfile;
> 
>But that loses the SflNxtChg that is on the last record (if the last
>record was changed).  Short of adding a hidden field in the subfile that
>lets me know if it was changed or not, is there any way to force an EOF
>on a subfile so my next ReadC loop will start at the beginning of the
>subfile?
> 
>Kurt Anderson
>Application Developer
>Highsmith Inc.
>W5527 State Road 106, P.O. Box 800
>Fort Atkinson, WI 53538-0800
>TEL (920) 563-9571  FAX (920) 563-7395
>EMAIL kjanderson@xxxxxxxxxxxxx
> 
>-- 
>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.