createAnyDbLink.sql

set echo on
set linesize 200
column db_link format a30
column host format a50
SELECT *
  FROM dba_db_links
 WHERE owner = '&1'
       AND db_link = '&2';


CREATE OR REPLACE PROCEDURE &1..create_dblink
AS
BEGIN
   EXECUTE IMMEDIATE q'{create database link &2 CONNECT TO &3 IDENTIFIED BY &4 using '&5'}';
END;
/
show errors

BEGIN
  &1..create_dblink;
END;
/

DROP PROCEDURE   &1..create_dblink;

quit