× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



If that's the case, then it appears that your savkey isn't changing.  It's
staying as it is when it's first saved.   See my other post and try to
follow that.  I also chain to the first subfile record first and then setll
with the values of the first subfile record.

Also, make sure that you are repeating the same IF conditions in the load
routine in the page up routine.


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


rpg400-l-bounces@xxxxxxxxxxxx wrote on 08/23/2006 04:48:16 PM:

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.



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


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



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.