(MPE) Alpha Lookup Screen Using Image B-Tree

[Joe Boyle]

it could be that there is only one match against the value entered - try two 
ats e.g. '+ "@@" ' instead.

Also, try the code below as it might be that the full 8 chars are being 
entered,
def  D-NAME    char*10 = TRUNCATE(TEMP-NAME) + "@@".

Failing that, make D-NAME a temp also and do a let to it in a postpath 
procedure - it can sometimes help to make all the temps 'reset at startup'.

regards Joe.

----- Original Message ----- 
From: "Blair Combs" <combblai at isu.edu>
To: "Powerhouse Listserv" <powerh-l at lists.sowder.com>
Sent: Wednesday, October 26, 2005 5:33 PM
Subject: (MPE) Alpha Lookup Screen Using Image B-Tree


>I am attempting to setup an alpha lookup screen using an image b-tree
> but am having difficulty.
>
> The basic skeletons of the dictionary and screen below only shows the
> first record matching the selection.
>
> Any assistance would be appreciated.
>
> Additional Question:  When I/we get this working will it also work on
> Unix with Eloquence?
>
> *** dictionary record start ***
>
> RECORD MIG-CMD-CODE-A   ORGANIZATION AUTOMATIC MASTER INDEXED
>  ITEM MIG-CMD-NAME     DATATYPE CHARACTER SIZE 8
> INDEX MIG-CMD-NAME
>  SEGMENT MIG-CMD-NAME
>
> *** dictionary record end ***
>
> *** screen source start ***
>
> screen MIGQSALP receiving TEMP-ID act find
> ;
> temp TEMP-ID   char*8
> temp TEMP-NAME char*8
> def  D-NAME    char*8 = TRUNCATE(TEMP-NAME) + "@"
> ;
> file MIG-CMD-CODE-A occurs 15
>     access viaindex MIG-CMD-NAME generic &
>            using D-NAME request TEMP-NAME
> ;
> ; ** There seems to be some confusion in the doc
> ; ** concerning generic vs nogeneric
> ;
> align (,3,10)
> field TEMP-NAME
> ;
> align (5,,10)
> cluster occurs with MIG-CMD-CODE-A
> field MIG-CMD-NAME of MIG-CMD-CODE-A
> cluster
> ;
> procedure designer 1
> begin
>    let TEMP-ID = MIG-CMD-NAME of MIG-CMD-CODE-A
>    RETURN
> end
>
> *** dictionary screen source start ***
>
>
> -- 
> = = = = = = = = = = = = = = = = = = = = = = = = = = = =
> Mailing list: powerh-l at lists.sowder.com
> Subscribe: "subscribe" in message body to 
> powerh-l-request at lists.sowder.com
> Unsubscribe: "unsubscribe &lt;password&gt;" 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.
>