RE: How to get the RRN of the first record in the current page?

[David Wright <dwright@xxxxxxxxxxx>]

That's true....

Maybe she could popup a window, and have the user type in the line number of
the top record on the panel?

:)

-----Original Message-----
From: Booth Martin [mailto:Booth@MartinVT.com]
Sent: Saturday, February 02, 2002 12:20 PM
To: rpg400-l@midrange.com
Subject: RE: How to get the RRN of the first record in the current page?


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


_______________________________________________
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.