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:
104: x_org_id NUMBER;
105:
106: begin
107:
108: c := dbms_sql.open_cursor;
109:
110: x_org_id := mo_global.get_current_org_id;
111:
112: get_org_append(x_org_id);
113:
114: statement := 'begin cn_collect_payments'||cached_org_append||
115: '.collect(:err,:ret,:start,:end,:orgid); end;';
116:
117: dbms_sql.parse(c, statement, dbms_sql.native);
118:
119: dbms_sql.bind_variable(c,'err', dummy_vch, 30);
120: dbms_sql.bind_variable(c,'ret', dummy_num);
121: dbms_sql.bind_variable(c,'start', x_start_period_name);
115: '.collect(:err,:ret,:start,:end,:orgid); end;';
116:
117: dbms_sql.parse(c, statement, dbms_sql.native);
118:
119: dbms_sql.bind_variable(c,'err', dummy_vch, 30);
120: dbms_sql.bind_variable(c,'ret', dummy_num);
121: dbms_sql.bind_variable(c,'start', x_start_period_name);
122: dbms_sql.bind_variable(c,'end', x_end_period_name);
123: dbms_sql.bind_variable(c,'orgid', x_org_id);
116:
117: dbms_sql.parse(c, statement, dbms_sql.native);
118:
119: dbms_sql.bind_variable(c,'err', dummy_vch, 30);
120: dbms_sql.bind_variable(c,'ret', dummy_num);
121: dbms_sql.bind_variable(c,'start', x_start_period_name);
122: dbms_sql.bind_variable(c,'end', x_end_period_name);
123: dbms_sql.bind_variable(c,'orgid', x_org_id);
124:
117: dbms_sql.parse(c, statement, dbms_sql.native);
118:
119: dbms_sql.bind_variable(c,'err', dummy_vch, 30);
120: dbms_sql.bind_variable(c,'ret', dummy_num);
121: dbms_sql.bind_variable(c,'start', x_start_period_name);
122: dbms_sql.bind_variable(c,'end', x_end_period_name);
123: dbms_sql.bind_variable(c,'orgid', x_org_id);
124:
125: rows_processed := dbms_sql.execute(c);
118:
119: dbms_sql.bind_variable(c,'err', dummy_vch, 30);
120: dbms_sql.bind_variable(c,'ret', dummy_num);
121: dbms_sql.bind_variable(c,'start', x_start_period_name);
122: dbms_sql.bind_variable(c,'end', x_end_period_name);
123: dbms_sql.bind_variable(c,'orgid', x_org_id);
124:
125: rows_processed := dbms_sql.execute(c);
126:
119: dbms_sql.bind_variable(c,'err', dummy_vch, 30);
120: dbms_sql.bind_variable(c,'ret', dummy_num);
121: dbms_sql.bind_variable(c,'start', x_start_period_name);
122: dbms_sql.bind_variable(c,'end', x_end_period_name);
123: dbms_sql.bind_variable(c,'orgid', x_org_id);
124:
125: rows_processed := dbms_sql.execute(c);
126:
127: dbms_sql.variable_value(c,'err', errbuf);
121: dbms_sql.bind_variable(c,'start', x_start_period_name);
122: dbms_sql.bind_variable(c,'end', x_end_period_name);
123: dbms_sql.bind_variable(c,'orgid', x_org_id);
124:
125: rows_processed := dbms_sql.execute(c);
126:
127: dbms_sql.variable_value(c,'err', errbuf);
128: dbms_sql.variable_value(c,'ret', retcode);
129:
123: dbms_sql.bind_variable(c,'orgid', x_org_id);
124:
125: rows_processed := dbms_sql.execute(c);
126:
127: dbms_sql.variable_value(c,'err', errbuf);
128: dbms_sql.variable_value(c,'ret', retcode);
129:
130: dbms_sql.close_cursor(c);
131:
124:
125: rows_processed := dbms_sql.execute(c);
126:
127: dbms_sql.variable_value(c,'err', errbuf);
128: dbms_sql.variable_value(c,'ret', retcode);
129:
130: dbms_sql.close_cursor(c);
131:
132: --exception
126:
127: dbms_sql.variable_value(c,'err', errbuf);
128: dbms_sql.variable_value(c,'ret', retcode);
129:
130: dbms_sql.close_cursor(c);
131:
132: --exception
133: -- when compile_error then
134: -- std_compile_error(c, statement);