## 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