PACKAGE BODY: IEM.APPS_DDL

Source

1 package body APPS_DDL as
2 /* $Header: adaddlb.pls 120.1 2011/10/13 19:03:11 mkumandu ship $ */
3 procedure apps_ddl
4            (ddl_text in clob) is
5   c              integer;
6   rows_processed integer;
7 begin
8   c := dbms_sql.open_cursor;
9   dbms_sql.parse(c, ddl_text, dbms_sql.native);
10   rows_processed := dbms_sql.execute(c);
11   dbms_sql.close_cursor(c);
12 exception
13   when others then
14     dbms_sql.close_cursor(c);
15     raise;
16 end apps_ddl;
17 procedure apps_ddl
18            (ddl_text in varchar2) is
19   c              integer;
20   rows_processed integer;
21 begin
22   c := dbms_sql.open_cursor;
23   dbms_sql.parse(c, ddl_text, dbms_sql.native);
24   rows_processed := dbms_sql.execute(c);
25   dbms_sql.close_cursor(c);
26 exception
27   when others then
28     dbms_sql.close_cursor(c);
29     raise;
30 end apps_ddl;
31 end APPS_DDL;