Quick and OMNIDEX.

[georgia miller]

Leo,

If you have already done an Omnidex find during the session using another key, you must have a initialize procedure like the one shown below.  I have not tested Omnidex on vs 8.19.C3 yet on MPEix, but am hoping it will work the same.  Try putting in a similar INITIALIZE Procedure.  I am very short of time, so am not changing the code to match what you are doing.  

;must add this initalize procedure
 PROCEDURE INITIALIZE
   BEGIN
   GET VENDOR-MASTER SEQUENTIAL
   LET CONTROL-CMD = "BASEID($LASTGET);"
   DO EXTERNAL OMNIFINDCONTROL(CONTROL-CMD, BUFFER,MESSAGE)
   IF MESSAGE <> ""
     THEN ERROR = MESSAGE
     ELSE LET BASE-ID = LJ(TRUNC(BUFFER))
   END

Georgia Miller
____________________________________________________________________

>To: powerh-l@lists.swau.edu
>From: Leo Leal on Tue, Jun 8, 1999 11:02 AM
>Subject: Quick and OMNIDEX.
>
>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.

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
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.