Ingenious code not ingeniously working :(

Question

I wrote an auditing system that is supposed to be able to log all changes in any table that is picked. The following is the code, and the error message that comes up when I try to insert into the table. Basically what its supposed to do is check with the database to see which columns to log, and then creates the object types which are loaded by dynamically created bind variables....
the concept is a little hard to imagine, so if u have questions let me know...
CREATE OR REPLACE TRIGGER TRC_LND_INSERT
AFTER INSERT
ON LOAN_DEALS
FOR EACH ROW
DECLARE
CURSOR C IS
SELECT TRCT_TRACE_TABLE,
TRCP_PRI_KEY,
COLUMN_NAME,
DATA_TYPE,
ACTIVE_FLAG
FROM TRCTBL_PRIMARY_COLUMNS
WHERE TRCT_TRACE_TABLE = 'LOAN_DEALS';
CURSOR E IS
SELECT AUD.TRCT_TRACE_TABLE,
AUD.TRCC_COLUMN_NAME,
TCOL.DATA_TYPE
FROM TRCTBL_COLUMN_NAMES TCOL,
TRCTBL_AUDIT_COLUMNS AUD
WHERE TCOL.TRCT_TRACE_TABLE = AUD.TRCT_TRACE_TABLE
AND TCOL.COLUMN_NAME = AUD.TRCC_COLUMN_NAME
AND AUD.TRCT_TRACE_TABLE = 'LOAN_DEALS';
V_PRI_KEY TRCTBL_PRIMARY_KEYS.PRI_KEY%TYPE;
V_PRI_STACK VARCHAR2(4000);
V_COL_STACK VARCHAR2(4000);
BEGIN
SELECT PRI_KEY
INTO V_PRI_KEY
FROM TRCTBL_PRIMARY_KEYS
WHERE TRCT_TRACE_TABLE = 'LOAN_DEALS';
V_PRI_STACK := 'AUDIT_PRI_TABLE(';
V_COL_STACK := 'AUDIT_TABLE(';
FOR D IN C LOOP
V_PRI_STACK := V_PRI_STACK||CHR(10)||
'AUDIT_PRIMARY('||''''||D.TRCT_TRACE_TABLE||''','||''''||D.TRCP_PRI_KEY||''','||''''||D.COLUMN_NAME||''','||'TO_CHAR(:NEW.'||D.COLUMN_NAME||')),';
END LOOP;
V_PRI_STACK := RTRIM(V_PRI_STACK, ',')||')';
FOR G IN E LOOP
V_COL_STACK := V_COL_STACK||CHR(10)||
'AUDIT_COLUMN('||''''||G.TRCT_TRACE_TABLE||''','||''''||G.TRCC_COLUMN_NAME||''','||'TO_CHAR(:NEW.'||G.TRCC_COLUMN_NAME||')),';
END LOOP;
V_COL_STACK := RTRIM(V_COL_STACK, ',')||')';
EXECUTE IMMEDIATE (
'DECLARE'||CHR(10)||
' V_PRI_LOAD AUDIT_PRI_TABLE;'||CHR(10)||
' V_COL_LOAD AUDIT_TABLE;'||CHR(10)||
'BEGIN'||CHR(10)||
' V_PRI_LOAD := '||V_PRI_STACK||';'||CHR(10)||
' V_COL_LOAD := '||V_COL_STACK||';'||CHR(10)||
' TRC_TRANSACTIONS_PKG.RECORD_TRANSACTION('||CHR(10)||
' V_COL_LOAD,'||CHR(10)||
' V_PRI_LOAD,'||CHR(10)||
' '||''''||'I'||''');'||CHR(10)||
'END;');
END;
ORA-01008: not all variables bound
ORA-06512: at "LOANADMIN.TRC_LND_INSERT", line 39
ORA-04088: error during execution of trigger 'LOANADMIN.TRC_LND_INSERT'

Answer 1

