How to Load data for extra columns exist in the dest schema....

Question

Hi Experts,
Please help me.
I need to replicate data from SchemaA to SchemaB.
SchemaB has 3 extra columns. Two are varchar2 type and other is Integer type.
I need to replicate the data from SchemaA to SchemaB in the same database.
When ever i inserted the data in SchemaA, The extra columns should be populated with some default data.
And if we did any update on SchemaA then the extra columns on SchemaB should be populated with other Data.
I wrote some DML_HANDLER but it always populating same data.
I dont know ow to handle this type of situation.
my Handler is:
CREATE OR REPLACE PROCEDURE dml_handler(in_any in sys.anydata)
IS
lcr SYS.LCR$_ROW_RECORD;
rc PLS_INTEGER;
object_owner VARCHAR2(30);
BEGIN
rc := in_any.GETOBJECT(lcr);
object_owner := lcr.GET_OBJECT_OWNER();
IF lcr.get_object_owner() = 'SchemaB' THEN
lcr.add_column('new','SHIP_DATE',sys.anydata.convertvarcahr2('N'));
lcr.add_column('new','SHIP_ZONE',sys.anydata.convertvarchar2('N'));
lcr.add_column('new','SHIP_REACH_BY_DATE',sys.anydata.convertnumber(1));
lcr.EXECUTE(TRUE);
END IF;
END;
BEGIN
DBMS_APPLY_ADM.SET_DML_HANDLER
(object_name => 'SchemaB.TAB_TEST',
object_type => 'TABLE',
operation_name => 'INSERT',
error_handler => FALSE,
user_procedure => 'STRMADMIN.DML_HANDLER');
END;
On extra columns in SChemaB
if its a first insert then the default values are (N,N,1).
If we did any update the values should be (Y,Y,2)
Post any script or give me some idea.
Thanks,
Ray
Edited by: user7423698 on Mar 3, 2009 6:12 PM

Answer 1

CREATE OR REPLACE PROCEDURE dml_handler (
in_any IN SYS.ANYDATA
IS
lcr sys.lcr$_row_record;
rc PLS_INTEGER;
cmd_type VARCHAR2 (30);
BEGIN
rc := in_any.getobject (lcr);
cmd_type := lcr.get_command_type;
IF cmd_type = 'INSERT'
THEN
lcr.set_values ('new', lcr.get_values ('new', 'N'));
lcr.add_column ('new', 'type', sys.anydata.convertchar ('I'));
lcr.set_values ('old', NULL);
lcr.add_column ('new', 'time', sys.anydata.converttimestamp (systimestamp));
lcr.execute (TRUE);
END IF;
END;
Set the DML handler for INSERT and write a similar one for UPDATE.