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: 01/30/2023