Eliminando Usuarios conectados

Este script es de mucha utilidad, cuando requerimos eliminar un usuario con todo su esquema y existen conexiones que deben ser eliminadas.

SET SERVEROUTPUT ON SIZE 1000000
DECLARE CURSOR C1 IS
        SELECT SID, SERIAL#,USERNAME,SCHEMANAME,OSUSER,MACHINE,PROGRAM,TYPE FROM GV$SESSION
        WHERE USERNAME = '&A';
BEGIN
    FOR VAR1 IN C1 LOOP
        EXIT WHEN C1%NOTFOUND;
        DBMS_OUTPUT.PUT_LINE('Eliminando: '|| VAR1.SID || ', ' || VAR1.SERIAL# || ', ' ||
        VAR1.USERNAME || ', ' || VAR1.OSUSER || ', ' || VAR1.TYPE);
        EXECUTE IMMEDIATE ('ALTER SYSTEM KILL SESSION ('||VAR1.SID||','||VAR1.SERIAL#||')');
    END LOOP;
END;