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



Thanks Scott, after seeing your mail I thought if it works in your apps , why 
not mine? Then I found the variable was getting the value at first, but after I 
am cleaning the message subfile, the value (from position 378 and 379) is 
becoming zero. So, now I am playing with the RRN of the first record before I 
am cleaning the message subfile. And it is working fine. Thanks again.
Amitava


Message: 5
Date: Fri, 1 Feb 2002 14:41:10 -0600 (CST)
From: Scott Klement <klemscot@klements.com>
To: rpg400-l@midrange.com
Subject: Re: How to get the RRN of the first record in the current page?
Reply-To: rpg400-l@midrange.com


The number in positions 378 & 379 works in my apps, though I don't see
anything wrong with the code that you've posted.

It's been a long time since I've written a program that uses this.
More recently, I've used the SFLCSRRRN DDS keyword.  If you can't get the
INFDS to work, you might take a look at the possibilities of making the
SFLCSRRRN work for your purposes...


On Fri, 1 Feb 2002, Amitava Banerjee wrote:

> Hi
> I need to know the RRN of the first record on the current page. I tried i=
n 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 (a=
lways). SFLRRN is getting the total no. of records at first, then the RRN o=
f the record I am trying to process. But I don't get the RRN of the first r=
ecord in the current page. How do I get that?
> TIA
> Amitava
>




As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.