Delete old value of primary key for an UPDATE LCR

Question

Hi,
I have a transformation attached to a add_global_propagation_rules, this transformation modify the command_type of every LCR to be an INSERT instead of their original command.
The old values are switched to new values array for the DELETE LCR. For the UPDATE, the old values are also removed, but when I try to remove the old value of the primary key column....the new values is also deleted!
Is it normal ? I searched in the doc to see special behavior of the delete_column for the primary key, but I saw nothing.
When the new value is delete, this line is executed :
lv_lcr.delete_column(lv_col.column_name, 'old');
Thanks.

Answer 1

Hi Sean
Thanks for you answer.
Yes, I track the DML activities, but due to hardware restriction, we have to keep the load as possible on the server source.
Here is the source of the transform function. In this version, for the UPDATE LCR, the PK are recreated.
Thanks
FUNCTION transform(lcr IN anydata)
RETURN anydata
IS
lv_isProp NUMBER(1);
lv_lcr SYS.Lcr$_Row_Record;
lv_rc PLS_INTEGER;
lv_cols SYS.LCR$_ROW_LIST;
lv_cols_new SYS.LCR$_ROW_LIST;
lv_cols_old SYS.LCR$_ROW_LIST;
lv_col SYS.LCR$_ROW_UNIT;
lv_dest gtr_destination_typ;
lv_source gtr_sourceInfo_typ;
lv_addCols gt_colInfList_typ;
i NUMBER;
r PLS_INTEGER;
lv_isUPDATE BOOLEAN;
lv_pkValues gt_value_by_colName;
lv_next VARCHAR2(30);
BEGIN
-- Access the LCR
lv_rc := lcr.GETOBJECT(lv_lcr);
--get source
lv_source := gv_sourceInfo(lv_lcr.get_object_owner||gv_connector||lv_lcr.get_source_database_name);
--get destination
lv_dest := lv_source.destination;
--Loop through column to remove columns not propagated
--when the action is a DELETE, use the array of OLD values
IF lv_lcr.get_command_type = 'DELETE' THEN
lv_cols := lv_lcr.get_values('old');
--when the action is an INSERT or an UPDATE, use the array of NEW values
ELSE
lv_cols := lv_lcr.get_values('new', 'Y');
END IF;
FOR i IN lv_cols.FIRST..lv_cols.LAST LOOP
lv_col := lv_cols(i);
--get flag indicating the propagation type       
lv_isProp := isColumnIsPropagated_fnc(lv_dest.destSchema,
lv_dest.destDatabase,
lv_lcr.get_object_name,
lv_col.column_name);
IF lv_isProp = gv_column_NOT_propagated THEN
lv_lcr.delete_column(lv_col.column_name, '*');
--if the command type is an UPDATE and the column is a PK, keep the value
ELSIF lv_lcr.get_command_type = 'UPDATE' AND
lv_isProp = gv_columnPK_propagated
THEN
lv_pkValues(lv_col.column_name) := lv_col.data;
END IF;
END LOOP;
--swith the old_values array to the new_values array when it is a DELETE
IF lv_lcr.get_command_type = 'DELETE' THEN
lv_cols_old := lv_lcr.get_values('old');
lv_lcr.set_values('new',lv_cols_old);
END IF;
-- remove the old values array
lv_lcr.set_values('old', NULL);
--when it's an UDPATE, the primary key column(s) needs to be recreated
IF lv_lcr.get_command_type IN ('UPDATE') THEN
lv_isUPDATE := TRUE;
END IF;
--convert the command_type to an INSERT
IF lv_verbose = 1 THEN
lv_msg := lv_msg||'Set command_type to INSERT; '||CHR(10);
END IF;
lv_lcr.set_command_type('INSERT');
--when it's an UDPATE, the primary key column(s) needs to be recreated
IF lv_isUPDATE = TRUE THEN
lv_next := lv_pkValues.FIRST;
WHILE lv_next IS NOT NULL LOOP
lv_lcr.add_column('new', lv_next, lv_pkValues(lv_next));
lv_next := lv_pkValues.NEXT(lv_next);
END LOOP;
END IF;
--rename source database  and object owner for the destination
lv_lcr.set_source_database_name(lv_dest.destDatabase);
lv_lcr.set_object_owner(lv_dest.destSchema);
RETURN ANYDATA.ConvertObject(lv_lcr);
END transform;