|
In the end, I did this with an SQLRPGLE program, mostly because SQL has
such a fantastic wildcard search capability. This allows the users to
search by unique characters - both "ABC" and "Toy" will get "The ABC Toy
Company". Plus, with SQL it can be case-insensitive. I would add this:
this is more than position-to. Its selecting only desired records.
This is a link: http://www.martinvt.com/SQL_-s
imple-/SQL_Name_Editor/SQL_Names_Index/sql_names_index.html
This is the wildcard search (very simple, very fast):
****
****
wSRCHCOMP = %trim(SRCHCOMP) + '%'
exec sql declare C1 cursor for // define data to be retrieved
select *
from NAMESP
where NACOMPANY like :wSRCHCOMP
order by NACOMPANY, NALAST;
...
dow Sqlcode = 0 and SF1NUM < cLimitSFL; // Table read loop
select;
when wCursor = 'C1';
exec sql fetch C1 into :RecordDS;
...****
****
disclaimer: I am new with SQL. There probably are better SQL solutions,
but this worked for me.
****
On 12/14/2016 9:18 AM, Bill Howie wrote:
Hello all,
Question for the group. I have the need to add "position to"
functionality
to a subfile program. In this scenario, my subfile has one field which is
a bin location in a warehouse. The one field could look something like
"OVER-1A". I want the user to be able to key in just the letter "O" in a
field on the subfile screen and have the subfile display starting with the
records that begin with "O" and going from there. Is it just as simple as
doing a SETLL with the "O" as the key and it will read the records from
there on or is there more to it than that? Any info is as always
appreciated. Thanks!
Bill
--
This is the RPG programming on the IBM i (AS/400 and 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.
Please contact support@xxxxxxxxxxxx for any subscription related
questions.
Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD
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.