Re: subfile SFLFOLD/SFLDROP and cursor positioning -- RPG400-L

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.

That's true. The *IN21 is only used when the PROGRAM (rather than theuser) wants to control whether the screen is in fold or drop mode.

For example, I've written programs where there's no space for an errormessage in the subfile. So I put the error message on the next line(using SFLFOLD). When an error occurs, my program automatically turnsFOLD mode on so that the user will see the error message. If there are noerrors, it uses SFLDROP so that the error message field isn't displayed.

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.

Hmmm... it surprises me that this isn't the default behavior? If it's notthe default behavior, there's not much you can do about it. As you'vealready discovered, control isn't returned to your program when the "fold"f-key is pressed, so you can't insert logic to handle it.

In the opposite direction I would like the same to occur, and inaddition, show the section of the subfile that has the cursor if thecursor happened to be on record 5 through 12 of the subfile screen.


Same issue.

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.

You can't get information about the first record on the screen becausecontrol isn't returned to your program.

What you may need to do is set SFLFOLD/SFLDROP to a *different* functionkey than F14. For example, maybe set it to F24, and then don't TELLanyone that SFLFOLD/SFLDROP are F24 so that the user never presses it.

Then, set up F14 with CF14. When control returns to your program becauseF14 is pressed, you can get the top RRN of the subfile from the INFDS, youcan use SFLCSRRRN to get the actual record that the cursor was on. You canuse SFLRCDNBR to move the cursor, and you can use *IN21 to switch betweenfold and drop.

This way, your program DOES have control and it can do whatever it needsto.

Unfortunately, it's a hack, because F24 is still available to dodrop/fold, and you have to hide it from the user so that he uses F14instead.


Hope that makes sense.