From bd44e6423b28f5f66f840da9ce40c1955cff15f3 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Wed, 23 Sep 2015 23:15:48 +0200 Subject: [PATCH] Add support for IXF CLOB data type. In passing, fix the condition message to read the unknown IXF data types as decimal numbers (rather than hexadecimal) as they are documented that way in the IBM reference documentation. --- src/sources/ixf/ixf-schema.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/sources/ixf/ixf-schema.lisp b/src/sources/ixf/ixf-schema.lisp index 5f95db8..f4bfee8 100644 --- a/src/sources/ixf/ixf-schema.lisp +++ b/src/sources/ixf/ixf-schema.lisp @@ -37,14 +37,16 @@ (#. ixf:+time+ . "time") (#. ixf:+char+ . "text") - (#. ixf:+varchar+ . "text"))) + (#. ixf:+varchar+ . "text") + + (#. ixf:+dbclob-location-spec+ . "text"))) (defun cast-ixf-type (ixf-type) "Return the PostgreSQL type name for a given IXF type name." (let ((pgtype (cdr (assoc ixf-type *ixf-pgsql-type-mapping*)))) (unless pgtype - (error "IXF Type mapping unknown for: ~x" ixf-type)) + (error "IXF Type mapping unknown for: ~d" ixf-type)) pgtype)) (defun format-default-value (default)