create database dbsrv1;
database dbsrv1;
grant dba to public;

create table test (i integer, val varchar(10));
insert into test values (1, 'aaa');
insert into test values (2, 'bbb');
insert into test values (3, 'ccc');

---------
create procedure get_val (_i integer)

   returning varchar(10) as val
   define _val varchar(10);
   let _val = '';

   select val into _val from test where i = _i;

    return _val;

end procedure;

create database dbsrv2;
database dbsrv2;
grant dba to public;
------
------
create procedure get_test ()

returning varchar(10) as val

DEFINE _db     varchar(100);
DEFINE _val      varchar(100);
DEFINE dsql        varchar(250);

  Let _db   = "dbsrv1@ol_tsr";


  ---------------------------------------
  Let dsql = " execute procedure "||trim(_db)||":get_val(2)";


  PREPARE stmt_id FROM dsql;
  DECLARE cust_cur cursor FOR stmt_id;
  OPEN cust_cur ;

  FETCH cust_cur INTO _val;

  CLOSE cust_cur;
  FREE cust_cur ;
  FREE stmt_id ;

  ---------------------------------------
  return _val;

end procedure;                   

drop procedure call_test;
create procedure call_test()

   define _val varchar(10);
   define _ix integer;

for _ix = 1 to 1000000 
   execute procedure get_test() into _val;
end for;

end procedure;

execute procedure call_test();