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: */
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;';
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);
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:
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);
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);
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:
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);
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
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);
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;
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;