RE: Subfile page at a time question. -- RPG400-L

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.