X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=parse-2002.lisp;h=9c2a286c82d65292988fae829e255ad884074107;hb=0a3ba23814f05d98354c8667870077d64cafae37;hp=aa9c46a6c423dc0bfb00c7f5eea4b4601484f0b7;hpb=c998b2d61806c209ead92af13929c12adaa7c451;p=umlisp.git

diff --git a/parse-2002.lisp b/parse-2002.lisp
index aa9c46a..9c2a286 100644
--- a/parse-2002.lisp
+++ b/parse-2002.lisp
@@ -213,8 +213,8 @@
        (lambda (x) (write-to-string (make-cuisui (parse-ui (nth 2 x)) (parse-ui (nth 4 x))))))
       ("MRXNS.ENG" "KCUISUI" "BIGINT" 0
        (lambda (x) (write-to-string (make-cuisui (parse-ui (nth 2 x)) (parse-ui (nth 4 x))))))
-      ("MRXW.NONENG" "LAT" "CHAR" 3 (lambda (x) (nth 0 x)))
-      ("MRXW.NONENG" "WD"  "CHAR" 200  (lambda (x) (nth 1 x)))
+      ("MRXW.NONENG" "LAT" "VARCHAR" 3 (lambda (x) (nth 0 x)))
+      ("MRXW.NONENG" "WD"  "VARCHAR" 200  (lambda (x) (nth 1 x)))
       ("MRXW.NONENG" "CUI" "INTEGER" 0 (lambda (x) (write-to-string (parse-ui (nth 2 x)))))
       ("MRXW.NONENG" "LUI" "INTEGER" 0 (lambda (x) (write-to-string (parse-ui (nth 3 x)))))
       ("MRXW.NONENG" "SUI" "INTEGER" 0 (lambda (x) (write-to-string (parse-ui (nth 4 x)))))