|
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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.