RE: How to position cursor on particular row of subfile in code ?

Hi Luqman,

One easy way of positioning cursor on a subfile record is 
By defining Position Cursor (DSPATR(PC)) for that particular field 
 
Do While not Exitkey
Exfmt subfileCtl

For any errors/Process
Eval (DSPATR(PC)) indicator = *On
If SFLCSRRRN > *Zeros (SFLCSRRRN will return the RRN number of the cursor
positioned)
Eval SFLRCDNBR = SFLCSRRRN 
End If 
Eval SFLNXTCHG indcator = *On
Update Sufile Record Format 

EndDo

Thanks
Sadiq ....


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Luqman
Sent: Thursday, April 06, 2006 1:08 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: How to position cursor on particular row of subfile in code ?

How can I position the cursor on particular Row of Subfile in code ?

I have defined rrrn, fld and rec hidden fields in SFLCSRRRN and RTNCSRLOC.

What I have not used is Cursor Position of RTNCSRLOC, do I have to use this,
if so, how ?


What I need to do is that whenver the user press Enter Key, the Cursor
should come on the same row, from where it left ?

My code is as under:-

Do While not Exitkey
Exfmt subfileCtl
RRRN Chain Subfile
Eval myCode=CodeField
Eval myName=NameField
Enddo

Best Regards,

Luqman



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