[Home] [Help]
PACKAGE BODY: WMS.APPS_ARRAY_DDL
Source
1 package body APPS_ARRAY_DDL as
2 /* $Header: adaaddlb.pls 120.0 2005/11/29 05:04:33 vpalakur noship $ */
3 procedure apps_array_ddl
4 (lb in integer,
5 ub in integer)
6 is
7 begin
8 apps_array_ddl
9 (lb => lb,
10 ub => ub,
11 newline_flag => 'FALSE');
12 end;
13
14 procedure apps_array_ddl
15 (lb in integer,
16 ub in integer,
17 newline_flag in varchar2)
18 is
19 c integer;
20 rows_processed integer;
21 statement varchar2(1000);
22 lb_bind integer;
23 ub_bind integer;
24 begin
25 c := dbms_sql.open_cursor;
26
27 /* bug 3808531, cbhati, 17/12/2004, introduced bind variables for literal
28 values of parameters.
29 */
30
31 statement := 'declare l_c integer; l_rows_processed integer; '||
32 'begin l_c := dbms_sql.open_cursor; '||
33 'dbms_sql.parse(l_c,apps_array_ddl.glprogtext,to_char(:lb_bind),to_char(:ub_bind),'||
34 upper(newline_flag)||', dbms_sql.native); '||
35 'l_rows_processed := dbms_sql.execute(l_c); '||
36 'dbms_sql.close_cursor(l_c); end;';
37 dbms_sql.parse(c,statement,dbms_sql.native);
38
39 dbms_sql.bind_variable(c, ':lb_bind', lb);
40 dbms_sql.bind_variable(c, ':ub_bind', ub);
41
42 rows_processed := dbms_sql.execute(c);
43 dbms_sql.close_cursor(c);
44 exception
45 when others then
46 dbms_sql.close_cursor(c);
47 raise;
48 end apps_array_ddl;
49 end APPS_ARRAY_DDL;