Doubt on user procedure used in dml handler?

Question

I am calling a user procedure in dml handler of apply process.I dont want my apply to apply changes.Instead i want to insert in a table <history_row_lcrs> the values which are captured by captured process.
history_row_lcrs table has columns (date_t date, deptno number,dname varchar2(10), loc varcha2(10))
deptno,dname,loc are the values captured as streams on dept table.
I want to know the syntax to extract these values from LCR.(that is,to accomodate in the insert statement where i have written<what?>)
CREATE OR REPLACE PROCEDURE history_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 history_row_lcrs table
INSERT INTO strmadmin.history_row_lcrs VALUES
(SYSDATE,<what??>,<what?>,<what?>); --------
-- Apply row LCR
lcr.EXECUTE(false);
END;
/

Answer 1

Once a DML handler for an object is called by APPLY, the user procedure has complete control of what to do with the LCR.
In your case, use the example provided in the streams documentation on how to view the contents of an LCR and use that in your INSERT statement. See the partial code snippet below:
Finally, you need to remove lcr.execute(FALSE) to prevent apply from applying the change.
CREATE OR REPLACE PROCEDURE print_any(data IN ANYDATA) IS
tn VARCHAR2(61);
str VARCHAR2(4000);
chr VARCHAR2(1000);
num NUMBER;
dat DATE;
rw RAW(4000);
res NUMBER;
BEGIN
IF data IS NULL THEN
DBMS_OUTPUT.PUT_LINE('NULL value');
RETURN;
END IF;
tn := data.GETTYPENAME();
IF tn = 'SYS.VARCHAR2' THEN
res := data.GETVARCHAR2(str);
ELSIF tn = 'SYS.CHAR' then
res := data.GETCHAR(chr);
ELSIF tn = 'SYS.VARCHAR' THEN
res := data.GETVARCHAR(chr);
ELSIF tn = 'SYS.NUMBER' THEN
res := data.GETNUMBER(num);
ELSIF tn = 'SYS.DATE' THEN
res := data.GETDATE(dat);
END IF;
END print_any;
CREATE OR REPLACE PROCEDURE history_dml(in_any IN SYS.ANYDATA)
IS
lcr SYS.LCR$_ROW_RECORD;
old_val SYS.LCR$_ROW_RECORD;
new_val SYS.LCR$_ROW_RECORD;
sql_text varchar2(4000) := 'insert into history_dml values (sysdate, ';
rc PLS_INTEGER;
BEGIN
-- Access the LCR
rc := in_any.GETOBJECT(lcr);
if lcr.get_command_type()='INSERT' then
-- Insert will only have new values, Update will have both old and new values and
-- Delete will only have old values.
new_val := lcr.get_values('NEW');
FOR i IN 1..new_val.COUNT LOOP
IF new_val(i) IS NOT NULL THEN
-- Make sure you put any quotes and commas here.
-- You can also create separate variables for the columns in the insert and
-- assign their values using print_any
sql_text := sql_text || print_any(oldlist(i).data);
END IF;
END LOOP;
execute immediate sql_text;
EXCEPTION
<handle any errors here>
END;