FOR EACH Customer NO-LOCK:
DISPLAY Customer WITH FRAME cust-frame 2 COLUMNS
TITLE "CUSTOMER INFORMATION".
FOR EACH Order OF Customer NO-LOCK:
DISPLAY Order.OrderNum Order.OrderDate Order.ShipDate
Order.PromiseDate Order.Carrier Order.Instruction Order.PO
WITH 2 COLUMNS 1 DOWN OVERLAY TITLE "CUSTOMER’S ORDERS"
ROW FRAME-ROW(cust-frame) + 8 COLUMN FRAME-COL(cust-frame) + 1.
END.
END.
|