(MPE) Alpha Lookup Screen Using Image B-Tree

[Blair Combs]

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 ***