Help needed in making table name and column name dynamic

Question

please check the below query? in the below message
Message was edited by:
460425
Message was edited by:
460425

Answer 1

thanks Dmytro,
below is the script i was looking for it got it..any way thanks.
just need to replace dbms_output.put_line with utl_file.put_line
to put the code on server directory.
and execute as and when required.
Reg.
AAK
CREATE OR REPLACE PROCEDURE p_ad_log
IS
     CURSOR tbl_cursor IS
          SELECT table_name FROM user_tables WHERE table_name IN('EMP','EMP1') ;
     CURSOR col_cursor( cp_table_name varchar2) IS
          SELECT column_name FROM user_tab_columns WHERE table_name=cp_table_name;
     --v_file_handle      utl_file.file_type;
     --v_file_dir          varchar2(30)      :=     'DIRECTORY PATH'     ';
     --v_file_name     varchar2(30)       :=       'AD_TRIGGER_TEXT.TXT';
     tbl_cursor_value     tbl_cursor%ROWTYPE;
     col_cursor_value     col_cursor%ROWTYPE;
     v_string          varchar2(4000);
     v_string_val     varchar2(4000);
BEGIN
     DELETE audit_triggers_status;
     COMMIT;
     --v_file_handle := utl_file.fopen(v_file_dir,v_file_name,'W',32000);
     OPEN tbl_cursor;
     LOOP
          FETCH tbl_cursor into tbl_cursor_value;
          EXIT WHEN tbl_cursor%NOTFOUND;
          OPEN col_cursor(tbl_cursor_value.table_name);
          DBMS_OUTPUT.PUT_LINE( 'CREATE OR REPLACE TRIGGER' ||' ad_'||tbl_cursor_value.table_name); -- short name for audit trigger coz table name will be appended to it and result should not exceed 30 char
          DBMS_OUTPUT.PUT_LINE( 'BEFORE INSERT OR UPDATE OR DELETE ON '||tbl_cursor_value.table_name);
          DBMS_OUTPUT.PUT_LINE( 'FOR EACH ROW');
          DBMS_OUTPUT.PUT_LINE( 'BEGIN');
          v_string:='INSERT INTO'||' ad_'||tbl_cursor_value.table_name||'(';
          v_string_val:='values(';
          INSERT INTO audit_triggers_status( table_name,trigger_name,audit_flag) VALUES (tbl_cursor_value.table_name,' ad_'||tbl_cursor_value.table_name,'Y');
               LOOP
                    FETCH col_cursor into col_cursor_value;
                    EXIT WHEN col_cursor%NOTFOUND;
                    v_string:=v_string||col_cursor_value.column_name||',';
                    v_string_val:=v_string_val||':new.'||col_cursor_value.column_name||',';
               END LOOP;
               CLOSE COL_CURSOR;
          v_string:=substr(v_string,1,length(v_string)-1);
          v_string_val:=substr(v_string_val,1,length(v_string_val)-1);
          v_string:=v_string||') ';
          v_string_val:=v_string_val||');';
          --DBMS_OUTPUT.PUT_LINE(v_string||v_string_val);
          DBMS_OUTPUT.PUT_LINE('IF INSERTING THEN');
          DBMS_OUTPUT.PUT_LINE('     '||v_string||v_string_val);
          DBMS_OUTPUT.PUT_LINE('END IF;');
          DBMS_OUTPUT.PUT_LINE('IF UPDATING THEN');
          DBMS_OUTPUT.PUT_LINE('     '||v_string||v_string_val);
          DBMS_OUTPUT.PUT_LINE('END IF;');
          DBMS_OUTPUT.PUT_LINE('IF DELETING THEN');
          --DBMS_OUTPUT.PUT_LINE('     '||v_string||REPLACE(v_string_val,':new.',':old.');
          V_STRING_VAL:=REPLACE(v_string_val,':new.',':old.');
          DBMS_OUTPUT.PUT_LINE('     '||v_string||v_string_val);
          DBMS_OUTPUT.PUT_LINE('END IF;');
          DBMS_OUTPUT.PUT_LINE('END '||' ad_'||tbl_cursor_value.table_name||';');
          DBMS_OUTPUT.PUT_LINE(' ');
     END LOOP;
     CLOSE TBL_CURSOR;
     COMMIT;
END;