World of Shareware - Software Farm 2/wosw_2.zip/wosw_2/DATABASE/DO1BETA.ZIP/DBFTEST.DO

Text File | 1991-08-25 | 399b | 14 lines

/*
    create a menu of all the last names within a range
    of records in the dbf file
    NOTE - you must run the CRDEMO.DO file before running this program
*/
d = new(Dbffile,"patient");
setFilter(d,#(recno(d) >= 8L) & (recno(d) <= 15L));
a = sort(asCollection(d,#trim(lname)));
m = new(Menu,80,3,3,5,31,3,a," Last Name ");
c = choice(m,1);
remove(m);
? "your menu choice was ",c;
close(d);