Action of trigger to create records in table - how enusre parent commits

Question

Hi,
Using oracle 11.2.0.3 and wish to do the following.
Have trigger on table a on database a.
When a record is inserted into table a a record should be written first to table1 on database b , committed then a record written to table2 on database b
as table2 has fk dependency on table 1.
How can we best achieve this.
Getting problems with the commit inside the trigger have tried pragma autonous transaction as well.
Get ora-02064 distributed transaction not supported when use the following code
create or replace trigger por_TRG_POP_IKNOW_MULTIPLE2
after INSERT OR UPDATE or delete   on por_MULTIPLE
for each row
-- tO ENSURE I-KNOW KEPT UP-TO-DATE WITH HOMIS MULTIPLE
-- delib not delet form i-know as if has been used by customer cannot delete
-- due to referential inetgrity constraints in i-know
-- Note parent_num updated on IKW via support.maintain_latest_dim_version.update_multiple until
-- When IKW becomes master of multiple info, this trigger can be removed
-- and support.maintain_latest_dim_version.update_multiple removed
declare
  PRAGMA AUTONOMOUS_TRANSACTION;
v_dml_type varchar2(1);
begin
   IF INSERTING OR UPDATING
   THEN
MERGE INTO [email protected] a
      USING
       select
       :new.MULT_LINK_MULTIPLE_CODE MULT_LINK_MULTIPLE_num
       multiple2.mult_name
       from dual, por_multiple multiple2
       where :new.MULT_LINK_MULTIPLE_CODE = multiple2.mult_multiple_code
       ) b
    on
       b.mult_link_multiple_NUM = a.mgrp_NUM
--when matched THEN update set
--      a.MGRP_NUM b.mult_link_multiple_num,
--      MGRP_DESCRIPTION = (select mult_name from por_multiple
  --                         where mult_code = mult_link_multiple_code
when not matched
then insert
a.MGRP_NUM,
a.MGRP_DESCRIPTION
values
       b.mult_link_multiple_num,
       b.mult_name
end if;
commit;
EXCEPTION
     WHEN OTHERS THEN
        RAISE_APPLICATION_ERROR(-20010,'Error when writing to i-know multiple '||SQLERRM||' '||SQLCODE);
END por_TRG_POP_IKNOW_MULTIPLE2;Thanks
Edited by: user5716448 on 14-May-2013 06:20

Answer 1

Hi,
Get ORA-02064 when try as suggested - distributed transaction not supported.
Thanks
create or replace trigger por_TRG_POP_IKNOW_MULTIPLE
after INSERT OR UPDATE or delete   on por_MULTIPLE
for each row
-- tO ENSURE I-KNOW KEPT UP-TO-DATE WITH HOMIS MULTIPLE
-- delib not delet form i-know as if has been used by customer cannot delete
-- due to referential inetgrity constraints in i-know
-- Note parent_num updated on IKW via support.maintain_latest_dim_version.update_multiple until
-- When IKW becomes master of multiple info, this trigger can be removed
-- and support.maintain_latest_dim_version.update_multiple removed
declare
v_dml_type varchar2(1);
--pragma autonomous_transaction;
begin
   IF INSERTING OR UPDATING
   THEN
MERGE INTO [email protected] a
      USING
       select
       :new.MULT_LINK_MULTIPLE_CODE MULT_LINK_MULTIPLE_num
       from dual
       ) b
    on
       b.mult_link_multiple_NUM = a.mgrp_NUM
--when matched THEN update set
--      a.MGRP_NUM =b.mult_link_multiple_nuM
when not matched
then insert
a.MGRP_NUM
values
       b.mult_link_multiple_num
      MERGE INTO [email protected] a
      USING
       select
       :NEW.MULT_ANMW_MULTIPLE_CODE MULT_ANMW_MULTIPLE_CODE,
       :new.MULT_AUTH_REQUIRED MULT_AUTH_REQUIRED,
       :new.MULT_JMW_MULTIPLE_TYPE_CODE MULT_JMW_MULTIPLE_TYPE_CODE,
       :new.MULT_LINK_MULTIPLE_CODE MULT_LINK_MULTIPLE_num,
       :new.MULT_MULTIPLE_CODE MULT_MULTIPLE_NUM,
       :new.MULT_NAME MULT_NAME,
       :new.MULT_PROM_AUTH_REQUIRED MULT_PROM_AUTH_REQUIRED,
       :new.MULT_SELECTED_MULTIPLE MULT_SELECTED_MULTIPLE,
           'Y' MULT_active_flag,
       nvl(:new.MULT_JMW_MULTIPLE_TYPE_CODE, 0) MULT_CHANNEL_NUM,
       :new.MULT_LINK_MULTIPLE_CODE MULT_PARENT_NUM -- added 14/05/13
       from dual
       ) b
    on
       a.mult_multiple_NUM = b.MULT_MULTIPLE_NUM
