|
Mark, > > > > But wouldn't you use the dynamic sort if you did it that way? > > did you mean "lose" instead of "use"? :) That is initially why I started to use embedded sql for display file pgms - so the user could change the sort or view of the subfile without my having a bunch of logical files defined in the f-specs. Now I'm a convert especially since I can use the same knowledge and experience in most other languages. Unless there are requirements that dictate otherwise, I'll never use native I/O in display pgms again. When you use position-to, your users can't page up before the value they positioned to? Phil > -----Original Message----- > From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On > Behalf Of MWalter@hanoverwire.com > Sent: Monday, October 29, 2001 1:03 PM > To: rpg400-l@midrange.com > Subject: RE: Position To in a display file pgm using embedded sql > > > > I usually use embedded SQL to provide dynamics sorting on a subfile. I > also provide a position to by adding a where clause in the SQL. > If you went > back to native I/O, you would loose the dynamic sorting capabilities. > > > Thanks, > > Mark > > > Mark Walter > Sr. Programmer/Analyst > Hanover Wire Cloth a div of CCX, Inc. > mwalter@hanoverwire.com > http://www.hanoverwire.com > 717.637.3795 Ext.3040 > > > > "Phil" > <sublime78ska@yah To: > <rpg400-l@midrange.com> > oo.com> cc: > Sent by: Subject: RE: > Position To in a display file pgm using embedded sql > rpg400-l-admin@mi > drange.com > > > 10/29/01 12:22 PM > Please respond to > rpg400-l > > > > > > > What do you mean? > > Phil > > > -----Original Message----- > > From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On > > Behalf Of MWalter@hanoverwire.com > > Sent: Monday, October 29, 2001 8:55 AM > > To: rpg400-l@midrange.com > > Subject: Re: Position To in a display file pgm using embedded sql > > > > > > > > But wouldn't you use the dynamic sort if you did it that way? > > > > > > Thanks, > > > > Mark > > > > > > Mark Walter > > Sr. Programmer/Analyst > > Hanover Wire Cloth a div of CCX, Inc. > > mwalter@hanoverwire.com > > http://www.hanoverwire.com > > 717.637.3795 Ext.3040 > > > > > > > > "Peter Dow" > > <pcdow@yahoo.com> To: > > <rpg400-l@midrange.com> > > Sent by: cc: > > rpg400-l-admin@mi Subject: Re: > > Position To in a display file pgm using embedded sql > > drange.com > > > > > > 10/28/01 12:52 PM > > Please respond to > > rpg400-l > > > > > > > > > > > > > > Hi Phil, > > > > Oops, I misunderstood the question. Hmm, I see what you mean. To page up > > from the first page of your record set, you'd have to have a select <=, > > then > > fetch *last followed by fetch *prior. Sounds messy. You're > right, a fetch > > by > > key would be nice -- select the entire record set, then fetch by key to > > position within it. You could probably cobble something like that > together > > by loading a user index based on the entire record set, then loading the > > subfile from that. By putting all the busy work in procedures the > > main code > > wouldn't be too bad. > > > > But it sounds like this is a case where Joe Pluta's correct - building a > > logical file and using native i/o (setll, read, readp) seems simpler, > > faster > > and cleaner. > > > > Regards, > > Peter Dow > > Dow Software Services, Inc. > > 909 425-0194 voice > > 909 425-0196 fax > > > > > > From: "Phil" <sublime78ska@yahoo.com> > > > Peter, > > > > > > That is how I handle page-up normally. > > > > > > The problem I'm having is that inorder to do a PositionTo I have to > > include > > > a where clause on the select statement: > > > > > > C eval @select1 = > > > C 'select * from rbsurchgp + > > > C where rbcco = ' + %editc(cpy:'X') > > > C if PosToInd = *on > > > C eval @select1 = @select1 + > > > C ' and rbccus >= ' + %editc(posToCus:'X') > > > C endif > > > C eval @select1 = @select1 + > > > C ' order by rbcco, rbccus ' > > > C > > > > > > If the user presses the F-key to bring up the position-to window, and > > > doesn't press cancel, I set on an indicator (PosToInd) and > then add the > > > where clause. > > > > > > Now the cursor contains records >= to the position-to value. > > So what I'm > > > looking for is another way to position-to. What I want is a fetch > > relative > > > where I can use the key rather than a rrn. > > > > > > > > _________________________________________________________ > > Do You Yahoo!? > > Get your free @yahoo.com address at http://mail.yahoo.com > > > > _______________________________________________ > > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing > list > > To post a message email: RPG400-L@midrange.com > > To subscribe, unsubscribe, or change list options, > > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l > > or email: RPG400-L-request@midrange.com > > 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@midrange.com > > To subscribe, unsubscribe, or change list options, > > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l > > or email: RPG400-L-request@midrange.com > > Before posting, please take a moment to review the archives > > at http://archive.midrange.com/rpg400-l. > > > > > _________________________________________________________ > Do You Yahoo!? > Get your free @yahoo.com address at http://mail.yahoo.com > > _______________________________________________ > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list > To post a message email: RPG400-L@midrange.com > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l > or email: RPG400-L-request@midrange.com > 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@midrange.com > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l > or email: RPG400-L-request@midrange.com > Before posting, please take a moment to review the archives > at http://archive.midrange.com/rpg400-l. > _________________________________________________________ Do You Yahoo!? Get your free @yahoo.com address at http://mail.yahoo.com
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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
