RE: Subfile page at a time question.

That's the thing, it does go back one page in the data flow, but only
one. But not back to the beginning.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Michael_Schutte@xxxxxxxxxxxx
Sent: Wednesday, August 23, 2006 4:45 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Subfile page at a time question.

It appears to me that you are reading all the way to the beginning of
the
file.  There's no condition to leave once the previous page has been
read.


Try our New Country Benedicts -- Breakfast with a Bob Evans twist!



 

             "Phil Kestenbaum"

             <pkestenbaum@sdit

             ech.com>
To 
             Sent by:                  "RPG programming on the AS400 /

             rpg400-l-bounces@         iSeries" <rpg400-l@xxxxxxxxxxxx>

             midrange.com
cc 
 

 
Subject 
             08/23/2006 04:41          Subfile page at a time question.

             PM

 

 

             Please respond to

              RPG programming

              on the AS400 /

                  iSeries

             <rpg400-l@midrang

                  e.com>

 

 





HI,



I have to 'convert' a load all subile, to a page at a time. I noticed
that the amount of data the application could generate, could easily
surpass the 9999 limite.



I have some code that I will call when the Rollupdn key is pressed:



0381.00 C     savkey        setll     oepwrkri


0382.00  *


0386.00 C                   do        sflpag_plus_1


0387.00 C                   readp     oepwrk


0388.00 C                   if        %eof


0389.00 C     *loval        setll     oepwrk


0390.00 C                   leave


0391.00 C                   endif


0392.00 C                   enddo



After this, the Clear Sfl and Bld Sfl is run. The Savkey is created when
RRN is = 1 and is done after the Write to the Subfile



What is happening that pages are loading fine. When scrolling back
however it is only going back one page and then is halted there. I tried
to debug but didn't see anything, I think I am missing an obvious
fundamental.



Any thoughts/ideas would be a great help.



Phil




This message contains information proprietary to our company. It is
intended to be read only by the individual or entity named above or
their
designee.
Any distribution of this message or the information contained herein
without written permission from our company is strictly prohibited. If
the
reader of this message is not the intended recipient or an agent
responsible for delivering it to the intended recipient, you are hereby
notified that you have received this document in error and that any
review,
dissemination, distribution, or copying of this message is strictly
prohibited. If you have received this communication in error, please
notify
us immediately by e-mail, and delete the original message.


--
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.