Scroll
Performs a table field scroll.
Examples--scroll statement:
Example 1:
These operations perform target scrolls to the bottom, top and middle of the data set:
## 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
## }
Example 2
This example enables the user to find a particular record in the data set:
## 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
## }
Last modified date: 08/14/2024