Clase Sabado 17-12-2011

declare
begin
exception
end
vtipo propiedad.tipo%type
dbms_output.put_line( );
select nombre, sexo
from empleado
declare
 vnombre empleado.nombre%type;
 vsexo empleado.sexo%type;
 vtexto varchar(25);
cursor micursor is
 [select nombre, sexo from empleado]
begin
 open micursor;
 loop
  fetch micursor into vnombre, vsexo;
  exit when micursor%notfound
  if
   vsexo='M' then
   vtexto='Hombre'
  elsif
   vsexo='F' then
   vtexto='Mujer'
  else
   vtexto='Ambiguo'
  endif
  dbms_output.putline(vnombre ││ 'ø' ││ vsexo 'ø' ││ vtexto);
 end loop;
 close micursor