CREATE OR REPLACE PROCEDURE ejer6ciclista
IS

CURSOR cursor1 IS SELECT ciclista.nomeq, ciclista.nombre,ciclista.dorsal, COUNT(llevar.codigo)
               FROM ciclista,llevar
               WHERE ciclista.dorsal=llevar.dorsal
               GROUP BY ciclista.nomeq, ciclista.nombre, ciclista.dorsal
               ORDER BY ciclista.nomeq, COUNT(llevar.codigo);


nom ciclista.nombre%TYPE;
etapas NUMBER(4);
equip ciclista.nomeq%TYPE;
nommai maillot.tipo%TYPE;
fech llevar.fecha%TYPE;
vdorsal ciclista.dorsal%TYPE;
vnomequip ciclista.nomeq%TYPE := '';

CURSOR cursor2 IS SELECT maillot.tipo, llevar.fecha
                   FROM maillot, llevar
                   WHERE maillot.codigo=llevar.codigo
                   AND dorsal= vdorsal
                   ORDER BY fecha;

BEGIN

OPEN cursor1;
      LOOP
      FETCH cursor1 INTO equip, nom, vdorsal, etapas;
      EXIT WHEN cursor1%notfound;


             IF (vnomequip=equip) THEN
            DBMS_OUTPUT.put_line(' ');
         ELSE
            DBMS_OUTPUT.put_line(' Equipo: ' || equip);

                vnomequip := equip;
         END IF;
            DBMS_OUTPUT.put_line(' Ciclista: ' || nom || ' - Total de maillots: ' || etapas);

        OPEN cursor2;
        LOOP

                FETCH cursor2 INTO nommai, fech;
                EXIT WHEN cursor2%notfound;
                   DBMS_OUTPUT.put_line(' Maillot: ' || nommai || ' (' || fech || ') ');
            END LOOP;
        CLOSE cursor2;
      END LOOP;
CLOSE cursor1;


END;
/