217: l_stmt := l_stmt||' cascade constraints';
218: end if;
219:
220: -- log(c_module, 'STATEMENT', 'SQL['||x_edition_name||': '||l_stmt;
221: l_cursor := dbms_sql.open_cursor(security_level=>2);
222: dbms_sql.parse(l_cursor, l_stmt, dbms_sql.native, x_edition_name, null, false);
223: dbms_sql.close_cursor(l_cursor);
224:
225: exception
218: end if;
219:
220: -- log(c_module, 'STATEMENT', 'SQL['||x_edition_name||': '||l_stmt;
221: l_cursor := dbms_sql.open_cursor(security_level=>2);
222: dbms_sql.parse(l_cursor, l_stmt, dbms_sql.native, x_edition_name, null, false);
223: dbms_sql.close_cursor(l_cursor);
224:
225: exception
226: when success_with_compile_err or
219:
220: -- log(c_module, 'STATEMENT', 'SQL['||x_edition_name||': '||l_stmt;
221: l_cursor := dbms_sql.open_cursor(security_level=>2);
222: dbms_sql.parse(l_cursor, l_stmt, dbms_sql.native, x_edition_name, null, false);
223: dbms_sql.close_cursor(l_cursor);
224:
225: exception
226: when success_with_compile_err or
227: object_does_not_exist or
229: object_marked_for_delete or
230: type_not_found or
231: synonym_does_not_exist
232: then
233: if dbms_sql.is_open(l_cursor) then
234: dbms_sql.close_cursor(l_cursor);
235: end if;
236: when others then
237: if dbms_sql.is_open(l_cursor) then
230: type_not_found or
231: synonym_does_not_exist
232: then
233: if dbms_sql.is_open(l_cursor) then
234: dbms_sql.close_cursor(l_cursor);
235: end if;
236: when others then
237: if dbms_sql.is_open(l_cursor) then
238: dbms_sql.close_cursor(l_cursor);
233: if dbms_sql.is_open(l_cursor) then
234: dbms_sql.close_cursor(l_cursor);
235: end if;
236: when others then
237: if dbms_sql.is_open(l_cursor) then
238: dbms_sql.close_cursor(l_cursor);
239: end if;
240: L_ERRMSG := SQLERRM;
241: log(c_module, 'ERROR', L_ERRMSG || '; SQL['||x_edition_name||': '||l_stmt);
234: dbms_sql.close_cursor(l_cursor);
235: end if;
236: when others then
237: if dbms_sql.is_open(l_cursor) then
238: dbms_sql.close_cursor(l_cursor);
239: end if;
240: L_ERRMSG := SQLERRM;
241: log(c_module, 'ERROR', L_ERRMSG || '; SQL['||x_edition_name||': '||l_stmt);
242: raise;
513: if (l_count = 0)
514: then
515: l_stmt := construct_actualize_ddl(x_owner,x_object_name,x_object_type);
516:
517: l_cursor := dbms_sql.open_cursor(security_level=>2);
518:
519: dbms_sql.parse(l_cursor, l_stmt ,
520: DBMS_SQL.NATIVE, l_patch_edition, null, false);
521:
515: l_stmt := construct_actualize_ddl(x_owner,x_object_name,x_object_type);
516:
517: l_cursor := dbms_sql.open_cursor(security_level=>2);
518:
519: dbms_sql.parse(l_cursor, l_stmt ,
520: DBMS_SQL.NATIVE, l_patch_edition, null, false);
521:
522: dbms_sql.close_cursor(l_cursor);
523: else
516:
517: l_cursor := dbms_sql.open_cursor(security_level=>2);
518:
519: dbms_sql.parse(l_cursor, l_stmt ,
520: DBMS_SQL.NATIVE, l_patch_edition, null, false);
521:
522: dbms_sql.close_cursor(l_cursor);
523: else
524: -- Object already actualized
518:
519: dbms_sql.parse(l_cursor, l_stmt ,
520: DBMS_SQL.NATIVE, l_patch_edition, null, false);
521:
522: dbms_sql.close_cursor(l_cursor);
523: else
524: -- Object already actualized
525: null;
526: end if;
526: end if;
527:
528: EXCEPTION
529: WHEN success_with_compile_err then
530: if dbms_sql.is_open(l_cursor) then
531: dbms_sql.close_cursor(l_cursor);
532: end if;
533: WHEN OTHERS THEN
534: if dbms_sql.is_open(l_cursor) then
527:
528: EXCEPTION
529: WHEN success_with_compile_err then
530: if dbms_sql.is_open(l_cursor) then
531: dbms_sql.close_cursor(l_cursor);
532: end if;
533: WHEN OTHERS THEN
534: if dbms_sql.is_open(l_cursor) then
535: dbms_sql.close_cursor(l_cursor);
530: if dbms_sql.is_open(l_cursor) then
531: dbms_sql.close_cursor(l_cursor);
532: end if;
533: WHEN OTHERS THEN
534: if dbms_sql.is_open(l_cursor) then
535: dbms_sql.close_cursor(l_cursor);
536: end if;
537:
538: raise;
531: dbms_sql.close_cursor(l_cursor);
532: end if;
533: WHEN OTHERS THEN
534: if dbms_sql.is_open(l_cursor) then
535: dbms_sql.close_cursor(l_cursor);
536: end if;
537:
538: raise;
539: END;