Quick and OMNIDEX.

[Leo Leal]

Hi all, 

I have a problem with a screen that uses the OMNIFIND intrinsic. The screen
is called from a higher level screen that lists the values from a detail
data set in a cluster. The user does a find and using the OMNIFIND intrinsic
will return a chain of records and display them on the screen. Then we have
a DESIGNER 1 procedure that calls a detail level screen for the record
selected. It is the second screen that we have a problem with. On the second
screen we receive the key value to retrieve the record. This value is used
by the OMNIFIND intrinsic. At debug I can see that the qualifying count was
1 but then the get sequential part of the FIND procedure reads from the
beginning of the data set and does not display the record I selected.

We are using Powerhouse v819c1 on an HP3000 with MPE/ix 6.0.
Here are some snippets of the code.

Main screen call to passing screen.
PROCEDURE DESIGNER 1
  BEGIN
     LET T-PASSING = DIV-CODE OF USF-LEC-COST + &
                     LEC-NO   OF USF-LEC-COST + &
                     OCN-NO   OF USF-LEC-COST + &
                     STATE    OF USF-LEC-COST + &
                     END-DATE OF USF-LEC-COST + &
                     LIBRARY-CODE OF USF-LEC-COST + &
                     ";"
     RUN SCREEN USFCSTXS.QUICKPRG PASSING T-PASSING MODE F
  END

Receiving screen.
PROCEDURE POSTPATH
  BEGIN
  IF PATH = 1
     THEN BEGIN
     LET CONTROL-CMD = "RESET(USF-LEC-COST)"
     DO EXTERNAL OMNIFINDCONTROL(CONTROL-CMD,BUFFER,MESSAGE)
     LET SEARCH-KEY = "USF-LEC-COST.ULC-KEY-NRECID;"
     LET CRITERIA = T-PASSING
     DO EXTERNAL OMNIFIND(SEARCH-KEY,CRITERIA,QUALIFY-COUNT,MESSAGE)
     END

  IF MESSAGE <> ""
     THEN BEGIN
     ERROR = MESSAGE
     END

END

PROCEDURE PATH
  BEGIN
    LET PATH = 1
    END
PROCEDURE FIND
  BEGIN
    GET USF-LEC-COST SEQUENTIAL
    END

Thanks
Leonel Leal II
Programmer/Analyst
Billing Concepts
Direct: 210-949-7268
E-mail: leo.leal@billingconcepts.com

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.