text: -- Copyright 2018 Tanel Poder. All rights reserved. More info at http://tanelpoder.com
  -- Licensed under the Apache License, Version 2.0. See LICENSE.txt for terms & conditions.
  
  @@saveset
  
  column _ti_sequence noprint new_value _ti_sequence
  
  set feedback off heading off
  
  select trim(to_char( &_ti_sequence + 1 , '0999' )) "_ti_sequence" from dual;
  
  alter session set tracefile_identifier="&_ti_sequence";
  
  set feedback on heading on
  
  set termout off
  
  column tracefile noprint new_value trc
  
  SELECT value tracefile FROM v$diag_info WHERE name = 'Default Trace File';
  
  -- this is from from old 9i/10g days...
  --
  --	select value ||'/'||(select instance_name from v$instance) ||'_ora_'||
  --	       (select spid||case when traceid is not null then '_'||traceid else null end
  --                from v$process where addr = (select paddr from v$session
  --	                                         where sid = (select sid from v$mystat
  --	                                                    where rownum = 1
  --	                                               )
  --	                                    )
  --	       ) || '.trc' tracefile
  --	from v$parameter where name = 'user_dump_dest';
  
  set termout on
  @@loadset
  
  prompt New tracefile_identifier=&trc
  
  col tracefile print
  
  