SET TERM ^ ;

create or alter procedure SAMPLEPROCFIRST
as
declare variable TSTNAME NAME70;
declare variable TSTPATH NAME150;
begin
  /* Procedure Text */
  /* делаем селект запрос на выборку данных из таблицы table1*/
    FOR
        execute statement 'select name, path from spr_mfc'
        on external 'D:\FireBirdDB\TESTDB'
        with autonomous transaction
        as user 'SYSDBA' password 'masterkey'
        into :tstname, :tstpath
    DO
        BEGIN
        /* вставляем полученные данные в таблицу table2*/
        insert into tst_table (tst_name, tst_path) values(:tstname, :tstpath);
        END
end^

SET TERM ; ^

/* Following GRANT statetements are generated automatically */

GRANT INSERT ON TST_TABLE TO PROCEDURE SAMPLEPROCFIRST;

/* Existing privileges on this procedure */

GRANT EXECUTE ON PROCEDURE SAMPLEPROCFIRST TO SYSDBA;

 on external 'D:\FireBirdDB\TESTDB'