FWD » Core Development » Database

define variable vhIQuery as handle no-undo.

define variable vhIBuffer as handle no-undo.

create buffer vhIBuffer for table "pt1":U.

create query vhIQuery.

vhIQuery:add-buffer(vhIBuffer).

vhIQuery:forward-only = true.

vhIQuery:query-prepare("for each pt1").

vhIQuery:query-open().

do transaction:

    vhIQuery:get-first(exclusive-lock).

    if not vhIBuffer:available then do:

        vhIBuffer:buffer-create().

        assign vhIBuffer::f1 = 1

               vhIBuffer::f2 = 2.

        message "created record 1".

    end.

    if not vhIQuery:query-off-end then do:

        vhIQuery:get-next(exclusive-lock).

        message "get-next".

    end.

    if vhIQuery:query-off-end then do:

        message "query should be off-end".

    end.

end.

for each pt1.

    delete pt1.

end.