set names WIN1251;
set CLIENTLIB 'fbclient.dll';
connect 'localhost:Export.fdb.fdb' user 'SYSDBA' password 'masterkey';
execute block
as
declare variable CODE integer;
declare variable INDX integer;
declare variable ID_OBL integer;
declare variable ID_RAJ integer;
declare variable PLACE integer;
declare variable NAME integer;
declare variable ACTIV integer;

begin
  for execute statement('select CODE, INDX, ID_OBL, ID_RAJ, PLACE, NAME, ACTIV from EX_UDIC_ADDRESS')
          on external 'localhost:Import.fdb'
          with autonomous transaction
          as user 'SYSDBA' password 'masterkey'
          into :CODE, :INDX, :ID_OBL, :ID_RAJ, :PLACE, :NAME, :ACTIV

  do
  begin
    insert into UDIC_ADDRESS (CODE, INDX, ID_OBL, ID_RAJ, PLACE, NAME, ACTIV)
    values (:CODE, :INDX, :ID_OBL, :ID_RAJ, :PLACE, :NAME, :ACTIV);
  end
end;
commit;