|
midrange.com
Sadly, one can not set the cursor location using the 'field' varible which
RTNCSRLOC uses - though I suppose this wouldn't really work for subfiles
anyway, since field names are the same for each row. Nor can you use the
row/column varibles from RTNCSRLOC to set the cursor location. RTNCSRLOC
is read only.
I still think that your best option is the CSRLOC method. When I am stuck
using this, I set up constants for the field locations in order to make my
program more readable. For example:
D ORIGIN_CODE_ROW...
D C 03
D ORIGIN_CODE_COL...
D C 10
D CURRENCY_ROW...
D C 22
D CURRENCY_COL...
D C 29
then I can say:
select;
when (errorInfo.errorCode = ORIGIN_ERROR);
if (NOT posSet);
scCsrRow = ORIGIN_CODE_ROW;
scCsrCol = ORIGIN_CODE_COL;
posSet = *ON;
endif;
when (errorInfo.errorCode = CURRENCY_ERROR);
if (NOT posSet);
scCsrRow = CURRENCY_ROW;
scCsrCol = CURRENCY_COL;
posSet = *ON;
endif;
endsl;
You also need the following in the DDS:
A CSRLOC(SCCSRROW SCCSRCOL)
A SCCSRROW 3S 0H
A SCCSRCOL 3S 0H
Another benefit being that if I need to move the origin code field I only
need to change the values in one place and recompile.
Hope this helps,
Adam
rpg400-l-bounces@xxxxxxxxxxxx wrote on 10/04/2006 05:03:07 PM:
> 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.
>
#####################################################################################
Attention:
The above message and/or attachment(s) is private and confidential and is
intended
only for the people for which it is addressed. If you are not named in the
address
fields, ignore the contents and delete all the material. Thank you.
For more information on email virus scanning, security and content
management, please contact administrator@xxxxxxxxxxxx
#####################################################################################
As an Amazon Associate we earn from qualifying purchases.
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.
