Iets betere LST-files

svn path=/Database/trunk/; revision=11296

_UP/recreate.src

@@ -13,7 +13,6 @@ SET ECHO OFF
 SET PAGESIZE 0
 SPOOL OFF
 SET HEADING OFF
-SET DEFINE OFF
 PROMPT ***********************************************************************
 PROMPT
 PROMPT RECREATE SCRIPT van Facilitor
@@ -35,8 +34,11 @@ SET ECHO ON
 SET VERIFY OFF
 SET LINESIZE 1000
 SET SERVEROUTPUT ON;
-
-SPOOL xrecreate.LST
+SET DEFINE ON
+column fcltlogfile new_value fcltlogfile NOPRINT;
+select 'RECRE'||TO_CHAR(_DBV) || '_' || UPPER(USER || '_' || sys_context('USERENV', 'SERVICE_NAME') || '_' || sys_context('USERENV', 'SERVER_HOST')) || '_' || to_char(sysdate,'YYYYMMDD_HH24MISS') || '.lst' as fcltlogfile from dual;
+spool &fcltlogfile
+SET DEFINE OFF
 
 #include "recreate.inc"
 
@@ -51,10 +53,10 @@ SELECT 'OR'||'A-'||'DB'||TO_CHAR(_DBV)||' Warning: ' || object_type || ' ' || ob
    AND status <> 'VALID'
  ORDER BY object_name;
 
-
+SET ECHO ON
 REGISTERONCE('$Workfile: recreate.src $','$Revision$')
 
 SPOOL OFF
-SET DEFINE ON
 SET ECHO OFF
-PROMPT De recreate is gereed.. Controleer de LST-file.
+SET DEFINE ON
+PROMPT Recreate is done. Check &fcltlogfile