PACKAGE BODY: APPS.APPS_ARRAY_DDL

Source

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;
8  rows_processed integer;
9  statement 	varchar2(1000);
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;';
19    dbms_sql.parse(c,statement,dbms_sql.native);
20    rows_processed := dbms_sql.execute(c);
21    dbms_sql.close_cursor(c);
22 exception
23   when others then
24    dbms_sql.close_cursor(c);
25    raise;
26 end apps_array_ddl;
27 end APPS_ARRAY_DDL;