Re: How to Position Cursor to particular Field of Particular RowinSubfile ?

Hi,

Whenver Field Position Cursor Indicator is ON, the cursor moves to 1st Row
of that Column, even I set the SFLRCDNBR=5.

My code is as under:-

> A          R SUBFILE1                  SFL
> A            S1SEL          1A  B 10  1
> A  40                                  DSPATR(PC)


Dow (Not exitkey)
exfmt ctl
 5 chain SUBFILE1
eval in40 = *on
 update SUBFILE1
 eval SFLRCDNBR = 5
  iter
enddo


Any idea please ?

Best Regards,

Luqman







"Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxxxxxxxxx>
wrote in message
news:ADDB0108F0E23646BCE2C8F029B406E10B9FC0E0@xxxxxxxxxxxxxxxxxxxxxxx
> Make sure program is doing the following:
> 1) DSPATR(PC) keyword is on the sub-file record with indicator.
> 2) Turn on the indicator and update the subfile record that you want the
> cursor to move to.
> Example:
> DDS:
> A          R SUBFILE1                  SFL
> A            S1SEL          1A  B 10  1
> A  40                                  DSPATR(PC)
>
> RPG should do the following to position the cursor:
> eval in40 = *on
> 5 chain SUBFILE1
> update SUBFILE1
> eval SFLRCDNBR = 5
>
>
> -- Note:  If you DDS has CSRLOC keyword, the row and col must set to
> zeros for DSPATR(PC) to take effect.  This is because CSRLOC override
> DSPATR(PC).
>
>
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On
Behalf Of Luqman
> Sent: Monday, April 10, 2006 6:52 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: How to Position Cursor to particular Field of Particular Row
> inSubfile ?
>
> How do I set my cursor to Column No. 3 of Row No. 5 ?
>
> I can set the Row No. 5 with SFLRCDNBR=5 but it goes to Column No. 1 of
> that row, how can I set the Column No. 3 ?
>
> I tried using Position Cursor of Column No. 3 and set the Indicator but
> after putting the Indicator *On, it goes to Row No. 1, Column No. 3.
>
> Any idea please ?
>
> 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.
>
>
> -- 
> 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.
>
>