/*funcion de existe*/
CREATE OR REPLACE FUNCTION exiteEquipo (x equipo.nombre%TYPE)
RETURN NUMBER
IS
    cuantos NUMBER;
BEGIN
    SELECT COUNT(*) INTO cuantos FROM equipo WHERE nombre=x;
RETURN cuantos;
END;
/

/*procedimiento para borrar datos de partido*/
CREATE OR REPLACE FUNCTION borrarpartido (x equipo.nombre%TYPE)
RETURN NUMBER
IS
cuantos NUMBER;
cuantos1 NUMBER;
resultado NUMBER;
    BEGIN
        SELECT COUNT(*) INTO cuantos FROM partido WHERE equipo_local=x;
        SELECT COUNT(*) INTO cuantos1 FROM partido WHERE equipo_visitante=x;
        resultado:=cuantos+cuantos1;
        IF (cuantos>0) THEN
            DELETE partido  WHERE equipo_local=x;
        END IF;
        IF (cuantos1>0) THEN
            DELETE partido  WHERE equipo_visitante=x;
        END IF;
RETURN resultado;
END;
/

/*borrar jugadores del equipo*/
CREATE OR REPLACE FUNCTION borrarjugador (x equipo.nombre%TYPE)
RETURN NUMBER
IS
    cuantos NUMBER;
BEGIN
    SELECT COUNT(*) INTO cuantos FROM jugador WHERE nombre_equipo=x;
    IF (cuantos>0) THEN
        DELETE jugador WHERE nombre_equipo=x;
    END IF;
 RETURN cuantos;
END;
/



/*programa principal*/

CREATE OR REPLACE PROCEDURE borraequi (x equipo.nombre%TYPE)
IS
CURSOR nombreju IS SELECT *  FROM jugador WHERE nombre_equipo=x;
regju nombreju%ROWTYPE;
cuantos NUMBER;
juga NUMBER;
contador NUMBER;
resul NUMBER;
BEGIN
    SELECT COUNT(*) INTO contador FROM estadisticas NATURAL join jugador WHERE jugador.nombre_equipo=x;
    cuantos:=exiteEquipo(x);
    IF (cuantos>0) THEN
        resul:=borrarpartido(x);
        DBMS_OUTPUT.put_line('se va a eliminar la información del equipo:' || x);
    FOR regju IN nombreju LOOP
            DBMS_OUTPUT.PUT_LINE('Se a borrado el judor:'||regju.nombre);
    END LOOP;
    juga:=borrarjugador(x);
    DBMS_OUTPUT.put_line('se han borrado '|| juga || 'jugadores');
    DBMS_OUTPUT.put_line('se han borrado '|| contador || ' estadisticas');
    DBMS_OUTPUT.put_line('se han borrado '|| resul || ' partidos');
    DELETE equipo WHERE nombre=x;
    ELSE
        DBMS_OUTPUT.put_line('no existe el equipo');
    END IF;
END;
/