AW: How to Position Cursor to particular Field of ParticularRowinSubfile ? -- RPG400-L

Hi,

it's quite easy to position to a specified field in a specified subfile row.
1. you have to define an indicator for the display attribute PC for each of
your columns,
   say column1 = *IN61, column2 = *IN62 ...
2. If you know the relative subfile record no, chain to the subfile record
with this record no.
3. Set on the indicator for the column you want to position to
4. Update the subfile record
5. Move the relative record no to the record no to display
6. Display your subfile

Example DDS - Subfile-Control-Format:
A                                      SFLCSRRRN(&C1RSNR)
A            C1RSF          4S 0H      SFLRCDNBR(CURSOR)
A            C1RSNR         5S 0H

Example DDS - Subfile-Format
A            S1FLD1    R   10A  B 10  2
A  61                                  DSPATR(PC)
A            S1FLD2    R   10A  B 10 24
A  62                                  DSPATR(PC)
A            S1FLD3    R    5A  B 10 36
A  63                                  DSPATR(PC)
A            S1FLD4    R    5A  B 10 44
A  64                                  DSPATR(PC)

Example RPG
 /Free

   If C1RSNR <> *Zeros;
      Chain C1RSNR SubfileF;
      If %Found;
         *IN61 = *Off;
         *IN62 = *Off;
         *IN63 = *On;  //Position to 3. column
         *IN64 = *Off;
         Update SubFileF;
      EndIf;
      C1RSF = C1RSNR;       //Position to SFLROW
   Else;
      C1RSF = 1;
   EndIf;

   ExFmt SflCtlFmt;

 /End-Free

Mit freundlichen Grüßen / Best regards

Birgitta

"Shoot for the moon, even if you miss, you'll land among the stars."
(Les Brown)

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von Luqman
Gesendet: Montag, 10. April 2006 23:03
An: rpg400-l@xxxxxxxxxxxx
Betreff: Re: How to Position Cursor to particular Field of
ParticularRowinSubfile ?


I think you all misunderstood my question, my question is not positioning to
particular row, but positioning to particular column.

Ok, lets do it like this.

When my screen of sub file is displayed having 04 rows and 03 columns, the
cursor should be on the 3rd column of 3rd row, how can I do this.
If I code like this.

sflrcdnbr=3
exfmt ctl

then cursor will go to SubFile Field no. 1 of  SubFile Line no. 1, but I
need the cursor on
SubFile Field no.3 ?

When I say row no. 1 and column no. 3, it does not refer to the AS/400
Screen Row/Column, it refers to SubFile Row(Line No.1) and SubFile Column
(Field No. 3).

The RTNCSRLOC(FLD) returns the Current field name.

I even tried using Eval FLD='mqty' which is the 3rd field of Subfile, but
still I can't get the cursor on it.


I hope i made myself clear now.

Best Regards,

Luqman





<jmichael.smith@xxxxxxxxxxx> wrote in message
news:OF18880627.46AB0603-ON0525714C.00571F20@xxxxxxxxxxxxxx
> Using this method will require that you reset the sfline attribute the
> "next" pass through.
>
> The CSRLOC approach does not require this.
>
> Michael
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Lim Hock-Chai
> Sent: Monday, April 10, 2006 10:35 AM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: How to Position Cursor to particular Field of Particular Row
> inSubfile ?
>
> 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.
>
>
>
>
> --------------------------------------------------------------------------
----
> This message contains information from Certegy, Inc which may be
> confidential and privileged.  If you are not an intended recipient, please
> refrain from any disclosure, copying, distribution or use of this
> information and note that such actions are prohibited.  If you have
> received this transmission in error, please notify by e:mail
> postmaster@xxxxxxxxxxxx
>
============================================================================
==
>
> --
> 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.