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

[Peter Bateman]

Hi John:

    That is true but only if full key is not on file. i.e. ABC<blank><blank> 
... etc.
    If ABC<blank><blank> ... etc. is onefile then PATH = 1 which returns the
    rows with just ABC<blank><blank> ... etc.

Regards,
Peter Bateman



>From: "Pickering, John (NORBORD)" <John.Pickering at norbord.com>
>To: "Peter Bateman" 
><peterbateman808 at hotmail.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 16:26:08 -0400
>
>Peter
>
>Please read that select statement again!
>
> >Select if t-saved-value = key of
>master-file[1:size(tru(t-saved-value))]
>
>If the user enters 'ABC' the my method will get all records that start
>with 'ABC'.
>
>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 Peter Bateman
>Sent: Thursday, September 13, 2007 4:01 PM
>To: powerh-l at lists.sowder.com
>Subject: RE: Help with SELECT in QUICK (ver 8.49.D1) on HP3000
>
>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
> >
> >--

_________________________________________________________________
Windows Live Hotmail. Even hotter than before. Get a better look now. 
www.newhotmail.ca?icid=WLHMENCA148