Dynamic drop database link

Question

Hi,
As user SYS i need to Dynamically DROP all the database link in the Database.
I cant drop private database link .
For example i have few database links under APPS schema that i would like to drop.
Please note that it should be done by SYS user
SQL> declare
  2 
  3  cursor c is
  4  select *
  5  from dba_db_links;
  6 
  7 
  8  begin
  9  for c_rec in c loop
10 
11      if c_rec.owner = 'PUBLIC' then
12          execute immediate ' drop public database link '||'"'||c_rec.db_link||'"';
13      else
14          dbms_output.put_line (' drop database link '||'"'||c_rec.db_link||'"');
15           execute immediate ' drop database link '||'"'||c_rec.db_link||'"';
16      end if;     
17  end loop;
18 
19  end;
20  /
drop database link "APPS_TO_APPS"
declare
ERROR at line 1:
ORA-02024: database link not found
ORA-06512: at line 15Thanks

Answer 1

791550 wrote:
Yet it doest work please see bellow:Correct. The domain name can optionally be included with the database name. So if you for example want to drop database link "ABC.DEF.WORLD.COM", does ABC refer to the link name and DEF.WORLD.COM to the domain?
Or is ABC the schema name, DEF the link name and WORLD.COM the domain?
And what is schema ABC exists with link DEF.WORLD.COM and in the current schema there's a link called ABC for domain DEF.WORLD.COM ?
So there is no clean and correct way for Oracle to resolve the schema scope of a database link name.
If you, as SYS, want to drop all database links, then you can use the DBMS_SYS_SQL interface - this is a (mostly undocumented) interface for parsing SQL as any specific schema on the database. The DBMS_SQL interface (restricted to parsing as the current schema) is documented and runs on top of this system interface.
E.g.
create or replace procedure DropDbLink( schemaName varchar2, dbLink varchar2 ) is
        cur     number;
        plsql   varchar2(1000);
        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;
/This proc, as SYS, allows you to drop any private database link from the SYS schema.