create or replace trigger aTOb after insert or update or delete

on A for each row

declare

integrity_error exception;

errno integer;

errmsg char(200);

dummy integer;

found boolean;



begin

if inserting then

insert into B(ID,name,sex) values(:NEW.ID,:NEW.name,:NEW.sex);

elsif updating then 

update B set ID=:NEW.ID,name=:NEW.name,sex = :new.sex where id=:OLD.id;

elsif deleting then

delete from B where id=:OLD.id;

end if;

exception

when integrity_error then

raise_application_error(errno, errmsg);

end;