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