18: stmt_len integer;
19: loop_var integer;
20:
21: BEGIN
22: dbms_sql.close_cursor(cursor_id);
23:
24: dbms_output.put_line('--');
25: dbms_output.put_line('SQL statement that failed is:');
26:
101: x_org_id NUMBER;
102:
103: begin
104:
105: c := dbms_sql.open_cursor;
106:
107: x_org_id := mo_global.get_current_org_id;
108:
109: get_org_append(x_org_id);
110:
111: statement := 'begin cn_collect_clawbacks'||cached_org_append||
112: '.collect(:err,:ret,:start,:end,:orgid); end;';
113:
114: dbms_sql.parse(c, statement, dbms_sql.native);
115:
116: dbms_sql.bind_variable(c,'err', dummy_vch, 30);
117: dbms_sql.bind_variable(c,'ret', dummy_num);
118: dbms_sql.bind_variable(c,'start', x_start_period_name);
112: '.collect(:err,:ret,:start,:end,:orgid); end;';
113:
114: dbms_sql.parse(c, statement, dbms_sql.native);
115:
116: dbms_sql.bind_variable(c,'err', dummy_vch, 30);
117: dbms_sql.bind_variable(c,'ret', dummy_num);
118: dbms_sql.bind_variable(c,'start', x_start_period_name);
119: dbms_sql.bind_variable(c,'end', x_end_period_name);
120: dbms_sql.bind_variable(c,'orgid', x_org_id);
113:
114: dbms_sql.parse(c, statement, dbms_sql.native);
115:
116: dbms_sql.bind_variable(c,'err', dummy_vch, 30);
117: dbms_sql.bind_variable(c,'ret', dummy_num);
118: dbms_sql.bind_variable(c,'start', x_start_period_name);
119: dbms_sql.bind_variable(c,'end', x_end_period_name);
120: dbms_sql.bind_variable(c,'orgid', x_org_id);
121:
114: dbms_sql.parse(c, statement, dbms_sql.native);
115:
116: dbms_sql.bind_variable(c,'err', dummy_vch, 30);
117: dbms_sql.bind_variable(c,'ret', dummy_num);
118: dbms_sql.bind_variable(c,'start', x_start_period_name);
119: dbms_sql.bind_variable(c,'end', x_end_period_name);
120: dbms_sql.bind_variable(c,'orgid', x_org_id);
121:
122: rows_processed := dbms_sql.execute(c);
115:
116: dbms_sql.bind_variable(c,'err', dummy_vch, 30);
117: dbms_sql.bind_variable(c,'ret', dummy_num);
118: dbms_sql.bind_variable(c,'start', x_start_period_name);
119: dbms_sql.bind_variable(c,'end', x_end_period_name);
120: dbms_sql.bind_variable(c,'orgid', x_org_id);
121:
122: rows_processed := dbms_sql.execute(c);
123:
116: dbms_sql.bind_variable(c,'err', dummy_vch, 30);
117: dbms_sql.bind_variable(c,'ret', dummy_num);
118: dbms_sql.bind_variable(c,'start', x_start_period_name);
119: dbms_sql.bind_variable(c,'end', x_end_period_name);
120: dbms_sql.bind_variable(c,'orgid', x_org_id);
121:
122: rows_processed := dbms_sql.execute(c);
123:
124: dbms_sql.variable_value(c,'err', errbuf);
118: dbms_sql.bind_variable(c,'start', x_start_period_name);
119: dbms_sql.bind_variable(c,'end', x_end_period_name);
120: dbms_sql.bind_variable(c,'orgid', x_org_id);
121:
122: rows_processed := dbms_sql.execute(c);
123:
124: dbms_sql.variable_value(c,'err', errbuf);
125: dbms_sql.variable_value(c,'ret', retcode);
126:
120: dbms_sql.bind_variable(c,'orgid', x_org_id);
121:
122: rows_processed := dbms_sql.execute(c);
123:
124: dbms_sql.variable_value(c,'err', errbuf);
125: dbms_sql.variable_value(c,'ret', retcode);
126:
127: dbms_sql.close_cursor(c);
128:
121:
122: rows_processed := dbms_sql.execute(c);
123:
124: dbms_sql.variable_value(c,'err', errbuf);
125: dbms_sql.variable_value(c,'ret', retcode);
126:
127: dbms_sql.close_cursor(c);
128:
129: --exception
123:
124: dbms_sql.variable_value(c,'err', errbuf);
125: dbms_sql.variable_value(c,'ret', retcode);
126:
127: dbms_sql.close_cursor(c);
128:
129: --exception
130: -- when compile_error then
131: -- std_compile_error(c, statement);