Insert and update command types in dml handlers

Question

Hi,
I have been setting up streams in Oracle 9.2.0.4.
I have been writing dml handlers for a table 'LARGE_INSERT_CLONE' in the 'SQUID' schema.
My requirement is as follows.
1. If a record is inserted in the table 'LARGE_INSERT_CLONE' in the source database, a record must be inserted in the
'LARGE_INSERT_CLONE_INS' table in the destination database.
2. If a record is updated for the first time in the table 'LARGE_INSERT_CLONE' in the source database, a record must be inserted in the 'LARGE_INSERT_CLONE_UPD' table in the destination database. Upon subsequent updates in the table 'LARGE_INSERT_CLONE' in the source database, the appropriate record must be updated in the 'LARGE_INSERT_CLONE_UPD' table in the destination database.
To incorporate this, I have set up streams on the 'LARGE_INSERT_CLONE' table at the source and destination databases.
The structure of the table is
CREATE TABLE LARGE_INSERT_CLONE (
CLONE_ID NUMBER (15) primary key,
LIBRARY_ID NUMBER (15) NOT NULL,
CLONE_NAME VARCHAR2 (80) NOT NULL,
CLONE_ALIAS VARCHAR2 (80),
ESTIMATED_SIZE NUMBER (12,3),
CHROMOSOME VARCHAR2 (2),
CYTO_LOCATION VARCHAR2 (10),
COMMENTS VARCHAR2 (255))
The structure of the tables LARGE_INSERT_CLONE , LARGE_INSERT_CLONE_INS and LARGE_INSERT_CLONE_UPD are the same.
I have set up dml handlers as follows. Having done so, supplemental log group has been created on each column of the table
LARGE_INSERT_CLONE at the source database.
BEGIN
DBMS_APPLY_ADM.SET_DML_HANDLER(
object_name => 'squid.LARGE_INSERT_CLONE',
object_type => 'TABLE',
operation_name => 'INSERT',
error_handler => false,
user_procedure => 'strmadmin.DMLLARGE_INSERT_CLONE',
apply_database_link => null);
END;
BEGIN
DBMS_APPLY_ADM.SET_DML_HANDLER(
object_name => 'squid.LARGE_INSERT_CLONE',
object_type => 'TABLE',
operation_name => 'UPDATE',
error_handler => false,
user_procedure => 'strmadmin.DMLLARGE_INSERT_CLONE',
apply_database_link => null);
END;
CREATE OR REPLACE PROCEDURE DMLLARGE_INSERT_CLONE(in_any IN SYS.ANYDATA) IS
lcr SYS.LCR$_ROW_RECORD;
old_values SYS.LCR$_ROW_LIST;
new_values SYS.LCR$_ROW_LIST := null;
rc PLS_INTEGER;
old_no SYS.AnyData;
command varchar2(10);
no_found char(1) := 'N';
res number;
num number;
tn VARCHAR2(61);
BEGIN
rc := in_any.GETOBJECT(lcr);
command := lcr.GET_COMMAND_TYPE();
old_values := lcr.GET_VALUES('OLD');
new_values := lcr.GET_VALUES('NEW');
IF command = 'UPDATE' THEN
old_no := lcr.GET_VALUE('old','CLONE_ID');
     tn := old_no.GETTYPENAME();
     if tn = 'SYS.NUMBER' then
     res := old_no.GETNUMBER(num);
     end if;
     BEGIN
     select DISTINCT 'Y'
     into no_found
     from squid.LARGE_INSERT_CLONE_UPD
     WHERE CLONE_ID = num;
     lcr.SET_OBJECT_NAME('LARGE_INSERT_CLONE_UPD');
     EXCEPTION
     WHEN OTHERS THEN
     lcr.SET_COMMAND_TYPE('INSERT');
     lcr.SET_OBJECT_NAME('LARGE_INSERT_CLONE_UPD');
     END;
     ELSIF command = 'INSERT' THEN
     lcr.SET_COMMAND_TYPE('INSERT');
     lcr.SET_OBJECT_NAME('LARGE_INSERT_CLONE_INS');
     END IF;
     LCR.EXECUTE(true);
END;
Having done so, when i perform dml operations, the following is the outcome.
1. Upon insert of a record, the record is appropriately inserted in LARGE_INSERT_CLONE_INS table.
2. Upon updating the record, as per the requirements, a record must be inserted in LARGE_INSERT_CLONE_UPD table, but i get the following error.
ORA-01400: cannot insert NULL into ("SQUID"."LARGE_INSERT_CLONE_UPD"."CLONE_ID")
I tried printing the new values the lcr holds, they seem to be correct. but the record is not inserted.
Could anyone tell me where the operation fails.
Thanx.
Trupti

Answer 1

well the fields have values.
they are not null.
now if i add the following.
lcr.add_column('new',clone_id,old_no);
and update a column say clone_name
then the record is inserted with the clone_id and clone_name values. The rest is null.
My question is if the lcr has the new set of values, why does it insert null into the columns. ?