   (spy :msg "drop table"
     (jdbc/execute! db-spec [ (format "drop table if exists %s cascade" table-name) ] ))
 
-  (spy :msg "create table"
-    (jdbc/db-do-commands db-spec 
-      (ddl/create-table
-        table-name
-        [:id        :serial "primary key"]
-        [:name      :text   "not null"] )))
-
-  (spy :msg "insert"
-    (jdbc/insert! db-spec table-name
-      {:name "Clojure"}
-      {:name "Java"} ))
+  (spy :msg "create2"
+    (jdbc/execute! db-spec [creation-sql-str] ))
+
+  (spy :msg "insert2"
+    (jdbc/execute! db-spec [insert2-str] ))
 
   (spy :msg "query"
     (jdbc/query db-spec
-      (jdbc-sql/select * table-name (jdbc-sql/where {:name "Clojure"} ))))
+      (jdbc-sql/select * table-name  )))
+
  (newline))
 
-
 (defn -main []
-  (v0)
+  (drop-create)
+  (test0)
 )
 

          PRIMARY KEY (ENTERPRISE_ID,CASE_ID,DLP_REVISION_NUMBER)
  ); " )

(defn v0 []
  (newline)
  (println "-----------------------------------------------------------------------------")
  (println "rm-case-master-spec")

    :subprotocol "postgresql"
    :subname "//localhost:5432/alan"
  ; :user "alan"
  ; :pass "secret"
  })

(def table-name "rm_case_master" )

(def creation-sql-str "
  CREATE TABLE rm_case_master (
          ENTERPRISE_ID numeric NOT NULL,
          CASE_ID numeric NOT NULL,
