Using Resume Statements
In the following example, if the column contains good data, resume next is used to advance the cursor to the next field. If the column does not contain good data, resume returns the cursor to the column:
/* assume previous declarations, plus ... */
## rowcount integer
## activate column employee ename
## {
## getrow empform employee (vname = ename)
## retrieve (rowcount = count (employee.all))
## where employee.ename = vname
if (rowcount = 0) then
/* the name is unique, so continue. */
## resume next
else
/* the name is not unique, so remain on column. */
## message "employee name must be unique"
## sleep 2
## resume
end if
## }
Last modified date: 08/28/2024