## activate menuitem "bottom"
## {
##   scroll empform employee to end
## }
## activate menuitem "top"
## {
##   scroll empform employee to 1
## }
## activate menuitem "middle"
## {
##   inquire_frs table empform (rows = datarows(employee))
     rows = rows/2
     if (rows > 0) then
##         scroll empform employee to rows
     end if
## }

## activate menuitem "find"
## {
    /* prompt for name to search for */
##  prompt ("lastname to search for: ", searchname)
    /* loop through data set and stop when name is found.*/
##  unloadtable empform employee (vname = ename,
##                                record = _record)
##  {
         if (vname = searchname) then
         /* scroll to record with specified name. */
##            scroll empform employee to record
##            resume field employee
         end if
##  }
    /* all rows in data set searched and name not found. */
##  message "cannot find named employee."
##  sleep 2
## }