78: begin
79:
80: log(x_log_mod, 'STATEMENT', 'SQL(CLOB): '||dbms_lob.substr(x_sql, 3900));
81:
82: l_cur := dbms_sql.open_cursor;
83: dbms_sql.parse(l_cur, x_sql, dbms_sql.native);
84: l_ret := dbms_sql.execute(l_cur);
85: dbms_sql.close_cursor(l_cur);
86:
79:
80: log(x_log_mod, 'STATEMENT', 'SQL(CLOB): '||dbms_lob.substr(x_sql, 3900));
81:
82: l_cur := dbms_sql.open_cursor;
83: dbms_sql.parse(l_cur, x_sql, dbms_sql.native);
84: l_ret := dbms_sql.execute(l_cur);
85: dbms_sql.close_cursor(l_cur);
86:
87: exception
80: log(x_log_mod, 'STATEMENT', 'SQL(CLOB): '||dbms_lob.substr(x_sql, 3900));
81:
82: l_cur := dbms_sql.open_cursor;
83: dbms_sql.parse(l_cur, x_sql, dbms_sql.native);
84: l_ret := dbms_sql.execute(l_cur);
85: dbms_sql.close_cursor(l_cur);
86:
87: exception
88: when success_with_compilation_error then
81:
82: l_cur := dbms_sql.open_cursor;
83: dbms_sql.parse(l_cur, x_sql, dbms_sql.native);
84: l_ret := dbms_sql.execute(l_cur);
85: dbms_sql.close_cursor(l_cur);
86:
87: exception
88: when success_with_compilation_error then
89: if dbms_sql.is_open(l_cur) then
85: dbms_sql.close_cursor(l_cur);
86:
87: exception
88: when success_with_compilation_error then
89: if dbms_sql.is_open(l_cur) then
90: dbms_sql.close_cursor(l_cur);
91: end if;
92: -- ignore "success with compilation error"
93: log(x_log_mod, 'STATEMENT', 'Ignored: '||SQLERRM);
86:
87: exception
88: when success_with_compilation_error then
89: if dbms_sql.is_open(l_cur) then
90: dbms_sql.close_cursor(l_cur);
91: end if;
92: -- ignore "success with compilation error"
93: log(x_log_mod, 'STATEMENT', 'Ignored: '||SQLERRM);
94: when others then
91: end if;
92: -- ignore "success with compilation error"
93: log(x_log_mod, 'STATEMENT', 'Ignored: '||SQLERRM);
94: when others then
95: if dbms_sql.is_open(l_cur) then
96: dbms_sql.close_cursor(l_cur);
97: end if;
98: -- ignore or raise other errors as requested
99: if x_ignore then
92: -- ignore "success with compilation error"
93: log(x_log_mod, 'STATEMENT', 'Ignored: '||SQLERRM);
94: when others then
95: if dbms_sql.is_open(l_cur) then
96: dbms_sql.close_cursor(l_cur);
97: end if;
98: -- ignore or raise other errors as requested
99: if x_ignore then
100: log(x_log_mod, 'STATEMENT', 'Ignored: '||SQLERRM);