RE: subfile SFLFOLD/SFLDROP and cursor positioning

Booth/Marvin,
        For issue #2 use the file info DS (INFDS(INFDS)) position 378
379I 0.

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

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Marvin Radding
Sent: Monday, October 24, 2005 2:56 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: subfile SFLFOLD/SFLDROP and cursor positioning

For the first issue, you will need to activate the SFLCSRRRN.  When you
read the record format, this field will contain the subfile record #
that the cursor is on.  If you do a CHAIN using this field, you will
retrieve the subfile record.

For the second issue, I know of no other way than by calculation to
determine which is the first record on the screen.  And if you have the
SFLRCDNBR activated with *TOP, then I am at a loss of how to determine
which record is at the top.  

Marvin


-----Original Message-----
From: rpg400-l-bounces+mradding=dpi-west.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+mradding=dpi-west.com@xxxxxxxxxxxx] On Behalf
Of Booth Martin
Sent: Monday, October 24, 2005 12: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
---------------------------------