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



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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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 copyright@midrange.com.

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.