SET TERM ^ ;

CREATE OR ALTER procedure SPU_NOTIFICACAO_USUARIO (
    SERVIDOR varchar(50),
    BANCO varchar(50),
    USUARIO varchar(50),
    SENHA varchar(50),
    LS_USUARIO varchar(500),
    STATUS integer)
as
BEGIN
    EXECUTE STATEMENT 'UPDATE TBUSUARIO U SET
                            U.NOTIFICACAO = '||:STATUS||'
                         WHERE U.CODIGO
                         IN ('||:LS_USUARIO||')
    '
    ON EXTERNAL :SERVIDOR||'/3050:'||:BANCO
    WITH AUTONOMOUS TRANSACTION
    AS USER :USUARIO PASSWORD :SENHA;
END^

SET TERM ; ^