RE: Force EOF in a Subfile

Thanks.
I tried all sorts of SetLL statements... Not once did I try '0'.  


Kurt Anderson
Application Developer
Highsmith Inc

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Paul Tuohy
Sent: Friday, August 12, 2005 3:57 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Force EOF in a Subfile

Hi Kurt,

To position yourself at the start of the subfile simply set the RRN
field (specified on the SFILE on the F Spec) to 0 - this is the
equivalant of a SETLL *LOVAL for a subfile.

HTH

Paul

----- Original Message -----
From: "Kurt Anderson" <kjanderson@xxxxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, August 12, 2005 8:32 PM
Subject: Force EOF in a Subfile


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