create procedure ins_paym_to_another_server ( min_id integer, max_id integer )
--
returning
{o_rv} int, -- код операции
{o_msg} varchar ( 255 );
--=========================
define  i, v_id_paym_source, v_id_paym_dest   int;
define sql_err, isam_err  int;
define errm char( 128 );
define retmsg varchar ( 255 );
--====================
BEGIN
  ON EXCEPTION SET sql_err, isam_err,  errm
    let retmsg =  sql_err || " : " || isam_err || "; errmsg: " || errm;
    return - 9 ,  retmsg;
  end exception;
      let  i= 0 ;
    foreach tmp_cursor for  select id_paym into v_id_paym_source from ok_arch@onbe:paym
     where  id_paym >= min_id and id_paym < max_id
	select id_paym into v_id_paym_dest from paym 
	where id_paym = v_id_paym_source;
	if v_id_paym_dest is null then 
                 let i=i+ 1 ;
		insert into paym select * from ok_arch@onbe:paym
		where id_paym = v_id_paym_source;
	end if;
     end foreach;

        return  0 ,  'Insert ' ||i|| ' records in dest DB.';
END;
end procedure;

create procedure comp_paym ( min_id integer, max_id integer )
--
returning
{o_rv} int, -- код операции
{o_msg} varchar ( 255 );
--=========================
define  i, y,  v_id_paym, v_id_paym_source, v_id_paym_dest   int;
define sql_err, isam_err  int;
define errm char( 128 );
define retmsg varchar ( 255 );
--====================
BEGIN
  ON EXCEPTION SET sql_err, isam_err,  errm
    let retmsg =  sql_err || " : " || isam_err || "; errmsg: " || errm;
    return - 9 ,  retmsg;
  end exception;
      let  i= 0 ;
      let  y= 0 ;
    foreach tmp_cursor for  select id_paym into v_id_paym_source from paym
     where  id_paym >= min_id and id_paym < max_id
	select id_paym into v_id_paym from paym 
	where id_paym = v_id_paym_source;
	if v_id_paym is not null then 
                 let i=i+ 1 ;
	end if;
     end foreach;

    foreach tmp_cursor for  select id_paym into v_id_paym_dest from paym
     where  id_paym >= min_id and id_paym < max_id
	select id_paym into v_id_paym from paym 
	where id_paym = v_id_paym_dest;
	if v_id_paym is not null then 
                 let y=y+ 1 ;
	end if;
     end foreach;

        return  0 ,  'Find '||i||' records in source DB. Find '||y||' records in dest DB.';
END;

end procedure;

insert into ttt select * from ok_arch@onbe:ttt

select * from ok_arch@onbe:paym

select id_paym from ok_arch@onbe:paym