Trouble Setting Up DML Handler for Journaling

Question

Hi Pat,
I am trying to setup a simple DML handler for journaling of a table and cannot get it to work. Configuration is as follows:
Source table
Target table - updated via basic replication setup, this works fine.
Target table journal - This table looks just like the original with additional columns for meta data about the transaction (i.e. trans_time, trans_type, trans_id..etc). Note: Did not use nested table technology.
The problem is in compiling the user procedure for the DML handler we get an error on the INSERT part of the code:
PL/SQL: ORA-00932: inconsistent datatypes: expected NUMBER got -
The code is listed below and the error points to the usage of the lcr.GET_VALUE package regardless of the column.
Can you tell me if this is a correct usage of that package/procedure? Can you provide any better examples of DML handlers,preferbly for journaling? I understand from another thread you may have a new set of doc coming out. Maybe that can help me?
I have a WORD doc w/pics that can better articulate the situation if it will help. Any direction is truely appreciated.
Best Regards,
Tom
P.S. Is Oracle consulting spun up on this technology? We are not adverse to having profesional help to reduce our spinup time.
CREATE OR REPLACE PROCEDURE contact_point_journal_dml(in_any IN SYS.ANYDATA)
IS
lcr SYS.LCR$_ROW_RECORD;
rc PLS_INTEGER;
BEGIN
-- Access the LCR
rc := in_any.GETOBJECT(lcr);
-- Insert information in the LCR into the contact_point_journal table
INSERT INTO strmuser.contact_point_journal
VALUES
(lcr.GET_VALUE('NEW', 'CONTACT_POINT_ID'),
lcr.GET_VALUE('NEW', 'EFFECTIVE_DT'),
lcr.GET_VALUE('NEW', 'VERSION'),
lcr.GET_VALUE('NEW', 'CREATED_BY'),
lcr.GET_VALUE('NEW', 'CREATED_TS'),
lcr.GET_VALUE('NEW', 'CONTACT_CODE_ID'),
lcr.GET_VALUE('NEW', 'ADDRESS1'),
lcr.GET_VALUE('NEW', 'ADDRESS2'),
lcr.GET_VALUE('NEW', 'ADDRESS3'),
lcr.GET_VALUE('NEW', 'ADDRESS4'),
lcr.GET_VALUE('NEW', 'CITY'),
lcr.GET_VALUE('NEW', 'COUNTY'),
lcr.GET_VALUE('NEW', 'STATE_PROVINCE_CODE_ID'),
lcr.GET_VALUE('NEW', 'POSTAL_CODE'),
lcr.GET_VALUE('NEW', 'COUNTRY_CODE_ID'),
lcr.GET_VALUE('NEW', 'GEO_CODE'),
lcr.GET_VALUE('NEW', 'OTHER_CONTACT_POINT_VALUE'),
lcr.GET_VALUE('NEW', 'EXPIRATION_DT'),
lcr.GET_VALUE('NEW', 'LAST_MODIFIED_BY'),
lcr.GET_VALUE('NEW', 'LAST_MODIFIED_TS'),
SYSDATE,
lcr.GET_COMMAND_TYPE(),
lcr.GET_TRANSACTION_ID(),
lcr.GET_SCN(),
lcr.GET_SOURCE_DATABASE_NAME(),
lcr.GET_OBJECT_OWNER(),
lcr.GET_OBJECT_NAME(),
'1',
'A'
-- Apply row LCR
-- Command type code may be '03' instead of 'insert' ???
-- Is the syntax correct for SET statement ???
lcr.SET_COMMAND_TYPE('INSERT');
lcr.EXECUTE(true);
END;

Answer 1

Hi Tom,
The GET_VALUE method of an LCR$ROW_RECORD returns a SYS.ANYDATA type.
You need to specify one of the static access functions to get the value of the correct type.
Here is your dml_handler with the modifications:
CREATE OR REPLACE PROCEDURE contact_point_journal_dml(in_any IN SYS.ANYDATA)
IS
lcr SYS.LCR$_ROW_RECORD;
rc PLS_INTEGER;
BEGIN
-- Access the LCR
rc := in_any.GETOBJECT(lcr);
-- Insert information in the LCR into the contact_point_journal table
INSERT INTO strmuser.contact_point_journal
VALUES
(lcr.GET_VALUE('NEW', 'CONTACT_POINT_ID').AccessNumber(),
lcr.GET_VALUE('NEW', 'EFFECTIVE_DT').AccessDate(),
lcr.GET_VALUE('NEW', 'VERSION').AccessNumber(),
lcr.GET_VALUE('NEW', 'CREATED_BY').AccessVarchar2(),
lcr.GET_VALUE('NEW', 'CREATED_TS').AccessTimestamp(),
lcr.GET_VALUE('NEW', 'CONTACT_CODE_ID').AccessNumber(),
lcr.GET_VALUE('NEW', 'ADDRESS1').AccessVarchar2(),
lcr.GET_VALUE('NEW', 'ADDRESS2').AccessVarchar2(),
lcr.GET_VALUE('NEW', 'ADDRESS3').AccessVarchar2(),
lcr.GET_VALUE('NEW', 'ADDRESS4').AccessVarchar2(),
lcr.GET_VALUE('NEW', 'CITY').AccessVarchar2(),
lcr.GET_VALUE('NEW', 'COUNTY').AccessVarchar2(),
lcr.GET_VALUE('NEW', 'STATE_PROVINCE_CODE_ID').AccessNumber(),
lcr.GET_VALUE('NEW', 'POSTAL_CODE').AccessVarchar2(),
lcr.GET_VALUE('NEW', 'COUNTRY_CODE_ID').AccessNumber(),
lcr.GET_VALUE('NEW', 'GEO_CODE').AccessVarchar2(),
lcr.GET_VALUE('NEW', 'OTHER_CONTACT_POINT_VALUE').AccessVarchar2(),
lcr.GET_VALUE('NEW', 'EXPIRATION_DT').AccessDate(),
lcr.GET_VALUE('NEW', 'LAST_MODIFIED_BY').AccessVarchar2(),
lcr.GET_VALUE('NEW', 'LAST_MODIFIED_TS').AccessTimestamp(),
SYSDATE,
lcr.GET_COMMAND_TYPE(),
lcr.GET_TRANSACTION_ID(),
lcr.GET_SCN(),
lcr.GET_SOURCE_DATABASE_NAME(),
lcr.GET_OBJECT_OWNER(),
lcr.GET_OBJECT_NAME(),
'1',
'A'
-- Apply row LCR, too
lcr.EXECUTE(true);
END;