CREATE OR REPLACE PACKAGE ActionDo AS
PROCEDURE del_user (p_UID IN USERS.ID%TYPE);
PROCEDURE display_TopUser;
END ActionDo;
/

CREATE OR REPLACE PACKAGE BODY ActionDo AS
PROCEDURE del_user (p_UID IN USERS.ID%TYPE) IS
v_userID USERS.ID%TYPE;
BEGIN
    BEGIN
        SELECT ID INTO v_userID FROM USERS WHERE ID = p_UID;
    EXCEPTION
        WHEN NO_DATA_FOUND THEN
            DBMS_OUTPUT.PUT_LINE('Inexistent User, deletion failed');
    END;
    DELETE FROM USERS WHERE ID = v_userID;
    DELETE FROM ARCHIVES WHERE USER_ID = v_userID;
END del_user;

PROCEDURE display_TopUser IS
v_search USERS.USERNAME%TYPE;
v_total_space SETTINGS.TOTALSPACE%TYPE;
v_archiveSize ARCHIVES.Archive_Size%TYPE;
v_UID ARCHIVES.USER_ID%TYPE;
BEGIN
    SELECT MAX(Archive_Size) INTO v_archiveSize FROM ARCHIVES;
    SELECT USER_ID INTO v_UID FROM ARCHIVES WHERE Archive_Size = v_archiveSize;
    SELECT TOTALSPACE INTO v_total_space FROM SETTINGS;
    SELECT username INTO v_search FROM USERS WHERE ID = v_UID;
    DBMS_OUTPUT.PUT_LINE(v_search);
    IF v_archiveSize >= v_total_space THEN
        DBMS_OUTPUT.PUT_LINE('Occupied space to large');
    END IF;
END display_TopUser;
END ActionDo;
/