[Tora-cvs] SF.net SVN: tora:[3822] trunk/tora/src/tocodemodel.cpp

[<mrj...@us...>]

Revision: 3822
          http://tora.svn.sourceforge.net/tora/?rev=3822&view=rev
Author:   mrjohnson0
Date:     2010-11-23 19:01:22 +0000 (Tue, 23 Nov 2010)

Log Message:
-----------
nazi dbas don't want me using the tables...

Modified Paths:
--------------
    trunk/tora/src/tocodemodel.cpp

Modified: trunk/tora/src/tocodemodel.cpp
===================================================================
--- trunk/tora/src/tocodemodel.cpp	2010-11-23 08:38:57 UTC (rev 3821)
+++ trunk/tora/src/tocodemodel.cpp	2010-11-23 19:01:22 UTC (rev 3822)
@@ -133,15 +133,12 @@
 
 static toSQL SQLListObjectsTeradata(
     "toCodeModel:ListObjects",
-    "SELECT tvm.tvmname,\n"
-    "       CASE WHEN tvm.tablekind = 'P' THEN 'PROCEDURE' ELSE 'MACRO' END AS object_type,\n"
-    "       'VALID ' AS Status\n"
-    "  FROM DBC.DBase d,\n"
-    "       dbc.tvm\n"
-    " WHERE databasenamei = trim ( :f1<char[101]> )\n"
-    "   AND d.databaseid = tvm.databaseid\n"
-    "   AND tvm.tablekind IN ( 'P',\n"
-    "                          'M' )\n"
+    "SELECT TABLENAME,\n"
+    "       CASE WHEN TABLEKIND = 'P' THEN 'PROCEDURE' ELSE 'MACRO' END AS object_type,\n"
+    "       'VALID' AS Status\n"
+    "  FROM dbc.TABLES\n"
+    " WHERE databasename = trim ( :f1<char[101]> )\n"
+    "   AND tablekind IN ( 'P', 'M' )\n"
     " ORDER BY 1",
     "",
     "",


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.