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