(MPE) Alpha Lookup Screen Using Image B-Tree

[Pickering, John (NORBORD)]

Why make it so complicated??

How about getting rid of the TEMPs and the DEFINE and changing your access
statement to this:

>access via MIG-CMD-NAME &
>  using tru(MIG-CMD-NAME) + "@" &
>  request MIG-CMD-NAME

Regards,
JWP

-----Original Message-----
From: Blair Combs [mailto:combblai at isu.edu]
Sent: Wednesday, October 26, 2005 12:33 PM
To: Powerhouse Listserv
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

*** screen source end ***