Re: top and bottom of subfile

["James W. Kilgore" <qappdsn@xxxxxxxxxxxxx>]

Chris,

We use this code:

In the subfile control record:

0218.00      A            XGTOP#         4S 0H      SFLRCDNBR(CURSOR *TOP)

In the RPG program:

0336.00      C*
-----------------------------------------------------------------*$CF17
0337.00      C           $CF17     BEGSR                           Top of list
0338.00      C*
<<snip>>
0340.00      C                     Z-ADD1         XGTOP#
0341.00      C*
0342.00      C                     ENDSR
0343.00      C*
-----------------------------------------------------------------*$CF18
0344.00      C           $CF18     BEGSR                           Bottom of 
list

0345.00      C*
0346.00      C                     Z-ADDXGBTM#    XGTOP#
0347.00      C                     SUB  XGPGSZ    XGTOP#
0348.00      C                     ADD  1         XGTOP#
0349.00      C*
0350.00      C           XGTOP#    IFLE *ZEROS
0351.00      C                     Z-ADD1         XGTOP#
0352.00      C                     END
0353.00      C*
0354.00      C                     ENDSR

XGBTM# is the number of records in the subfile.

Within the RPG program, unfortunately, we had to hard code the page size.  Does
anyone know of a method for an RPG program to retrieve the subfile page size?

Quazy wrote:

> I have a subfile that is loaded all at one time.   I need to make function
> keys position the file to the top and to the bottom.  I don't know how to
> do this when the subfile is loaded all at one time.
>
> Any help would be greatly appreciated.
>

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---