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



Not if she uses a scroll bar.  The scroll bar allows the subfile to be moved
a line or several pages at a time.  There is no way to keep to a panel at a
time.



---------------------------------------------------------
Booth Martin http://www.MartinVT.com
Booth@MartinVT.com
---------------------------------------------------------

-------Original Message-------

From: rpg400-l@midrange.com
Date: Saturday, February 02, 2002 15:09:37
To: 'rpg400-l@midrange.com'
Subject: RE: How to get the RRN of the first record in the current page?

May not be the answer you are looking for, but isn't it the last multiple of
your page size plus one?

If you are displaying 12 records/page, and you process record 39, then the
rrn of the top record is 37 (3x12)+1...

-----Original Message-----
From: Amitava Banerjee [mailto:Amitava.Banerjee@trin.net]
Sent: Friday, February 01, 2002 11:48 AM
To: rpg400-l@midrange.com
Subject: How to get the RRN of the first record in the current page?


Hi
I need to know the RRN of the first record on the current page. I tried in
this way:

1. Declared INFDS(DSPFDS) in F spec
2. Defined DSPFDS in the following way

D DSPFDS DS
D SFLRRN 376 377 I 0
D SFLRRN1 378 379 I 0
D SFLRRN2 380 381 I 0

But after I do Page Down and press ENTER, SFLRRN1 and SFLRRN2 are zero
(always). SFLRRN is getting the total no. of records at first, then the RRN
of the record I am trying to process. But I don't get the RRN of the first
record in the current page. How do I get that?
TIA
Amitava


_______________________________________________


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 [javascript protected email address].

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