testAnyDbLink.sql

set linesize 200
set trimspool on
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..test_dblink
AS
   l_test_buffer            VARCHAR2 (100);
BEGIN
   DBMS_OUTPUT.put_line ('*** TESTING on ' || SYS_CONTEXT('USERENV', 'DB_NAME') || ' ***' );
   SELECT global_name INTO l_test_buffer FROM global_name@&2;
   DBMS_OUTPUT.put_line ('global_name: ' || l_test_buffer);
   DBMS_OUTPUT.put_line ('*** TEST COMPLETE ***');
END;
/
show errors

set serveroutput on
set feedback off

set verify off
spool testAnyDbLink.txt append
BEGIN
   &1..test_dblink;
END;
/
spool off

set verify on
set feedback on
DROP PROCEDURE   &1..test_dblink;

quit