For Missing Question

[Terry Pickering]

I have a file that I want to display in a cluster where the order is 
different than any of the indexes in the file. I have another file though 
that I could use to "drive" this primary file so they would be retrieved in 
the order I want. In this case I want to retrieve them in customer-num 
order, which is not an index on WPS-PO-MST but is on GLS-PO-DRIVER.

The driver file (GLS-PO-DRIVER) has multiple records for the same 
VENDOR-NUM. After entering the VENDOR-NUM, then I do WHILE RETRIEVING for 
all of these records and retrieve the primary record (WPS-PO-MST) and 
display them.

The problem I'm having is that it will only display up to the number of 
records in the "cache" and no further. In the example below I've purposely 
set the cache to a low number for testing purposes, but it works the same 
way at 255. After displaying the last record in the cache, it starts over 
with the first record.

If I take the "MISSING" off of the FOR statement, I only get one record 
displayed. There are several hundred records in GLS-PO-DRIVER for this 
VENDOR-NUM.

I've tried not using caching at all, and get the same results.

Here is my sample screen:




SCREEN GLS_EXE:TPK016  ACTIVITIES FIND

FILE WPS-PO-MST PRIMARY    OCCURS 14 CACHE 20

FILE GLS-PO-DRIVER DESIGNER

FIELD VENDOR-NUM OF GLS-PO-DRIVER

CLUSTER OCCURS WITH WPS-PO-MST
ALIGN (1,,1) (10,,10)
FIELD PO-NUM OF WPS-PO-MST SIZE 6
FIELD CUSTOMER-NUM OF WPS-PO-MST

;*********************** PROCEDURES ***************************

;************************
PROCEDURE PATH
;************************
BEGIN
   REQUEST VENDOR-NUM OF GLS-PO-DRIVER
   LET PATH = 1
END

;************************
PROCEDURE INTERNAL GET-WPS-PO-MST
;************************
BEGIN
    FOR MISSING WPS-PO-MST
       BEGIN
         GET WPS-PO-MST VIA PO-NUM USING PO-NUM OF GLS-PO-DRIVER
       END
END

;************************
PROCEDURE FIND
;************************
   BEGIN
     WHILE RETRIEVING GLS-PO-DRIVER VIAINDEX VENDOR-CUSTOMER-KEY &
           USING VENDOR-NUM OF GLS-PO-DRIVER
     DO INTERNAL GET-WPS-PO-MST
END

BUILD

Terry Pickering
Eugene School District 4J
(503) 687-3416


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