CREATE OR REPLACE PROCEDURE Drop_DbLink( schemaName varchar2, dbLink varchar2 ) is
            plsql   varchar2(1000);
            cur     number;
            uid     number;
            rc      number;
    begin
            select
                    u.user_id into uid
           from    dba_users u
           where   u.username = schemaName;
             plsql := 'drop database link "'||dbLink||'"';
             cur := SYS.DBMS_SYS_SQL.open_cursor;
             SYS.DBMS_SYS_SQL.parse_as_user(
                   c => cur,
                   statement => plsql,
                   language_flag => DBMS_SQL.native,
                   userID => uid
          );
             rc := SYS.DBMS_SYS_SQL.execute(cur);

             SYS.DBMS_SYS_SQL.close_cursor(cur);
   end;
   /
   
   -- EXECUCAO DA PROCEDURE
   exec Drop_DbLink( 'USUARIO', 'DBLINK_ALVO' );
 
  
SELECT * FROM DBA_DB_LINKS WHERE DB_LINK='DBLINK_ALVO';
no rows selected