DEFINE TEMP-TABLE ttA NO-UNDO
FIELD customer_id AS INTEGER LABEL "ID"
INDEX ttAix IS UNIQUE PRIMARY customer_id.
DEFINE TEMP-TABLE ttB NO-UNDO
FIELD customer_id AS INTEGER LABEL "ID"
FIELD customer_name AS CHARACTER LABEL "Name"
INDEX ttBix IS UNIQUE PRIMARY customer_id.
CREATE ttA. ttA.customer_id = 1.
CREATE ttA. ttA.customer_id = 2.
CREATE ttA. ttA.customer_id = 3.
CREATE ttA. ttA.customer_id = 4.
CREATE ttB. ASSIGN ttB.customer_id = 1 ttB.customer_name = "One".
CREATE ttB. ASSIGN ttB.customer_id = 2 ttB.customer_name = "Two".
CREATE ttB. ASSIGN ttB.customer_id = 3 ttB.customer_name = "Three".
CREATE ttB. ASSIGN ttB.customer_id = 4 ttB.customer_name = "Four".
DEF VAR hbr AS HANDLE.
DEF VAR hfr AS HANDLE.
DEF VAR hq AS HANDLE.
CREATE FRAME hfr ASSIGN
WIDTH = 75
HEIGHT = 10
VISIBLE = TRUE
.
CREATE QUERY hq.
hq:SET-BUFFERS( TEMP-TABLE ttA:DEFAULT-BUFFER-HANDLE, TEMP-TABLE ttB:DEFAULT-BUFFER-HANDLE ).
hq:QUERY-PREPARE( "FOR EACH ttA, FIRST ttB WHERE ttB.customer_id = ttA.customer_id BY ttB.customer_name" ).
hq:QUERY-OPEN().
CREATE BROWSE hbr ASSIGN
TITLE = "Customers"
FRAME = hfr
QUERY = hq
WIDTH = 74
HEIGHT = 9
VISIBLE = TRUE
SENSITIVE = TRUE
.
hbr:ADD-LIKE-COLUMN( "tta.customer_id" ).
hbr:ADD-LIKE-COLUMN( "ttb.customer_name" ).
WAIT-FOR CLOSE OF THIS-PROCEDURE.
DELETE OBJECT hq.