|
midrange.com
Lugman,
It appears to me that you need to use the display attribute of position
cursor. For column 1, assign indicator *In61, for column 2, *in62, etc...
If you are going to have more than one page in the subfile, you will need
to use the page function.
AnyErrors = *Off;
DoW not *InKC;
// Reload the whole subfile when there are no errors.
If not AnyErrors; // Indicator
ExSr LoadSubFile#;
EndIf;
Write Footer;
Exfmt SubFCtrl;
AnyErrors = *Off;
If *InKC;
Leave;
EndIf;
ValidateSubfile#;
If AnyErrors;
ItEr;
EndIf;
... Do whatever
EndDo;
// ------------------
// ------------------
BegSr ValidateSubfile#;
// Check subfile in reverse order, so that the first
// error is position to.
For SFREC# = SFMAX DownTo 1;
Chain (SFREC#) Subfile;
If not %Found(DisplayFile);
Leave;
EndIf;
*In63 = *Off;
If Column2 is not Valid; // on SFREC# only
*In63 = *On;
EndIf;
*In62 = *Off;
If Column2 is not Valid; // on SFREC# only
*In62 = *On;
EndIf;
*In61 = *Off;
If Column1 is not valid; // on SFREC# only
*In61 = *On;
EndIf;
Update Subfile;
EndDo;
EndSr;
// ------------------
// ------------------
BegSr LoadSubfile#;
Read File;
DoW not %EoF(File);
SFREC# += 1;
*In61 = *Off;
*In62 = *Off;
*In63 = *Off;
Column1 = whatever1;
Column2 = whatever2;
Column3 = whatever3;
Write Subfile;
EndDo;
EndSr;
Michael Schutte
Work 614-492-7419
email michael_schutte@xxxxxxxxxxxx
"Luqman"
<luqman@pearlsoft
.com.pk> To
Sent by: rpg400-l@xxxxxxxxxxxx
rpg400-l-bounces@ cc
midrange.com
Subject
Re: How to Position Cursor to
04/10/2006 05:03 particular Field of
PM ParticularRowinSubfile ?
Please respond to
RPG programming
on the AS400 /
iSeries
<rpg400-l@midrang
e.com>
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.
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.
