264: END LOOP;
265: v_sql := v_sql||'1,2,3'; -- Add B/A, "updated_on, updated_by" to SORT BY clause
266:
267: --
268: -- Now set up dbms_sql cursor
269: --
270: v_cursor := dbms_sql.open_cursor;
271: dbms_sql.parse(v_cursor,v_sql,native);
272: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
266:
267: --
268: -- Now set up dbms_sql cursor
269: --
270: v_cursor := dbms_sql.open_cursor;
271: dbms_sql.parse(v_cursor,v_sql,native);
272: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
273: dbms_sql.define_column(v_cursor,2,v_new_updated_on);
274: dbms_sql.define_column(v_cursor,3,v_new_updated_by,30);
267: --
268: -- Now set up dbms_sql cursor
269: --
270: v_cursor := dbms_sql.open_cursor;
271: dbms_sql.parse(v_cursor,v_sql,native);
272: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
273: dbms_sql.define_column(v_cursor,2,v_new_updated_on);
274: dbms_sql.define_column(v_cursor,3,v_new_updated_by,30);
275: dbms_sql.define_column(v_cursor,4,v_new_created_on);
268: -- Now set up dbms_sql cursor
269: --
270: v_cursor := dbms_sql.open_cursor;
271: dbms_sql.parse(v_cursor,v_sql,native);
272: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
273: dbms_sql.define_column(v_cursor,2,v_new_updated_on);
274: dbms_sql.define_column(v_cursor,3,v_new_updated_by,30);
275: dbms_sql.define_column(v_cursor,4,v_new_created_on);
276: dbms_sql.define_column(v_cursor,5,v_new_created_by,30);
269: --
270: v_cursor := dbms_sql.open_cursor;
271: dbms_sql.parse(v_cursor,v_sql,native);
272: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
273: dbms_sql.define_column(v_cursor,2,v_new_updated_on);
274: dbms_sql.define_column(v_cursor,3,v_new_updated_by,30);
275: dbms_sql.define_column(v_cursor,4,v_new_created_on);
276: dbms_sql.define_column(v_cursor,5,v_new_created_by,30);
277:
270: v_cursor := dbms_sql.open_cursor;
271: dbms_sql.parse(v_cursor,v_sql,native);
272: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
273: dbms_sql.define_column(v_cursor,2,v_new_updated_on);
274: dbms_sql.define_column(v_cursor,3,v_new_updated_by,30);
275: dbms_sql.define_column(v_cursor,4,v_new_created_on);
276: dbms_sql.define_column(v_cursor,5,v_new_created_by,30);
277:
278: -- Its weird how come this next bit works !!??
271: dbms_sql.parse(v_cursor,v_sql,native);
272: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
273: dbms_sql.define_column(v_cursor,2,v_new_updated_on);
274: dbms_sql.define_column(v_cursor,3,v_new_updated_by,30);
275: dbms_sql.define_column(v_cursor,4,v_new_created_on);
276: dbms_sql.define_column(v_cursor,5,v_new_created_by,30);
277:
278: -- Its weird how come this next bit works !!??
279: FOR v_counter IN 1..v_num_col LOOP
272: dbms_sql.define_column(v_cursor,1,v_new_letter, 1);
273: dbms_sql.define_column(v_cursor,2,v_new_updated_on);
274: dbms_sql.define_column(v_cursor,3,v_new_updated_by,30);
275: dbms_sql.define_column(v_cursor,4,v_new_created_on);
276: dbms_sql.define_column(v_cursor,5,v_new_created_by,30);
277:
278: -- Its weird how come this next bit works !!??
279: FOR v_counter IN 1..v_num_col LOOP
280: dbms_sql.define_column( v_cursor, v_counter+5, v_var1, 100);
276: dbms_sql.define_column(v_cursor,5,v_new_created_by,30);
277:
278: -- Its weird how come this next bit works !!??
279: FOR v_counter IN 1..v_num_col LOOP
280: dbms_sql.define_column( v_cursor, v_counter+5, v_var1, 100);
281: END LOOP;
282:
283: v_rows_processed := dbms_sql.execute( v_cursor );
284:
279: FOR v_counter IN 1..v_num_col LOOP
280: dbms_sql.define_column( v_cursor, v_counter+5, v_var1, 100);
281: END LOOP;
282:
283: v_rows_processed := dbms_sql.execute( v_cursor );
284:
285: --
286: -- Now loop through records in cursor.
287: --
291: END LOOP;
292:
293: LOOP
294:
295: EXIT WHEN dbms_sql.fetch_rows(v_cursor) < 1;
296: dbms_sql.column_value(v_cursor,1,v_new_letter);
297: dbms_sql.column_value(v_cursor,2,v_new_updated_on);
298: dbms_sql.column_value(v_cursor,3,v_new_updated_by);
299: dbms_sql.column_value(v_cursor,4,v_new_created_on);
292:
293: LOOP
294:
295: EXIT WHEN dbms_sql.fetch_rows(v_cursor) < 1;
296: dbms_sql.column_value(v_cursor,1,v_new_letter);
297: dbms_sql.column_value(v_cursor,2,v_new_updated_on);
298: dbms_sql.column_value(v_cursor,3,v_new_updated_by);
299: dbms_sql.column_value(v_cursor,4,v_new_created_on);
300: dbms_sql.column_value(v_cursor,5,v_new_created_by);
293: LOOP
294:
295: EXIT WHEN dbms_sql.fetch_rows(v_cursor) < 1;
296: dbms_sql.column_value(v_cursor,1,v_new_letter);
297: dbms_sql.column_value(v_cursor,2,v_new_updated_on);
298: dbms_sql.column_value(v_cursor,3,v_new_updated_by);
299: dbms_sql.column_value(v_cursor,4,v_new_created_on);
300: dbms_sql.column_value(v_cursor,5,v_new_created_by);
301: FOR v_counter IN 1..v_num_col LOOP
294:
295: EXIT WHEN dbms_sql.fetch_rows(v_cursor) < 1;
296: dbms_sql.column_value(v_cursor,1,v_new_letter);
297: dbms_sql.column_value(v_cursor,2,v_new_updated_on);
298: dbms_sql.column_value(v_cursor,3,v_new_updated_by);
299: dbms_sql.column_value(v_cursor,4,v_new_created_on);
300: dbms_sql.column_value(v_cursor,5,v_new_created_by);
301: FOR v_counter IN 1..v_num_col LOOP
302: dbms_sql.column_value(v_cursor,v_counter + 5,v_var1);
295: EXIT WHEN dbms_sql.fetch_rows(v_cursor) < 1;
296: dbms_sql.column_value(v_cursor,1,v_new_letter);
297: dbms_sql.column_value(v_cursor,2,v_new_updated_on);
298: dbms_sql.column_value(v_cursor,3,v_new_updated_by);
299: dbms_sql.column_value(v_cursor,4,v_new_created_on);
300: dbms_sql.column_value(v_cursor,5,v_new_created_by);
301: FOR v_counter IN 1..v_num_col LOOP
302: dbms_sql.column_value(v_cursor,v_counter + 5,v_var1);
303: v_new(v_counter) := v_var1;
296: dbms_sql.column_value(v_cursor,1,v_new_letter);
297: dbms_sql.column_value(v_cursor,2,v_new_updated_on);
298: dbms_sql.column_value(v_cursor,3,v_new_updated_by);
299: dbms_sql.column_value(v_cursor,4,v_new_created_on);
300: dbms_sql.column_value(v_cursor,5,v_new_created_by);
301: FOR v_counter IN 1..v_num_col LOOP
302: dbms_sql.column_value(v_cursor,v_counter + 5,v_var1);
303: v_new(v_counter) := v_var1;
304: END LOOP;
298: dbms_sql.column_value(v_cursor,3,v_new_updated_by);
299: dbms_sql.column_value(v_cursor,4,v_new_created_on);
300: dbms_sql.column_value(v_cursor,5,v_new_created_by);
301: FOR v_counter IN 1..v_num_col LOOP
302: dbms_sql.column_value(v_cursor,v_counter + 5,v_var1);
303: v_new(v_counter) := v_var1;
304: END LOOP;
305:
306: --
415: v_old(v_counter) := v_new(v_counter);
416: END LOOP;
417: v_rec_num := v_rec_num + 1;
418: END LOOP;
419: dbms_sql.close_cursor(v_cursor);
420: --
421: END XTR_AUDIT_RETRIEVE;
422:
423: PROCEDURE XTR_TERM_ACTIONS_RETRIEVE(p_audit_requested_by IN VARCHAR2,