Okay. If it does then I need to get this peice of code to work. Ive pasted the code again this time with some comments in it, so its a little more understandable what im trying to do... I dont know if the USING clause is what im looking for, unless I can dynamically create that part of the clause some how...
CREATE OR REPLACE TRIGGER TRC_LND_INSERT
AFTER INSERT
ON LOAN_DEALS
FOR EACH ROW
DECLARE
/* the cursor below grabs all columns inside the primary key of any named table.
in this scenario it is "loan_deals" */
CURSOR C IS
SELECT TRCT_TRACE_TABLE,
TRCP_PRI_KEY,
COLUMN_NAME,
DATA_TYPE,
ACTIVE_FLAG
FROM TRCTBL_PRIMARY_COLUMNS
WHERE TRCT_TRACE_TABLE = 'LOAN_DEALS';
/* the cursor below grabs all columns picked by the user to log of any named table.
in this scenario it is "loan_deals" */
CURSOR E IS
SELECT AUD.TRCT_TRACE_TABLE,
AUD.TRCC_COLUMN_NAME,
TCOL.DATA_TYPE
FROM TRCTBL_COLUMN_NAMES TCOL,
TRCTBL_AUDIT_COLUMNS AUD
WHERE TCOL.TRCT_TRACE_TABLE = AUD.TRCT_TRACE_TABLE
AND TCOL.COLUMN_NAME = AUD.TRCC_COLUMN_NAME
AND AUD.TRCT_TRACE_TABLE = 'LOAN_DEALS';
V_PRI_KEY TRCTBL_PRIMARY_KEYS.PRI_KEY%TYPE;
V_PRI_STACK VARCHAR2(4000);
V_COL_STACK VARCHAR2(4000);
BEGIN
SELECT PRI_KEY
INTO V_PRI_KEY
FROM TRCTBL_PRIMARY_KEYS
WHERE TRCT_TRACE_TABLE = 'LOAN_DEALS';
/* build the audit_table, and audit_pri_table objects by using a cursor for loop. output
of the variables afterwards should look something like this:
AUDIT_TABLE(
AUDIT_COLUMN('LOAN_DEALS','ADDRESS_1', '2412 SE. BELMONT ST'),
AUDIT_COLUMN('LOAN_DEALS','ADDRESS_2', 'APT 2'),
AUDIT_COLUMN('LOAN_DEALS','CI_CITY', 'PORTLAND'),
AUDIT_COLUMN('LOAN_DEALS','ZP_ZIP_CODE', '97214'),
AUDIT_COLUMN('LOAN_DEALS','STE_STATE', 'OREGON'),
AUDIT_COLUMN('LOAN_DEALS','DL_NUMBER', '032632'),
AUDIT_COLUMN('LOAN_DEALS','LOAN_CHARGE', '18'),
AUDIT_COLUMN('LOAN_DEALS','LOAN_APR', '400'),
AUDIT_COLUMN('LOAN_DEALS','LOAN_TERM', '14')); */
V_PRI_STACK := 'AUDIT_PRI_TABLE(';
V_COL_STACK := 'AUDIT_TABLE(';
FOR D IN C LOOP
V_PRI_STACK := V_PRI_STACK||CHR(10)||
/* 'TO_CHAR(:NEW.'||D.COLUMN_NAME||') is used because when the dynamic block reads the stack variable D.COLUMN_NAME will be replaced with the actual column name in the bind variable, thus dynamically creating the bind variables and object type */
'AUDIT_PRIMARY('||''''||D.TRCT_TRACE_TABLE||''','||''''||D.TRCP_PRI_KEY||''','||''''||D.COLUMN_NAME||''','||'TO_CHAR(:NEW.'||D.COLUMN_NAME||')),';
END LOOP;
V_PRI_STACK := RTRIM(V_PRI_STACK, ',')||')';
FOR G IN E LOOP
V_COL_STACK := V_COL_STACK||CHR(10)||
'AUDIT_COLUMN('||''''||G.TRCT_TRACE_TABLE||''','||''''||G.TRCC_COLUMN_NAME||''','||'TO_CHAR(:NEW.'||G.TRCC_COLUMN_NAME||')),';
END LOOP;
V_COL_STACK := RTRIM(V_COL_STACK, ',')||')';
/* drop the object types into the dynamic block and execute it */
EXECUTE IMMEDIATE (
'DECLARE'||CHR(10)||
' V_PRI_LOAD AUDIT_PRI_TABLE;'||CHR(10)||
' V_COL_LOAD AUDIT_TABLE;'||CHR(10)||
'BEGIN'||CHR(10)||
' V_PRI_LOAD := '||V_PRI_STACK||';'||CHR(10)||
' V_COL_LOAD := '||V_COL_STACK||';'||CHR(10)||
' TRC_TRANSACTIONS_PKG.RECORD_TRANSACTION('||CHR(10)||
' V_COL_LOAD,'||CHR(10)||
' V_PRI_LOAD,'||CHR(10)||
' '||''''||'I'||''');'||CHR(10)||
'END;');
END;
/