DEFINE VARIABLE h AS HANDLE NO-UNDO.
DEFINE VARIABLE h1 AS HANDLE NO-UNDO.
DEFINE VARIABLE c1 AS CHARACTER NO-UNDO.

RUN obj_query.p PERSISTENT SET h.
RUN Init IN h ("Test").

RUN SetAttr IN h ("BufferList", "").
RUN SetAttr IN h ("QueryText", "").

RUN OpenQuery IN h.

RUN MoveCursor IN h ("FIRST").

/* Try to use the GetField methods */

RUN GetField IN h ("", OUTPUT c1).

DISPLAY c1.

RUN GetField IN h ("", OUTPUT c1).

DISPLAY c1

/* Try using the buffer tools */

RUN GetBuffer IN h ("", OUTPUT h1).

FIND NO-LOCK
WHERE ROWID() = h1:ROWID NO-ERROR.

DISPLAY.

/* Test is done - clean up and shutdown */

RUN Destroy IN h.

DELETE PROCEDURE h.