GeMIS_WEB/GUI/Tools/test.p

def input parameter ipBuffer AS HANDLE.

def var ix as int.
def var hquery as handle.

create query hquery.
hquery:set-buffers(ipbuffer).
hquery:query-prepare('for each ttest no-lock').
hquery:query-open().
hquery:get-first().

do while not hquery:query-off-end:
    do ix = 1 to ipBuffer:num-fields:
        message ipBuffer:buffer-field(ix):name '/' ipBuffer:buffer-field(ix):buffer-value
                view-as alert-box.
    end.
    hQuery:get-next().
end.

hquery:query-close().
delete object hquery.