lunes, 16 de abril de 2012

Clase 14 de Abril

set serveroutput on;
Declare
vnumempleado empleado.numempleado%type;
vnombre empleado.nombre%type;
cFechNac empleado.fechnac%type;
vedad integer;
Begin
  vnumempleado := '&IngreseNumEmpleado';
 
  select trim(nombre), fechnac into vnombre, vFechNac from empleado where upper(numempleado) = upper(vnumempleado);
 
  vedad := trunc((sysdate-vfechnac)/365);
  dbms_output.put_line('El empleado  '|| vnombre || ' tiene ' || rtrim(vedad) || ' años');
 
  end;
 
  dbms_output.put_line('El Numempleado Ingresado es : ' || vnumempleado);
  select nombre, fechnac into vnombre, vfechnac from empleado
  where upper(numempleado) = upper(vnumempleado);
  dbms_output.put_line('Cuyo nombre es : ' || vnombre);
  dbms_output.put_line('y nacido el : ' || vFechNac);
end;

No hay comentarios:

Publicar un comentario