I. EQUEL/FORMS Examples : Extended Examples : Using Resume Statements
 
Share this page                  
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
## }