SET TERM ^ ;

create or alter procedure SPC_SERVIDORES_EXTERNOS_V2 (
    QTD integer,
    PAGINA integer,
    SERVIDOR_EXT varchar(50),
    BANCO_EXT varchar(50),
    USUARIO_DB varchar(50),
    SENHA_DB varchar(50))
returns (
    ID integer,
    DESCRICAO varchar(50),
    SERVIDOR varchar(50),
    DB varchar(50),
    USUARIO varchar(50),
    SENHA varchar(50),
    EMPRESA_ID integer,
    EMPRESA_DIR varchar(50))
as
BEGIN
  FOR EXECUTE STATEMENT 'SELECT FIRST '||:QTD||' SKIP '||:PAGINA||'
                            T.ID,
                            T.DESCRICAO,
                            T.SERVIDOR,
                            T.DB,
                            T.USUARIO,
                            T.SENHA,
                            T.EMPRESA_ID,
                            T.EMPRESA_DIR
                        FROM TBFIREBIRD_ADMIN_DB T'
      ON EXTERNAL :SERVIDOR_EXT||'/3050:'||:BANCO_EXT
      WITH AUTONOMOUS TRANSACTION
      AS USER :USUARIO_DB PASSWORD :SENHA_DB
      INTO :ID, :DESCRICAO, :SERVIDOR, :DB, :USUARIO, :SENHA, :EMPRESA_ID, :EMPRESA_DIR
  DO
  BEGIN
    SUSPEND;
  END
END
^

SET TERM ; ^