DEFINE TEMP-TABLE customers_d
   field customer_id as INT
   field customer_name as character
   index Idxcustomer_id is unique customer_id
.

DEFINE TEMP-TABLE orders_d
   field customer_id as INT
    field order_amount as int
    
.

create customers_d.
customers_d.customer_id = 1.
customers_d.customer_name = 'John Doe'.

create customers_d.
customers_d.customer_id = 2.
customers_d.customer_name = 'John Smith'.

create orders_d.
orders_d.customer_id = 1.
orders_d.order_amount = 10.

create orders_d.
orders_d.customer_id = 1.
orders_d.order_amount = 20.

create orders_d.
orders_d.customer_id = 2.
orders_d.order_amount = 15.


DEFINE VARIABLE qh AS WIDGET-HANDLE.

CREATE QUERY qh.
qh:add-buffer(BUFFER customers_d:HANDLE).
qh:add-BUFFER(BUFFER orders_d:HANDLE).
qh:QUERY-PREPARE("FOR EACH customers_d, each orders_d of customers_d WHERE orders_d.customer_id = customers_d.customer_id").
qh:QUERY-OPEN.
 
REPEAT WITH FRAME y:
    qh:GET-NEXT().
    IF qh:QUERY-OFF-END THEN LEAVE.
    display qh:GET-BUFFER-HANDLE(1):BUFFER-FIELD('customer_id'):BUFFER-VALUE.
    END.

qh:QUERY-CLOSE().
DELETE OBJECT qh.