|
Hi, Can you please explain how to use Page function ? Best Regards, Luqman <Michael_Schutte@xxxxxxxxxxxx> wrote in message news:OFE6A403F0.63080B8B-ON8525714D.0043B38F-8525714D.0044F075@xxxxxxxxxxxxxxx > 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. > > > > -- > 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.
midrange.com
