Prodataset

How do I limit the no of display records in browser using prodataset ?

I want to return and display next available 10 records on click of button.

I am writing program like below but its not completed yet. 

Is there any prodataset property or method available to limit the display records in browser ?

DEFINE TEMP-TABLE tt_procm
FIELD lice_id LIKE ProcMain.lice_id
FIELD proc_id LIKE ProcMain.proc_id
.

DEFINE VARIABLE hObj AS HANDLE NO-UNDO.

DEFINE QUERY q1 FOR ProcMain. 
DEFINE QUERY q2 FOR tt_procm. 

DEFINE BROWSE b1 QUERY q2 DISPLAY tt_procm.lice_id tt_procm.proc_id 
WITH 10 DOWN TITLE "ProcMain Browse". 

DEFINE BUTTON btnNext LABEL "Next".

DEFINE FRAME f1 b1 btnNext
WITH SIDE-LABELS AT ROW 2 COLUMN 2. 

DEFINE DATASET DsProcm FOR tt_procm.
DEFINE DATA-SOURCE DsrProcm FOR QUERY q1.

hObj = DATASET DsProcm:HANDLE.

BUFFER tt_procm:ATTACH-DATA-SOURCE(DATA-SOURCE DsrProcm:HANDLE).

RUN proc_getrecords.

ENABLE b1 btnNext WITH FRAME f1. 

/* Button trigger */
ON 'choose':U OF btnNext
DO:
RETURN.
END.

WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW. 

PROCEDURE proc_getrecords:

DATASET DsProcm:EMPTY-DATASET.
EMPTY TEMP-TABLE tt_procm.

QUERY q1:QUERY-PREPARE("FOR EACH procmain no-lock").
hObj:FILL().

OPEN QUERY q2 FOR EACH tt_procm. 

END PROCEDURE.