09 de Mayo . Ejercicio 1 Control 1

set serveroutput on;

declare

cursor crListaEmpleado is
  select FIRST_NAME, LAST_NAME, SALARY from employees
  order by LAST_NAME;
 
  recEmpleado crListaEmpleado%ROWTYPE;
  cnt integer := 0;

begin
open crListaEmpleado;
loop
  fetch crListaEmpleado into recEmpleado;
  exit when crListaEmpleado%NOTFOUND;
  dbms_output.put_line(recEmpleado.FIRST_NAME || ' ' || recEmpleado.LAST_NAME || ' ' || recEmpleado.SALARY);
  cnt := cnt + 1;
end loop;
close crListaEmpleado;
dbms_output.put_line('El total de empleados es: ' || cnt);

exception
  when OTHERS then
  dbms_output.put_line('esta malo aweonao');

end;