begin program
## ename character_string ename(26)
## eno   integer
## ingres "personnel"
## range of e is employee
## declare cursor c1 for retrieve (e.empname, e.empnum)
##    where e.empnum 1000
## open cursor c1
loop until no more rows
##  retrieve cursor c1 (ename, eno)
    print ename, eno
 end loop
## close cursor c1
## exit
end program