|
Listing 2. This procedure initializes the results table.
1 PROCEDURE initialize (package_in IN VARCHAR2)
2 IS
3 PRAGMA AUTONOMOUS_TRANSACTION;
4 l_names cc_names.names_rt := cc_names.for_program (package_in);
5 BEGIN
6 EXECUTE IMMEDIATE 'DELETE FROM cc_ambig_ovld_results'
7 || ' '
8 || c_where_clause
9 USING l_names.owner
10 ,l_names.package_name
11 ,l_names.object_name
12 ,l_names.object_name
13 ,l_names.package_name
14 ,l_names.object_name;
15 COMMIT;
16 EXCEPTION
17 WHEN OTHERS THEN ROLLBACK;
20* END;
|