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



Marvin,
        Are you aware that the value for SFLCSRRRN is only returned when the
cursor is in the sub file detail area upon return to your program???  All
other times when the cursor is out side that area its zero.

Thank you,
Matt Tyler
WinCo Foods, LLC
mattt@xxxxxxxxxxxxxx


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Marvin Radding
Sent: Tuesday, August 09, 2005 12:52 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Subfile Record positioning

No, I rely on the CSRRRN keyword to obtain this value.  I will attempt
to retrieve this value the way you show and let you know.

Marvin


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Wilt, Charles
Sent: Tuesday, August 09, 2005 11:30 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Subfile Record positioning

Marvin,

You must have missed my first post....

Are you using the INFDS position 378 to 379 to find out what line the
user was on when they pressed enter?

D DsplyCustDDs    DS
D  curRrn               378    379I 0


C                   Eval      CsrRrn = curRrn




Charles Wilt
--

iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Marvin Radding
> Sent: Tuesday, August 09, 2005 2:22 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Subfile Record positioning
> 
> 
> My problem is that the cursor is on record 5, but when enter 
> or an Fkey
> is pressed, the RRN still contains 1 and the CSRRRN contains 5.  Even
> though I set the RRN to 5, the redisplay is still at 1.  I 
> need it to be
> at 5.  The users would like it also especially when they are over 75
> records deep and have to press the pagedown key 75 times to 
> get to where
> they left off.
> 
> Marvin
> 
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Scott Klement
> Sent: Tuesday, August 09, 2005 11:16 AM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Subfile Record positioning
> 
> 
> > 1. before any other action is taken it is 1.
> > 2. after paging through the unfolded screen to record 5, 
> pressing the
> > F10 key, the rrn is still 1
> > 3. before the redisplay, it is still 1
> 
> So the RRN field is set to 1, but you can't figure out why it always 
> starts with the first record of the subfile?
> 
> By having this variable set to 1, you're telling the system 
> "I want you
> to 
> start displaying with record 1".  You need to set this value to the
> record 
> you want to put on the screen before you display it.
> 
> If you want the subfile to be at the position where the user left off,
> set 
> it to the value of CSRRRN.  (But, if CSRRRN is zero, set it 
> to 1 or some
> 
> other valid value so that the program doesn't crash)
> 
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
> 
> 
> -- 
> This is the RPG programming on the AS400 / iSeries (RPG400-L) 
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
> 


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.