× 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.


  • Subject: Re: top and bottom of subfile
  • From: Quazy <quazy@xxxxxxxxxxxx>
  • Date: Thu, 07 Sep 2000 09:23:10 -0500

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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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 copyright@midrange.com.

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.