Using to pass the current user while creating a procedure

Question

I have a .sql script that several people use to help set-up test beds but some users call the test procedures from a separate schema. The .sql creates a table (TABLE_A) and then a procedure that when run will create a trigger on a separate table (TABLE_B) that basically writes all info to TABLE_A. The problem is that if the .sql is run under schema SCOTT and then the procedure is run from schema JOE to create a trigger on JOE.TABLE_B, the trigger will try to write copy info to just TABLE_A instead of SCOTT.TABLE_A. My plan is to add a new input variable to the procedure for the schema where the procedure is located and set the default to the schema of the user running the .sql.
I can't seem to figure out how to call the current user and then pass it to a procedure as a DEFAULT input variable. Any help would be greatly appreciated.

Answer 1

OK, sadly, that did not work. What that provided to me was user that runs the procedure. If I run it as SCOTT it gives me SCOTT, but if I run as JOE, it gives me JOE.
I created an example of what I am trying to do (it is all run in a .sql file). Let me know if this is a bad example....
CREATE TABLE TABLE_A (
tranid VARCHAR2(20) Primary Key,
db_user varchar2(100) not null,
     old_val varchar2(100) not null,
create or replace PROCEDURE TestBuild(OWN2 IN VARCHAR2, TNAME2 IN VARCHAR2, LOC2 IN VARCHAR2) IS
OWN VARCHAR2(30);
TNAME VARCHAR2(30);
FNAME VARCHAR2(62);
UNAME VARCHAR2(62);
COL VARCHAR2(30);
ST CHAR;
CONS VARCHAR2(30);
BEGIN
OWN := UPPER(OWN2);
TNAME := UPPER(TNAME2);
FNAME := OWN||'.'||TNAME;
UNAME := OWN||'_'||TNAME;
FILE := SYS.UTL_FILE.FOPEN(LOC2,'TEST_Trig_'||UNAME||'.sql','w');
SYS.UTL_FILE.PUT_LINE(FILE,'-- Test trigger start');
SYS.UTL_FILE.PUT_LINE(FILE,'-- generated '||SYSDATE);
SYS.UTL_FILE.NEW_LINE(FILE,1);
-- The following trigger fires for EVERY row of each statement for
-- the specified table.
SYS.UTL_FILE.PUT_LINE(FILE,'CREATE OR REPLACE TRIGGER Test_trig_'||UNAME||' AFTER INSERT OR UPDATE OR DELETE ON '||FNAME||' ');
SYS.UTL_FILE.PUT_LINE(FILE,' REFERENCING NEW as n OLD as o FOR EACH ROW');
SYS.UTL_FILE.PUT_LINE(FILE,' DECLARE');
SYS.UTL_FILE.PUT_LINE(FILE,' dmltype CHAR(1);');
SYS.UTL_FILE.PUT_LINE(FILE,' tpid VARCHAR2(30);');
SYS.UTL_FILE.PUT_LINE(FILE,' BEGIN');
SYS.UTL_FILE.PUT_LINE(FILE,' tpid := SYS.DBMS_TRANSACTION.LOCAL_TRANSACTION_ID();');
SYS.UTL_FILE.PUT_LINE(FILE,' IF INSERTING THEN dmltype := ''I'';');
SYS.UTL_FILE.PUT_LINE(FILE,' ELSIF UPDATING THEN dmltype := ''U'';');
SYS.UTL_FILE.PUT_LINE(FILE,' ELSIF DELETING THEN dmltype := ''D'';');
SYS.UTL_FILE.PUT_LINE(FILE,' END IF;');
SYS.UTL_FILE.PUT_LINE(FILE,' BEGIN');
SYS.UTL_FILE.PUT_LINE(FILE,' INSERT INTO TABLE_A VALUES (tpid,User,:o.col1);');
SYS.UTL_FILE.PUT_LINE(FILE,' END IF;');
SYS.UTL_FILE.PUT_LINE(FILE,' EXCEPTION WHEN already_there THEN NULL;');
SYS.UTL_FILE.PUT_LINE(FILE,' END;');
SYS.UTL_FILE.PUT_LINE(FILE,' END;');
SYS.UTL_FILE.PUT_LINE(FILE,'/');
SYS.UTL_FILE.PUT_LINE(FILE,'show errors');
SYS.UTL_FILE.NEW_LINE(FILE,1);
SYS.UTL_FILE.FCLOSE_ALL;
dbms_output.put_line('Script for table ['||FNAME||'] created. Now run it in sqlplus. ');
END;