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.