QUICK question on Select
Nancy Tietz
ntietz@MCARE.MED.UMICH.EDU
Thu, 20 Dec 2001 12:55:53 -0500
I hope all the Quick/Qdesign programmers are not on vacation!
I want to be able to select records from a dataset where a literal is found
somewhere within one of the fields. The literal is to be typed in by the
user in the screen.
Here is a piece of the code. It doesn't work. It doesn't find any records.
(Of course I have records in the dataset that match "CODE" or other words.)
Once I added "TRU" in the Select statement, it doesn't even display all of
the records like it used to when I typed a Space in.
102 TEMP T-SEARCH CHAR*20 INI " " RESET AT MODE
103 TEMP T-SEARCH2 CHAR*20 INI " " RESET AT STARTUP
104 TEMP T-DESC1 CHAR*60 INI " " RESET AT STARTUP
105
106 FILE CONTROL-I1502F PRI OCCURS 13 TIMES CACHE 100
107 ACCESS SEQ REQUEST T-SEARCH
108 SELECT CNTL-KEY[1:4] = "DQIP" AND &
109 CNTL-KEY <> "DQIPDATES" AND &
110 0 <> INDEX(T-DESC1,TRU(T-SEARCH2))
111 ;** INDEX tells us if t-search is in cntl-description
....
195 PROCEDURE PATH
196 BEGIN
197 REQUEST T-SEARCH
198 IF PROMPTOK
199 THEN LET PATH = 1
200 IF PATH = 0
201 THEN ERROR "Please enter a DQIP search word."
202 END
203
204 PROCEDURE FIND
205 BEGIN
206 FOR MISSING CONTROL-I1502F
207 BEGIN
208 GET CONTROL-I1502F SEQUENTIAL
209 LET T-DESC1 = UPS(CNTL-DESCRIPTION)
210 LET T-SELECT-REPORT = CNTL-DESCRIPTION[60:1]
211 LET T-SEARCH2 = UPS(T-SEARCH)
212 END
Thank you for any help I can get.
Nancy