Codigo de ejemplo Cursor Empleados listar generos - sábado 17 de diciembre

[Neptunoo]

/* Formatted on 2011/12/17 14:40 (Formatter Plus v4.8.7) */
DECLARE
vnombre empleado.nombre%TYPE;
vsexo empleado.sexo%TYPE;
vtexto VARCHAR2 (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';
END IF;

DBMS_OUTPUT.put_line (vnombre || ' ' || vsexo || ' ' ||
vtexto);
END LOOP;

CLOSE micursor;
END;