Update DML handler
-- Now create a stored procedure (at
DNYOIP20)
CREATE OR REPLACE PROCEDURE
ny4.write_upd_lcrs(
in_any IN SYS.ANYDATA)
IS
lcr SYS.LCR$_ROW_RECORD;
rc PLS_INTEGER;
blk_user
varchar2(30) ;
blk_txname varchar2(20) ;
blk_sid number(6) ;
ext_attr SYS.AnyData;
res NUMBER;
BEGIN
-- First Access the LCR ; Object is placed
in LCR variable
rc := in_any.GETOBJECT(lcr);
-- from LCR variable, Anydata is placed in
ext_attr variablee
ext_attr :=
lcr.GET_EXTRA_ATTRIBUTE('username') ;
res := ext_attr.GETVARCHAR2(blk_user);
ext_attr :=
lcr.GET_EXTRA_ATTRIBUTE('tx_name') ;
res :=
ext_attr.GETVARCHAR2(blk_txname);
ext_attr :=
lcr.GET_EXTRA_ATTRIBUTE('session#') ;
res := ext_attr.GETNUMBER(blk_sid);
