(def web_co "01")
(def web_div "01")

(def queryname "AAKM")

(def columns
  (select (raw "qs36f.webqryc")
          (fields :WOFLD :WOFIL :WOSEQ)
          (where {:WOCO web_co
                  :WODIV web_div
                  :WOQNM queryname})))

(def rows
  (select (raw "qs36f.webqryr")
          (fields :WSFLD :WSFIL :WSSEQ :WSOPR :WSTXT)
          (where {:WSCO web_co
                  :WSDIV web_div
                  :WSQNM queryname})))

(def c-columns
  (->> columns
       (map :WOFLD)
       (map keyword)))

(def op-map
  {">" '> "=" '= "N" 'not=})

(def c-rows
  (->> rows
       (map (fn [r] (seq [(op-map (clojure.string/trim (r :WSOPR)))
                          (keyword (clojure.string/trim (r :WSFLD)))
                          (clojure.string/trim (r :WSTXT))])))))

(defn fields* [query v]
  (apply fields (cons query v)))

(def cl
  (seq (reduce (fn [x y] ['and x y]) c-rows)))

cl

;(def temp
;  '(and (= :CBORD "KM1")
;        (= :CBSTA "I")))

(def temp {:CBORD [= "KM"]})

(def query
;(sql-only
  (select (raw "qs36f.cgibase")
          (fields* c-columns)
          (where (= :CBORD "KM1")))
;)
)

query