select 'max open links' text, to_number(value) value from v$parameter where name = 'open_links' union all select 'actual open links' text, count(*) value from v$dblink;
begin
for lnk in (select db_link from v$dblink) loop
dbms_session.close_database_link(lnk.db_link);
end loop;
end;
/