271: END LOOP;
272: v_sql := v_sql||'1,2,3'; -- Add B/A, "updated_on, updated_by" to SORT BY clause
273:
274: --
275: -- Now set up dbms_sql cursor
276: --
277: v_cursor := dbms_sql.open_cursor;
278: dbms_sql.parse(v_cursor,v_sql,native);
279: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
273:
274: --
275: -- Now set up dbms_sql cursor
276: --
277: v_cursor := dbms_sql.open_cursor;
278: dbms_sql.parse(v_cursor,v_sql,native);
279: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
280: dbms_sql.define_column(v_cursor,2,v_new_updated_on);
281: dbms_sql.define_column(v_cursor,3,v_new_updated_by,30);
274: --
275: -- Now set up dbms_sql cursor
276: --
277: v_cursor := dbms_sql.open_cursor;
278: dbms_sql.parse(v_cursor,v_sql,native);
279: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
280: dbms_sql.define_column(v_cursor,2,v_new_updated_on);
281: dbms_sql.define_column(v_cursor,3,v_new_updated_by,30);
282: dbms_sql.define_column(v_cursor,4,v_new_created_on);
275: -- Now set up dbms_sql cursor
276: --
277: v_cursor := dbms_sql.open_cursor;
278: dbms_sql.parse(v_cursor,v_sql,native);
279: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
280: dbms_sql.define_column(v_cursor,2,v_new_updated_on);
281: dbms_sql.define_column(v_cursor,3,v_new_updated_by,30);
282: dbms_sql.define_column(v_cursor,4,v_new_created_on);
283: dbms_sql.define_column(v_cursor,5,v_new_created_by,30);
276: --
277: v_cursor := dbms_sql.open_cursor;
278: dbms_sql.parse(v_cursor,v_sql,native);
279: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
280: dbms_sql.define_column(v_cursor,2,v_new_updated_on);
281: dbms_sql.define_column(v_cursor,3,v_new_updated_by,30);
282: dbms_sql.define_column(v_cursor,4,v_new_created_on);
283: dbms_sql.define_column(v_cursor,5,v_new_created_by,30);
284:
277: v_cursor := dbms_sql.open_cursor;
278: dbms_sql.parse(v_cursor,v_sql,native);
279: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
280: dbms_sql.define_column(v_cursor,2,v_new_updated_on);
281: dbms_sql.define_column(v_cursor,3,v_new_updated_by,30);
282: dbms_sql.define_column(v_cursor,4,v_new_created_on);
283: dbms_sql.define_column(v_cursor,5,v_new_created_by,30);
284:
285: -- Its weird how come this next bit works !!??
278: dbms_sql.parse(v_cursor,v_sql,native);
279: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
280: dbms_sql.define_column(v_cursor,2,v_new_updated_on);
281: dbms_sql.define_column(v_cursor,3,v_new_updated_by,30);
282: dbms_sql.define_column(v_cursor,4,v_new_created_on);
283: dbms_sql.define_column(v_cursor,5,v_new_created_by,30);
284:
285: -- Its weird how come this next bit works !!??
286: FOR v_counter IN 1..v_num_col LOOP
279: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
280: dbms_sql.define_column(v_cursor,2,v_new_updated_on);
281: dbms_sql.define_column(v_cursor,3,v_new_updated_by,30);
282: dbms_sql.define_column(v_cursor,4,v_new_created_on);
283: dbms_sql.define_column(v_cursor,5,v_new_created_by,30);
284:
285: -- Its weird how come this next bit works !!??
286: FOR v_counter IN 1..v_num_col LOOP
287: dbms_sql.define_column( v_cursor, v_counter+5, v_var1, 100);
283: dbms_sql.define_column(v_cursor,5,v_new_created_by,30);
284:
285: -- Its weird how come this next bit works !!??
286: FOR v_counter IN 1..v_num_col LOOP
287: dbms_sql.define_column( v_cursor, v_counter+5, v_var1, 100);
288: END LOOP;
289:
290: v_rows_processed := dbms_sql.execute( v_cursor );
291:
286: FOR v_counter IN 1..v_num_col LOOP
287: dbms_sql.define_column( v_cursor, v_counter+5, v_var1, 100);
288: END LOOP;
289:
290: v_rows_processed := dbms_sql.execute( v_cursor );
291:
292: --
293: -- Now loop through records in cursor.
294: --
298: END LOOP;
299:
300: LOOP
301:
302: EXIT WHEN dbms_sql.fetch_rows(v_cursor) < 1;
303: dbms_sql.column_value(v_cursor,1,v_new_letter);
304: dbms_sql.column_value(v_cursor,2,v_new_updated_on);
305: dbms_sql.column_value(v_cursor,3,v_new_updated_by);
306: dbms_sql.column_value(v_cursor,4,v_new_created_on);
299:
300: LOOP
301:
302: EXIT WHEN dbms_sql.fetch_rows(v_cursor) < 1;
303: dbms_sql.column_value(v_cursor,1,v_new_letter);
304: dbms_sql.column_value(v_cursor,2,v_new_updated_on);
305: dbms_sql.column_value(v_cursor,3,v_new_updated_by);
306: dbms_sql.column_value(v_cursor,4,v_new_created_on);
307: dbms_sql.column_value(v_cursor,5,v_new_created_by);
300: LOOP
301:
302: EXIT WHEN dbms_sql.fetch_rows(v_cursor) < 1;
303: dbms_sql.column_value(v_cursor,1,v_new_letter);
304: dbms_sql.column_value(v_cursor,2,v_new_updated_on);
305: dbms_sql.column_value(v_cursor,3,v_new_updated_by);
306: dbms_sql.column_value(v_cursor,4,v_new_created_on);
307: dbms_sql.column_value(v_cursor,5,v_new_created_by);
308: FOR v_counter IN 1..v_num_col LOOP
301:
302: EXIT WHEN dbms_sql.fetch_rows(v_cursor) < 1;
303: dbms_sql.column_value(v_cursor,1,v_new_letter);
304: dbms_sql.column_value(v_cursor,2,v_new_updated_on);
305: dbms_sql.column_value(v_cursor,3,v_new_updated_by);
306: dbms_sql.column_value(v_cursor,4,v_new_created_on);
307: dbms_sql.column_value(v_cursor,5,v_new_created_by);
308: FOR v_counter IN 1..v_num_col LOOP
309: dbms_sql.column_value(v_cursor,v_counter + 5,v_var1);
302: EXIT WHEN dbms_sql.fetch_rows(v_cursor) < 1;
303: dbms_sql.column_value(v_cursor,1,v_new_letter);
304: dbms_sql.column_value(v_cursor,2,v_new_updated_on);
305: dbms_sql.column_value(v_cursor,3,v_new_updated_by);
306: dbms_sql.column_value(v_cursor,4,v_new_created_on);
307: dbms_sql.column_value(v_cursor,5,v_new_created_by);
308: FOR v_counter IN 1..v_num_col LOOP
309: dbms_sql.column_value(v_cursor,v_counter + 5,v_var1);
310: v_new(v_counter) := v_var1;
303: dbms_sql.column_value(v_cursor,1,v_new_letter);
304: dbms_sql.column_value(v_cursor,2,v_new_updated_on);
305: dbms_sql.column_value(v_cursor,3,v_new_updated_by);
306: dbms_sql.column_value(v_cursor,4,v_new_created_on);
307: dbms_sql.column_value(v_cursor,5,v_new_created_by);
308: FOR v_counter IN 1..v_num_col LOOP
309: dbms_sql.column_value(v_cursor,v_counter + 5,v_var1);
310: v_new(v_counter) := v_var1;
311: END LOOP;
305: dbms_sql.column_value(v_cursor,3,v_new_updated_by);
306: dbms_sql.column_value(v_cursor,4,v_new_created_on);
307: dbms_sql.column_value(v_cursor,5,v_new_created_by);
308: FOR v_counter IN 1..v_num_col LOOP
309: dbms_sql.column_value(v_cursor,v_counter + 5,v_var1);
310: v_new(v_counter) := v_var1;
311: END LOOP;
312:
313: --
422: v_old(v_counter) := v_new(v_counter);
423: END LOOP;
424: v_rec_num := v_rec_num + 1;
425: END LOOP;
426: dbms_sql.close_cursor(v_cursor);
427: --
428: END XTR_AUDIT_RETRIEVE;
429:
430: PROCEDURE XTR_TERM_ACTIONS_RETRIEVE(p_audit_requested_by IN VARCHAR2,