×
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.
RPG code like this to display the last page with cursor at the first item:
// SC_CSR_RCD is defined in the display file and is set with a
// RRN which determines which subfile page is displayed and on
// which record the cursor is positioned.
// If no positioning done, display last page, cursor on 1st recd.
// (Enter with no option takes you to the last page of subfile.)
if SC_CSR_RCD = 0;
SC_CSR_RCD =
( %int( (RcdsInSfl-1) / SflPageSize )
* SflPageSize
) + 1;
endif;
In SFLCTL:
A SC_CSR_RCD 4S 0H SFLRCDNBR(CURSOR)
You can see the whole code here:
https://github.com/SJLennon/IBM-i-RPG-Free-CLP-Code/tree/master/5250_Subfile
Sam
On 12/13/2021 6:47 PM, Bruce Vining wrote:
SFLRCDNBR *TOP
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
[javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
