Obtener código fuente de triggers de un esquema del diccionario de la base de datos

set pagesize 200
set linesize 220
drop table temp_validacion;
create global temporary table temp_validacion( table_owner varchar2(30),
table_name varchar2(30), trigger_name varchar2(30), data varchar2(4000));
declare
cursor my_cursor is
select table_owner, table_name, trigger_name, trigger_body
from dba_triggers
where table_owner='owner';
V_OWNER VARCHAR2(30);
V_TABLE_NAME VARCHAR2(30);
V_COLUMN_NAME VARCHAR2(30);
my_var varchar2(32000);
begin
open my_cursor;
loop
fetch my_cursor into V_OWNER, V_TABLE_NAME, V_COLUMN_NAME,my_var;
exit when my_cursor%notfound;
my_var := substr(my_var,1,4000);
insert into temp_validacion values (V_OWNER, V_TABLE_NAME, V_COLUMN_NAME, my_var);
end loop;
close my_cursor;
end;
/