From b1c06a86ed9cb762b8b0359501cf9ed33644138e Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 10 Aug 2010 13:29:46 +0000
Subject: [PATCH] fix bad problem in creating tables in db2-  I introduces

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7022 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/Table.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm
index b23c09c88..759a54ce7 100644
--- a/perl-xCAT/xCAT/Table.pm
+++ b/perl-xCAT/xCAT/Table.pm
@@ -565,6 +565,10 @@ sub get_datatype_string_db2 {
 	    }
 	  }
 	}
+    } else {  # type not specifically define
+          if (isAKey(\@{$descr->{keys}}, $col)) { 
+            $ret = "VARCHAR(128) NOT NULL ";  
+          }
     }
     if ($col eq "disable") {