Re: top and bottom of subfile

Thanks for the info it worked great.



At 02:34 PM 9/6/00 -0700, you wrote:
>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
>+---

+---
| 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
+---