Comment **** extract the first x records for a given selection
set safety off
DIALOG (DIALOG TITLE "User Dialog" WIDTH 484 HEIGHT 296 ) (BUTTONSET TITLE "&OK;&Cancel" AT 370 12 DEFAULT 1 ) (TEXT TITLE "Selects first x records for given criteria" AT 36 28 ) (TEXT TITLE "Select table" AT 48 76 ) (ITEM TITLE "f" TO "v_infile" AT 84 132 WIDTH 271 HEIGHT 135 )

OPEN %v_infile%

DIALOG (DIALOG TITLE "User Dialog" WIDTH 484 HEIGHT 346 ) (BUTTONSET TITLE "&OK;&Cancel" AT 370 12 DEFAULT 1 ) (TEXT TITLE "Select field for criteria" AT 12 40 ) (ITEM TITLE "C" TO "v_field" AT 72 108 WIDTH 262 HEIGHT 184 ) (TEXT TITLE "Max records to select" AT 48 256 ) (EDIT TO "v_ctr" AT 204 252 WIDTH 28 DEFAULT "5" )

Prev_criteria=blanks(50)
ctr=1
SORT on %v_field% to temp OPEN
GROUP if prev_criteria<>%v_field%
EXTRACT RECORD to outfile
prev_criteria=%v_field%
ctr=2
ELSE if prev_criteria=%v_field% and ctr<=%v_ctr%
Extract RECORD to outfile
Ctr=ctr+1
ELSE
prev_criteria=%v_field%
END

DELETE temp.fil OK
DELETE format temp OK
DELETE prev_criteria OK
set safety on