Returns a DECIMAL value that is the column position of the left corner of a frame within its window.
This procedure displays Customer information in one frame, then displays Order information in an overlay frame. FRAME-ROW places the overlay frame on the ninth row of the second column. FRAME-COL places the overlay frame on the first column of the first frame.
r-frcol.p
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.Instructions 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. |