How handle unqiue contraint error in execute immadiate statment ?

Question

PROCEDURE xfer_msp AS
v_version_number          VARCHAR2(10)     :=      'v1.2';
proc_name VARCHAR2(50)      :=      'xfer_msp'||CHR(32)||v_version_number;
fact_seq_num NUMBER(15,0)     :=     0;          -- highest seq num from previous execution
highest_seq_num               NUMBER(15,0)     :=      0;          -- new highest seq num
marker VARCHAR2(4)          :=     '0000';
perf_ref                    NUMBER               :=     0;
update_cnt                    NUMBER(8)           :=     0;
insert_cnt                    NUMBER(8)           :=     0;
reject_cnt                    NUMBER(8)           :=     0;
delete_cnt                    NUMBER(8)           :=     0;
commit_cnt                    NUMBER(8)           :=     0;
i                              NUMBER               :=     0;
v_sql                         VARCHAR2(2000);               --1.1
invoice_number               TABLE_TYPES.tString;
e_unique_constraint          EXCEPTION;      -- traps unique contraint violation
PRAGMA                         EXCEPTION_INIT(e_unique_constraint, -0001);
BEGIN
     sp_timer.capture('start');
     dbms_output.put_line(proc_name);
     perf_ref := log_performance (proc_name, 'START', 0);
marker := '0100';
SELECT src_seq_num
     INTO fact_seq_num
FROM MGT_IMI_SEQ_NUM
WHERE      table_name      =      'FACT_SALES_BASE_msp'
AND      db_name      =      'msp';
     marker := '0110';     
          v_sql:='insert into fact_sales_base_msp select fsb.* from fact_sales_base@msp fsb, dim_product@msp prod, dim_work_grp@msp wg
                    WHERE fsb.updt_seq_num > '||fact_seq_num||'AND fsb.dim_account_period_id > 200812 AND fsb.dim_product_id=prod.dim_product_id
                    AND fsb.dim_work_grp_id=wg.dim_work_grp_id AND wg.work_grp_id IN (5830,6080,7723) AND prod.gen_grp_type_10_mnmc = ''#TOLUB'' ';
          EXECUTE IMMEDIATE (v_sql);
          insert_cnt:=insert_cnt+sql%rowcount;
     marker := '0150';
     COMMIT;
marker := '0210';
UPDATE MGT_IMI_SEQ_NUM
SET src_seq_num = (SELECT MAX(updt_seq_num) FROM FACT_SALES_BASE_msp)
WHERE      table_name      =      'FACT_SALES_BASE_msp'
AND      db_name      =     'msp';
     marker := '0200';
     COMMIT;
     dbms_output.put_line(proc_name||' FACT_SALES_BASE rows inserted = '||insert_cnt);
     sp_timer.show_elapsed(proc_name);
perf_ref := log_performance (proc_name, 'STOP', perf_ref, insert_cnt, update_cnt, delete_cnt, reject_cnt );
EXCEPTION
-- fatal Error Report
WHEN e_unique_constraint THEN     
--                    when the unique contraint is raised it means the record already exists so delete & insert
marker := '0135';     
     DELETE FROM FACT_SALES_BASE_msp WHERE iop_num_prefixed = invoice_number(i);
     marker := '0137';
     INSERT INTO FACT_SALES_BASE_msp (SELECT * FROM fact_sales_base@msp WHERE iop_num_prefixed = invoice_number(i));
WHEN OTHERS THEN
dbms_output.put_line(SUBSTR(SQLERRM, 1, 70));
dbms_output.put_line('check code after marker '||marker||' in '||proc_name);
ROLLBACK; -- rollback now because log_performance does a commit
perf_ref := log_performance (proc_name, 'STOP', perf_ref, NULL, NULL, NULL, NULL, 'F' );
END;

Answer 1

Hi,
without table structure is a bit difficult to help you.
The idea using merge is this:
MERGE INTO fact_sales_base_msp fsbm
     USING (SELECT fsb.*
              FROM fact_sales_base@msp fsb, dim_product@msp prod
                 , dim_work_grp@msp wg
             WHERE     fsb.updt_seq_num > fact_seq_num
                   AND fsb.dim_account_period_id > 200812
                   AND fsb.dim_product_id = prod.dim_product_id
                   AND fsb.dim_work_grp_id = wg.dim_work_grp_id
                   AND wg.work_grp_id IN (5830, 6080, 7723)
                   AND prod.gen_grp_type_10_mnmc = '#TOLUB') fsb
        ON (fsm.iop_num_prefixed = fsb.iop_num_prefixed) -- not sure about column names
-- When record is existing update rows
WHEN MATCHED
THEN
   UPDATE SET -- list all columns you want to update
              fsbm.col1 = fsb.col1, fsbm.col2 = fsb.col2
            , fsbm.colx = fsb.colx
-- When record is not existing insert rows
WHEN NOT MATCHED
THEN
   INSERT (col1, col2,
           -- list of columns here
           colx)
   VALUES (fsbm.col1, fsbm.col2,
           -- list of columns here
           fsbm.colx);
{code}
Regards.
Al