Help with SELECT in QUICK (ver 8.49.D1) on HP3000

[Peter Bateman]

Hi Chuck:

  I am presuming that the client enters the whole key or first part of the 
key.

  Image now has b-tree indexed keys. If you have  indexed on the key of the 
master.

  temporary t-key char * <n> reset at startup
  File my-detail primary
  Access via Key request key using (tru (t-key) + '@')

  Procedure input key
  begin
     if FINDMODE
       then let t_key = fieldtext
  end
This should make the "Select" go faster.
Some consideration should be given to trailing blanks.
Suppose 'ABC ' is on file and also 'ABCD'. and the client entered 'ABC'
John's method would give you just the records with 'ABC ' whereas my
method woud give you both. You could combine both method if that
is desired.

Regards,
Peter Bateman

>From: "Pickering, John (NORBORD)" <John.Pickering at norbord.com>
>To: "Lowe, Chuck J" <Chuck.J.Lowe at questdiagnostics.com>,        
><powerh-l at lists.sowder.com>
>Subject: RE: Help with SELECT in QUICK (ver 8.49.D1) on HP3000
>Date: Thu, 13 Sep 2007 11:14:28 -0400
>
>You could do this with custom Path and Find procedures. But you're
>opening yourself up for a lot of work because the lazy users will like
>how it works and want the same function everywhere!
>
>Request the key in the path procedure. Check if the master record exists
>by doing a "get file optional" right there in the path procedure. If the
>record exists (accessok) then "let path = 1" otherwise "let path = 2".
>You will also need to save the value that the user entered in a temp
>with a "reset at startup"
>
>In the find procedure you should test the value of path and either get
>the master via the key using the value that was entered or get the
>master file sequentially. This is pretty much the default find procedure
>but if I write a path procedure then I always write the find procedure.
>There should be a select clause on the file statement to select records
>for which part of the key matches the value the user entered. Something
>like:
>   Select if t-saved-value = key of
>master-file[1:size(tru(t-saved-value))
>
>It will take you a couple of tries to get it working! Have fun :-)
>
>Regards,
>JWP
>
>-----Original Message-----
>From: powerh-l-bounces+john.pickering=norbord.com at lists.sowder.com
>[mailto:powerh-l-bounces+john.pickering=norbord.com at lists.sowder.com] On
>Behalf Of Lowe, Chuck J
>Sent: Thursday, September 13, 2007 10:34 AM
>To: powerh-l at lists.sowder.com
>Subject: Help with SELECT in QUICK (ver 8.49.D1) on HP3000
>
>I have a quick screen that access a Manual Master in Turbo-Image. What I
>need to do is if the user can't find a record (in Find mode) it will do
>a Select without the user having to enter S in the mode and without the
>user having to put a '@' after the value.
>
>Thanks in Advance!
>
>Chuck Lowe
>
>--
>= = = = = = = = = = = = = = = = = = = = = = = = = = = =
>Mailing list: powerh-l at lists.sowder.com
>Subscribe: &quot;subscribe&quot; in message body to 
>powerh-l-request at lists.sowder.com
>Unsubscribe: &quot;unsubscribe &lt;password&gt;&quot; in message body to 
>powerh-l-request at lists.sowder.com
>http://lists.sowder.com/mailman/listinfo/powerh-l
>This list is closed, thus to post to the list you must be a subscriber.
>Add 'site:lists.sowder.com powerh-l' to your search terms to search the 
>list archive at Google.

_________________________________________________________________
See Fireworks On Live Image Search 
http://search.live.com/images/results.aspx?q=Fireworks&mkt=en-ca&FORM=SERNEP