query-handle:DUMP-LOGGING-NOW(reset)
|
DEFINE VARIABLE qh AS HANDLE NO-UNDO.
CREATE QUERY qh. qh:SET-BUFFERS(BUFFER customer:HANDLE). qh:QUERY-PREPARE("FOR EACH customer WHERE customer.custnum < 5"). qh:QUERY-OPEN(). REPEAT: qh:GET-NEXT(). IF qh:QUERY-OFF-END THEN LEAVE. qh:DUMP-LOGGING-NOW(TRUE). END. |