Need your experience for a trigger.

Question

Hi everyone,
I am trying to pass the :new value of a column from a trigger to a procedure that I am calling within the trigger. I have tried to pass it as a variable (varchar2)after assign to it':new'| |column_name. I even try to do the same to a variable table.col%type. I tried different ways with the DBMS_SQL package, but all around I only get the string :new.column_name. If I could get that string to produce the value under it...
Any suggestion? I don't know what else to do ;(!!
Thanks.
null

Answer 1

Thanks Rick,
Yes that code would work but not for what I need. Here is my code:
/*All variables have been globally defined on the Package declaration*/
create or replace trigger ATrigger after insert on
ATable for each row
begin
If INSERTING THEN
APackage.Log_Ins ('ATable);
For each_r in APackage.PK_Cursor(ATable)
Loop
/* nwVal pass the string :new.ID instead of the new value of the column ID; there is my problem*/
nwVal := ':new.'| |each_r.Column_Name;
colName : = each_r.Column_Name;
APackage.Log_Val (colName, nwVal);
End Loop;
End If;
end;
create or replace package body APackage AS
/*This cursor makes sure I get all the columns that are part of the Primary Key.*/
Cursor PK_Cursor (curTable varchar2)
RETURN User_Cons_Columns%RowType IS
Select *
from USER_CONS_COLUMNS
where TABLE_NAME = curTable and CONSTRAINT_NAME LIKE 'PK_%';
procedure Log_Ins (curTable in varchar2) is
begin
actualTable := LTRIM(RTRIM(currentTable, ''''), '''');
insert into LOG
values (ID.NEXTVAL,
SysDate,
User,
actualTable,
'INSERT');
procedure Log_Val (PKcol in varchar2,
newVal in varchar2) is
begin
insert into LOG_VALUES
values (ID.CURRVAL,
PKcol, -- PK column
NULL, -- old val of the
column for
delete,update
newVal);-- new value
end;
end APackage;
alter package APackage compile;
Any help would be greatly appreciated.
Thanks,
cip