Re: Subfile "move to top" function

Sorry if this was mentioned but I did not read it as a complete
solution.



Where is what we do...



A SFLRRN 4S 0H SFLRCDNBR(CURSOR)





D DSPFINFDS DS QUALIFIED

D** Max number of sfl recs after done loading

D Maxsflrecs 376 377I 0

D** First sfl rec on visible screen

D Lowrrn 378 379I 0





// Data structures

/COPY QCPYSRC,DSPFINFDS



...



// Position To

IF POSITION > *BLANKS;

SFLRRN = RRNSV;

FOR IDX = 1 TO RRNSV;

CHAIN IDX SCNSFL;

IF POSITION <= S0KEY;

SFLRRN = IDX;

LEAVE;

ENDIF;

ENDFOR;

POSITION = *BLANK;

ENDIF;



...



WRITE SCNFTR;

WRITE MSGCTL;

EXFMT SCNCTL;



...



// this traps the current TOP visible record to default in


// then it can be overridden with code like the position
to.

IF DSPFINFDS.LOWRRN > *ZEROS AND DSPFINFDS.LOWRRN <= RRNSV;

SFLRRN = DSPFINFDS.LOWRRN;

ENDIF;



...



You can add the SFLCSRRRN() keyword and matching field to know which SFL
record the cursor is on to reposition the SFL to that record within an
function key press action.



Since we use Mocha I cannot use the enhanced 5250 stuff. So I have had
to be creative with the above and in some cases the RTNCSRLOC(*RECNAME
&REC &FLD). In combination with SFLCSRRRN I have been able to make my
pop windows accept selections when the user double clicks on a record,
instead of keying an option 1 and then Enter. With Mocha you have to
set on the option to allow that, "Setting | Mouse Double Click" but it
works quite well for us. This feature of Mocha makes the mouse double
click act as the Enter key.



Thanks, Matt