6. QUEL and EQUEL Statements : Delete Cursor Statement—Delete Cursor Row : Example
 
Share this page                  
Example
The following example deletes the row in the "employee" table to which the cursor is pointing:
## declare cursor cursor1 for
## retrieve (employee.empname, employee.empnum)

## open cursor1
 loop until no more rows

## retrieve cursor cursor1 (name, idno)

if idno < 1000 then
    print "deleting " name
## delete cursor cursor1
 end if

end loop