X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=parse-2002.lisp;h=ae126a0e10ff058e8520f6c3729d7ef6ab6c2e7e;hb=5be6bdf06e0c99612a4c1a1d6f110e424400d96e;hp=4c7e5a1e4ef580f172135d4c0177148bfc9a7629;hpb=3adbc09e353b3c4dc09c8c9da6cddee8075eaa14;p=umlisp.git

diff --git a/parse-2002.lisp b/parse-2002.lisp
index 4c7e5a1..ae126a0 100644
--- a/parse-2002.lisp
+++ b/parse-2002.lisp
@@ -122,11 +122,12 @@
 ;;; sql-i - Integer (32-bit)
 ;;; sql-l - Big integer (64-bit)
 ;;; sql-f - Floating point
+;;; sql-c - Character data
 
 (defparameter +col-datatypes+
     '(("AV" sql-f) ("BTS" sql-i) ("CLS" sql-i) ("COF" sql-i) ("CUI1" sql-u)
       ("CUI2" sql-u) ("CUI" sql-u) ("CXN" sql-s) ("FR" sql-i) ("LRL" sql-s)
-      ("LUI" sql-u) ("MAX" sql-s) ("MIN" sql-s) ("RANK" sql-s) ("REF" sql-s)
+      ("LUI" sql-u) ("MAX" sql-s) ("MIN" sql-s) ("RANK" sql-s) ("REF" sql-c)
       ("RNK" sql-s) ("RWS" sql-i) ("SRL" sql-s) ("SUI" sql-u) ("TUI" sql-u)
       ;;; Custom columns
       ("KCUISUI" sql-l) ("KCUILUI" sql-l) ("KCUILRL" sql-i) ("KLUILRL" sql-i)