1: package body APPS_ARRAY_DDL as
2: /* $Header: adaaddlb.pls 115.1 1999/11/09 16:51:00 pkm ship $ */
3: procedure apps_array_ddl(lb in integer,
4: ub in integer,
5: newline_flag in varchar2 default 'FALSE')
1: package body APPS_ARRAY_DDL as
2: /* $Header: adaaddlb.pls 115.1 1999/11/09 16:51:00 pkm ship $ */
3: procedure apps_array_ddl(lb in integer,
4: ub in integer,
5: newline_flag in varchar2 default 'FALSE')
6: is
7: c integer;
10: begin
11: c := dbms_sql.open_cursor;
12: statement := 'declare l_c integer; l_rows_processed integer; '||
13: 'begin l_c := dbms_sql.open_cursor; '||
14: 'dbms_sql.parse(l_c,apps_array_ddl.glprogtext, '||
15: to_char(lb)||','||to_char(ub)||', '||
16: upper(newline_flag)||', dbms_sql.native); '||
17: 'l_rows_processed := dbms_sql.execute(l_c); '||
18: 'dbms_sql.close_cursor(l_c); end;';
22: exception
23: when others then
24: dbms_sql.close_cursor(c);
25: raise;
26: end apps_array_ddl;
27: end APPS_ARRAY_DDL;
23: when others then
24: dbms_sql.close_cursor(c);
25: raise;
26: end apps_array_ddl;
27: end APPS_ARRAY_DDL;