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.