SET TERM ^ ;

create or alter procedure SPI_EXP_USUARIOS_REL_WEB (
    SERVIDOR varchar(50),
    BANCO varchar(50),
    USUARIO varchar(50),
    SENHA varchar(50),
    ISERVIDOR_ID integer,
    IRELATORIO_ID integer)
as
DECLARE VARIABLE USUARIO_ID INTEGER;
DECLARE VARIABLE RELATORIO_ID INTEGER;
DECLARE VARIABLE COD_RELATORIO INTEGER;
BEGIN
    FOR SELECT
            R.USUARIO_ID,
            R.RELATORIO_ID,
            R.COD_RELATORIO
        FROM TBRELATORIO_WEB_SERV_USUARIO R
        WHERE R.SERVIDOR_ID = :ISERVIDOR_ID
        AND R.RELATORIO_ID = :IRELATORIO_ID
        INTO :USUARIO_ID, :RELATORIO_ID, :COD_RELATORIO
    DO
    BEGIN
        EXECUTE STATEMENT 'UPDATE OR INSERT INTO TBRELATORIO_WEB_USUARIO (USUARIO_ID, RELATORIO_ID, CODIGO)
                           VALUES ('||:USUARIO_ID||','||:RELATORIO_ID||','||:COD_RELATORIO||')
                           MATCHING (USUARIO_ID, RELATORIO_ID)
        '
        ON EXTERNAL :SERVIDOR||'/3050:'||:BANCO
        WITH AUTONOMOUS TRANSACTION
        AS USER :USUARIO PASSWORD :SENHA;
    END
END
^

SET TERM ; ^