6. QUEL and EQUEL Statements : Replace Cursor Statement—Update Column Values in a Table Row : Example
 
Share this page                  
Example
This example gives all employees except employee number 150 a 30% raise:
## range of e is employee
## declare cursor cursor1 for
##  retrieve (e.empname, e.empnum, sal = e.salary)
##  where e.empnum <> 150
##  for update of (salary)

## loop until no more rows 
##  retrieve cursor cursor1 (namevar, numvar, salvar)

/* last row? */
##   inquire_ingres (thatsall = endquery)
if thatsall = 0 then
    if salvar < 30,000 then
##   replace cursor cursor1 (salary = salvar * 1.3)
    end if
  end if

  end loop