358:
359: --
360: -- Prepareing Dynamic SQL to update overlapped records.
361: --
362: l_cursor := dbms_sql.open_cursor;
363: prog_loc := 7;
364: sqlstmt := 'update ar_tax_interface set status =' ||''''||
365: 'IGNORED-NARROWER-ZIP'||''''||' where interface_line_id in ('||in_clause||')';
366: if pg_debug='Y' then
367: arp_util_tax.debug('Update statement is <><><><><><>');
368: arp_util_tax.debug(substrb(sqlstmt, 1, 250));
369: end if;
370:
371: dbms_sql.parse(l_cursor, sqlstmt, dbms_sql.native);
372: prog_loc := 8;
373:
374: l_ignore := dbms_sql.execute(l_cursor);
375:
370:
371: dbms_sql.parse(l_cursor, sqlstmt, dbms_sql.native);
372: prog_loc := 8;
373:
374: l_ignore := dbms_sql.execute(l_cursor);
375:
376: dbms_sql.close_cursor( l_cursor );
377: prog_loc := 9;
378:
372: prog_loc := 8;
373:
374: l_ignore := dbms_sql.execute(l_cursor);
375:
376: dbms_sql.close_cursor( l_cursor );
377: prog_loc := 9;
378:
379: end if;
380: prog_loc := 10;
392: arp_util_tax.debug('SQL ERRM is :'||SQLERRM);
393: end if;
394:
395: if prog_loc in (7, 8) then
396: dbms_sql.close_cursor( l_cursor );
397: end if;
398: END ELIMINATE_OVERLAPPED_RANGE;
399:
400: /*---------------------------------------------------------------------------+