SET TERM ^ ;

CREATE OR ALTER PROCEDURE SP_CRIAR_TRG_HISTORICO_B02I(
    TABELAI VARCHAR(255)
)
AS
BEGIN
   EXECUTE STATEMENT '
        CREATE OR ALTER TRIGGER T'|| :TABELAI ||'_B02I FOR '|| :TABELAI ||'
        ACTIVE BEFORE INSERT POSITION 1
        AS
        DECLARE VARIABLE HISTORICO VARCHAR(500);
        BEGIN
            HISTORICO = '';
        
            IF(NEW.ID > 0) THEN
            BEGIN
                HISTORICO = HISTORICO||'' REGISTRO INCLUÍDO'';
            END
        
            IF(HISTORICO <> '') THEN
            BEGIN
                EXECUTE PROCEDURE SPI_HISTORICO('|| :TABELAI ||', NEW.ID, HISTORICO);
            END
        END
   ';
END
^

SET TERM ; ^