DEFINE VARIABLE qh AS HANDLE.
DEFINE BUTTON btS LABEL "next".
DEFINE FRAME f
 btS.
def buffer b1 for t3.

CREATE QUERY qh.
qh:SET-BUFFERS(BUFFER b1:HANDLE).
qh:QUERY-PREPARE("FOR EACH b1 WHERE f1_____ > 1").
qh:QUERY-OPEN.
qh:get-next.
    find next t3 where t3.f1 > 1 no-lock.
    
    buffer-copy b1 to t3.
        qh:get-next.
        
    on choose of btS IN FRAME f do:
        find next t3 where t3.f1 > 1 no-lock no-error.
                message available(t3).
    end.
    
    ENABLE btS WITH FRAME f.


WAIT-FOR CLOSE OF CURRENT-WINDOW.