1. --trigger
2.  
3. CREATE OR REPLACE TRIGGER USRNET.TRG_CB_ACTIVE_CODE_HIS
4.     AFTER UPDATE OR DELETE
5.     ON USRNET.tcb_activation_code
6.     FOR EACH ROW
7. DECLARE
8.     V_ACTION   VARCHAR2 (20);
9. BEGIN
10.     IF INSERTING
11.     THEN
12.         V_ACTION := 'INSERTING';
13.     ELSIF UPDATING
14.     THEN
15.         V_ACTION := 'UPDATING';
16.     ELSIF DELETING
17.     THEN
18.         V_ACTION := 'DELETING';
19.     END IF;
20.  
21.     INSERT INTO TCB_ACTIVATION_CODE_HIS (
22.        CH_ACTION, CHANGEDT, CHANGETER,
23.        CHNGEUID, CODE, DBUSER,
24.        EXP_TIME, MODULENAME, PRODUCT,
25.        REGREF, SEND_DT, SEND_MEDIUM,
26.        SEND_STAUS, STATUS, SYSDT,
27.        USER_REF, USERTERM)
28.   VALUES (  
29.       V_ACTION ,
30.       SYSDATE ,
31.       SYS_CONTEXT ('USERENV', 'IP_ADDRESS') ,
32.       USER,
33.       :OLD.CODE ,
34.       :OLD.DBUSER ,
35.       :OLD.EXP_TIME ,
36.       :OLD.MODULENAME ,
37.       :OLD.PRODUCT ,
38.       :OLD.REGREF ,
39.       :OLD.SEND_DT ,
40.       :OLD.SEND_MEDIUM ,
41.       :OLD.SEND_STAUS ,
42.       :OLD.STATUS ,
43.       :OLD.SYSDT ,
44.       :OLD.USER_REF ,
45.       :OLD.USERTERM  );
46. EXCEPTION
47.     WHEN OTHERS
48.     THEN
49.         NULL;
50. END;
51. /
52.  
53.  
54. SHOW ERRORS;