when matched THEN update set
       A.MULT_ANMW_MULTIPLE_CODE = B.MULT_ANMW_MULTIPLE_CODE ,
       A.MULT_AUTH_REQUIRED = B.MULT_AUTH_REQUIRED,
       A.MULT_JMW_MULTIPLE_TYPE_CODE = B.MULT_JMW_MULTIPLE_TYPE_CODE ,
       A.MULT_LINK_MULTIPLE_num = B.MULT_LINK_MULTIPLE_num,
       A.MULT_NAME =B.MULT_NAME,
       A.MULT_PROM_AUTH_REQUIRED=B.MULT_PROM_AUTH_REQUIRED,
       A.MULT_SELECTED_MULTIPLe=B.MULT_SELECTED_MULTIPLE,
           A.MULT_ACTIVE_FLAG = B.MULT_ACTIVE_FLAG,
       A.MULT_CHANNEL_NUM= B.MULT_CHANNEL_NUM,
       a.mult_parent_num = B.MULT_LINK_MULTIPLE_num
when not matched
then insert
A.MULT_ANMW_MULTIPLE_CODE,
       A.MULT_AUTH_REQUIRED,
       A.MULT_JMW_MULTIPLE_TYPE_CODE,
       A.MULT_LINK_MULTIPLE_NUM,
       A.MULT_MULTIPLE_NUM,
       A.MULT_NAME,
       a.MULT_PROM_AUTH_REQUIRED,
       a.MULT_SELECTED_MULTIPLE,
       -- NEW FIELDS ON I-KNOW
       a.MULT_ACTIVE_FLAG,
        a.MULT_CHANNEL_NUM,
        a.MULT_PARENT_NUM
values
       b.MULT_ANMW_MULTIPLE_CODE,
       b.MULT_AUTH_REQUIRED,
       b.MULT_JMW_MULTIPLE_TYPE_CODE,
       b.MULT_LINK_MULTIPLE_NUM,
       b.MULT_MULTIPLE_NUM,
       b.MULT_NAME,
       b.MULT_PROM_AUTH_REQUIRED,
       b.MULT_SELECTED_MULTIPLE,
       -- NEW FIELDS ON I-KNOW
       b.MULT_ACTIVE_FLAG,
        b.MULT_CHANNEL_NUM,
        b.MULT_LINK_MULTIPLE_NUM
else
     update [email protected] p
     set  mult_active_flag = 'N'
     where  p.mult_multiple_num = :old.mult_multiple_code;
END IF;
if inserting
then
   v_dml_type := 'I';
else
  if updating
  then  
     v_dml_type := 'U';
  else
     v_dml_type := 'D' ; 
  end if;  
end if;
/*INSERT INTO IKNOW_AUDIT_MULTIPLE_CHANGES
MULT_MULTIPLE_CODE,
MULT_NAME,
MULT_SELECTED_MULTIPLE,
MULT_ANMW_MULTIPLE_CODE,
MULT_LINK_MULTIPLE_CODE,
MULT_JMW_MULTIPLE_TYPE_CODE,
MULT_AUTH_REQUIRED,
MULT_PROM_AUTH_REQUIRED,
dml_type,
DATE_ACTIONED,
MULT_PARENT_NUM
values
       :new.MULT_MULTIPLE_CODE ,
       :new.MULT_NAME,
       :new.MULT_SELECTED_MULTIPLE,
       :NEW.MULT_ANMW_MULTIPLE_CODE,
       :new.MULT_LINK_MULTIPLE_CODE,
       :new.MULT_JMW_MULTIPLE_TYPE_CODE ,
       :new.MULT_AUTH_REQUIRED ,
       :new.MULT_PROM_AUTH_REQUIRED,
       v_dml_type ,
       sysdate,
       :new.MULT_LINK_MULTIPLE_CODE
EXCEPTION
     WHEN OTHERS THEN
        RAISE_APPLICATION_ERROR(-20010,'Error when writing to i-know multiple '||SQLERRM||' '||SQLCODE);
END por_TRG_POP_IKNOW_MULTIPLE;