RE: subfile SFLFOLD/SFLDROP and cursor positioning

Booth,
        Have you thought about turning this into a page at a time sub
file.  You can monitor the sub file fold condition by using the
SFLMODE() keyword.  Depending on the mode state you load either a folded
sub file or a truncated sub file.  You get control returning to you
program.  

Thank you,
Matt Tyler
WinCo Foods, LLC
mattt@xxxxxxxxxxxxxx


-----Original Message-----
From: rpg400-l-bounces+mattt=wincofoods.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+mattt=wincofoods.com@xxxxxxxxxxxx] On Behalf Of
Booth Martin
Sent: Monday, October 24, 2005 1:42 PM
To: RPG programming on the AS400 / iSeries
Subject: subfile SFLFOLD/SFLDROP and cursor positioning

subfile SFLFOLD/SFLDROP and cursor positioning

Lets say I have a load-all subfile that I am displaying with 4 records,
or
12 records truncated.

I was using both SFLDROP and SFLFOLD on F14 and 21/N21. 

I took F14 out of the RPG code as Folding & Unfolding apparently never
goes
back to the program anyway. 
Then I took out the SFLDROP line of code in the DDS, and the program
still
folds and unfolds as I want.  I was surprised I didn't need both SFLDROP
&
SFLFOLD, and that I didn't have to code for *in21 in the RPG, except to
eval
*in21 = MODE after the exfmt.

However I am still left with the two issues I was trying to resolve in
the
first place.

Firstly, I would like the cursor to remain on the same subfile record
when
the screen flips.  For instance, if the cursor is on subfile record
3(line 9
 10, or 11 of the subfile screen on the unfolded screen I would like to
press F14 to have the folded view, and have the cursor move up to line
three
of the subfile screen record. In the opposite direction I would like the
same to occur, and in addition, show the section of the subfile that has
the
cursor if the cursor happened to be on record 5 through 12 of the
subfile
screen.  

Secondly, I would like to be able to get the information about the first
record presently being displayed on the screen, regardless of the
location
of the cursor.

Thanks.

---------------------------------
Booth Martin
http://www.martinvt.com
---------------------------------