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