SET TERM ^ ;

CREATE OR ALTER PROCEDURE SPU_USUARIOS_RELATORIO_WEB (
    SERVIDOR VARCHAR(50),
    BANCO VARCHAR(50),
    USUARIO VARCHAR(50),
    SENHA VARCHAR(50),
    IUSUARIO_ID INTEGER,
    IRELATORIO_ID INTEGER,
    ICOD_RELATORIO INTEGER)
AS
BEGIN
    EXECUTE STATEMENT 'UPDATE OR INSERT INTO TBRELATORIO_WEB_USUARIO (USUARIO_ID, RELATORIO_ID, CODIGO)
                       VALUES ('||:IUSUARIO_ID||','||:IRELATORIO_ID||','||:ICOD_RELATORIO||')
                       MATCHING (USUARIO_ID, RELATORIO_ID)
    '
    ON EXTERNAL :SERVIDOR||'/3050:'||:BANCO
    WITH AUTONOMOUS TRANSACTION
    AS USER :USUARIO PASSWORD :SENHA;
END
^

SET TERM ; ^