PACKAGE BODY: APPLSYS.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;