QUICK question on Select
Nancy Tietz
ntietz@MCARE.MED.UMICH.EDU
Thu, 20 Dec 2001 13:03:52 -0500
Sorry, here is my environment info:
Q D E S I G N (PowerHouse 8.19.C2)
Copyright 1998 COGNOS INCORPORATED
On an HPe3000 using an Image database.
HPCPUNAME = SERIES 939
Nancy
-----Original Message-----
From: Nancy Tietz [mailto:ntietz@mcare.med.umich.edu]
Sent: Thursday, December 20, 2001 12:56 PM
To: powerh-l@lists.swau.edu
Subject: QUICK question on Select
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
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l@lists.swau.edu
Subscribe: "subscribe" in message body to powerh-l-request@lists.swau.edu
Unsubscribe: "unsubscribe" in message body to
powerh-l-request@lists.swau.edu
http://lists.swau.edu/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.