001
002 set termout off;
003 set linesize 128;
004 set pagesize 9999;
005 set pagesize 0;
006 set heading off;
007 set feedback off;
008 set verify off;
009 set echo off;
010 set serveroutput on;
011
012 spool addTrackingColumnsCollections.lis;
013
014 declare
015 cursor c1 is select data_table_name from pool_collections order by data_table_name;
016 begin
017 dbms_output.enable(100000);
018 for i in c1 loop
019 dbms_output.put_line('CREATE OR REPLACE TRIGGER '||i.data_table_name||'_INSERT');
020 dbms_output.put_line(' BEFORE INSERT');
021 dbms_output.put_line(' '||i.data_table_name||' FOR EACH ROW');
022 dbms_output.put_line('DECLARE');
023 dbms_output.put_line(' name VARCHAR2(128);');
024 dbms_output.put_line(' HOST VARCHAR2(128);');
025 dbms_output.put_line('BEGIN');
026 dbms_output.put_line(' UPDATE POOL_COLLECTIONS SET LAST_INSERT_DATE=SYSDATE WHERE DATA_TABLE_NAME='''||i.data_table_name||''';');
027 dbms_output.put_line(' UPDATE POOL_COLLECTIONS SET LAST_INSERT_USER=USER WHERE DATA_TABLE_NAME='''||i.data_table_name||''';');
028 dbms_output.put_line(' SELECT SYS_CONTEXT(''USERENV'',''OS_USER'') into name FROM DUAL;');
029 dbms_output.put_line(' SELECT SYS_CONTEXT(''USERENV'',''HOST'') into HOST from dual;');
030 dbms_output.put_line(' UPDATE POOL_COLLECTIONS SET LAST_INSERT_HOST=name||''@''||HOST WHERE DATA_TABLE_NAME='''||i.data_table_name||''';');
031 dbms_output.put_line('END;');
032 dbms_output.put_line('/');
033 end loop;
034 end;
035 /
036
Due to the LXR bug, the updates fail sometimes to remove references to deleted files. The Saturday's full rebuilds fix these problems |
This page was automatically generated by the
LXR engine.
|
|