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 where pt1.f1 = 1").

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.

    end.

    vhIBuffer::f3 = 3.

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

        vhIQuery:get-next(exclusive-lock).

    end.

    if vhIQuery:query-off-end then do:

        vhIBuffer:buffer-create().

        assign vhIBuffer::f1 = 2

               vhIBuffer::f2 = 2

               vhIBuffer::f3 = 3.

    end.

end.

FOR EACH pt1.

    DELETE pt1.

END.