Script to Indentify trafce location

DECLARE

DB_Version VARCHAR2(2);

Trace_location VARCHAR2(240);

BEGIN

SELECT SUBSTR(vi.version, 1, INSTR(vi.version, '.')-1) INTO DB_Version FROM v$instance vi;

IF TO_NUMBER(DB_Version) >= 11 THEN

/* Following Line included as Execute Immediate as V$DIAG_INFO does not exist in DB Versions prior to 11g */

EXECUTE IMMEDIATE 'SELECT value FROM V$DIAG_INFO WHERE NAME = ''Diag Trace''' INTO Trace_location ;

ELSE

SELECT value INTO Trace_location FROM v$parameter WHERE name = 'user_dump_dest';

END IF ;

dbms_output.put_line('Trace File should be located in the directory :- '|| trace_location);

END;