FCLT#58238 Iets betere database versie (adm)tracking

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

ADM/ADM_PAC.SRC

@@ -4,6 +4,7 @@
 
 CREATE OR REPLACE PACKAGE adm
 AS
+   FUNCTION systeminfo RETURN VARCHAR2;
    PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER DEFAULT 1);
    PROCEDURE trydrop (n IN VARCHAR2);
    PROCEDURE tryalter (n IN VARCHAR2);
@@ -125,18 +126,13 @@ AS
       RETURN UPPER(lstname);
    END;
 
-   FUNCTION checkscriptcust(custpattern IN VARCHAR2)
-      RETURN VARCHAR2
+   FUNCTION systeminfo
+    RETURN VARCHAR2
    IS
-      klant     VARCHAR2(4);
-      groep     VARCHAR2(4);
-      fout      NUMBER(1) := 0;
-      qry       VARCHAR2(4000);
       tekst     VARCHAR2 (4000);
       TYPE table_varchar IS TABLE OF VARCHAR2 (32);
       var_table_varchar table_varchar;
    BEGIN
-      -- Wat handige info voor in de SPOOL-file (vooral bij licentieklanten waar we het niet altijd weten)
       var_table_varchar :=
           table_varchar ('TERMINAL',
                          'HOST',
@@ -157,6 +153,20 @@ AS
                    var_table_varchar (elem) || ': ' ||
                    SYS_CONTEXT ('USERENV', var_table_varchar (elem));
       END LOOP;
+      return tekst;
+   END;
+
+   FUNCTION checkscriptcust(custpattern IN VARCHAR2)
+      RETURN VARCHAR2
+   IS
+      klant     VARCHAR2(4);
+      groep     VARCHAR2(4);
+      fout      NUMBER(1) := 0;
+      qry       VARCHAR2(4000);
+      tekst     VARCHAR2 (4000);
+   BEGIN
+      -- Wat handige info voor in de SPOOL-file (vooral bij licentieklanten waar we het niet altijd weten)
+      tekst := adm.systeminfo;
 
       BEGIN
          -- EXECUTE IMMEDIATE oplossing omdat in het CREA-script de fac_version_tabel er niet op tijd