Re: Display last item of SFL

[Sam_L <lennon_s_j@xxxxxxxxxxx>]

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