trigger_body:
DECLARE
v_num_evento AUD_EVENTOS.num_evento_AUD%TYPE;
v_login_db V$SESSION.SCHEMANAME%TYPE;
v_osuser V$SESSION.OSUSER%TYPE;
v_maquina V$SESSION.MACHINE%TYPE;
v_programa V$SESSION.PROGRAM%TYPE;
BEGIN
-- busca a sequencia
SELECT S_AUD_EVENTOS.NEXTVAL INTO v_num_evento FROM DUAL;
SELECT UPPER(SCHEMANAME), UPPER(OSUSER), UPPER(MACHINE), UPPER(PROGRAM)
INTO v_login_db, v_osuser, v_maquina, v_programa
FROM V$SESSION
WHERE AUDSID = USERENV('SESSIONID');
-- INSERE O LOG DO EVENTO
INSERT INTO AUD_EVENTOS
(NUM_EVENTO_AUD, NUM_TABELA_AUD,
DATA_EVENTO, TIPO_EVENTO, NOME_LOGIN_DB,
NOME_LOGIN_SO, COD_IDENT_MAQUINA, DCR_PATH_SOFT)
VALUES
(v_num_evento, 1,
sysdate, 'U', v_login_db,
v_osuser, v_maquina, v_programa);
-- COLUNA = CD_PLANTIO_FMT
-- INSERE OS DADOS
INSERT INTO AUD_DADOS
(NUM_EVENTO_AUD, NUM_DADO_AUD, NOME_COLUNA,
VALOR_NEW_COLUNA, VALOR_OLD_COLUNA)
VALUES
(v_num_evento, 1, 'CD_PLANTIO_FMT',
DECODE

new.CD_PLANTIO_FMT,NULL,NULL,''''||:new.CD_PLANTIO_FMT||''''), DECODE

old.CD_PLANTIO_FMT,NULL,NULL,''''||

ld.CD_PLANTIO_FMT||''''));
-- COLUNA = CD_USO_ACT
-- INSERE OS DADOS
INSERT INTO AUD_DADOS
(NUM_EVENTO_AUD, NUM_DADO_AUD, NOME_COLUNA,
VALOR_NEW_COLUNA, VALOR_OLD_COLUNA)
VALUES
(v_num_evento, 2, 'CD_USO_ACT',
DECODE

new.CD_USO_ACT,NULL,NULL,''''||:new.CD_USO_ACT||''''), DECODE

old.CD_USO_ACT,NULL,NULL,''''||

ld.CD_USO_ACT||''''));
-- COLUNA = CD_FILIAL
-- INSERE OS DADOS
INSERT INTO AUD_DADOS
(NUM_EVENTO_AUD, NUM_DADO_AUD, NOME_COLUNA,
VALOR_NEW_COLUNA, VALOR_OLD_COLUNA)
VALUES
(v_num_evento, 3, 'CD_FILIAL',
DECODE

new.CD_FILIAL,NULL,NULL,''''||:new.CD_FILIAL||''''), DECODE

old.CD_FILIAL,NULL,NULL,''''||

ld.CD_FILIAL||''''));
-- COLUNA = CD_PLANT
-- INSERE OS DADOS
INSERT INTO AUD_DADOS
(NUM_EVENTO_AUD, NUM_DADO_AUD, NOME_COLUNA,
VALOR_NEW_COLUNA, VALOR_OLD_COLUNA)
VALUES
(v_num_evento, 4, 'CD_PLANT',
DECODE

new.CD_PLANT,NULL,NULL,''''||:new.CD_PLANT||''''), DECODE

old.CD_PLANT,NULL,NULL,''''||

ld.CD_PLANT||''''));
END;
user_errors:
LINE: 1
TEXT:
PLS-00103: Encountered the symbol "" when expecting one of the following:
begin function package pragma procedure subtype type use
<an identifier> <a double-quoted delimited-identifier> cursor
form current
The symbol "" was ignored.