QUEL Reference Guide > QUEL Reference Guide > QUEL and EQUEL Statements > REPLACE CURSOR--Update Column Values in a Table Row > REPLACE CURSOR Example
Was this helpful?
REPLACE CURSOR 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
Last modified date: 08/14/2024