From 9bea5c5075019b555f4cc92dc6314e47ec60c35b Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 30 Aug 2010 20:04:27 +0000
Subject: [PATCH] honor type statement on keys

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

diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm
index ccff57232..3cb77f182 100644
--- a/perl-xCAT/xCAT/Table.pm
+++ b/perl-xCAT/xCAT/Table.pm
@@ -558,7 +558,8 @@ sub get_datatype_string_db2 {
 	} else {
           # if the column is a key 
           if (isAKey(\@{$descr->{keys}}, $col)) { 
-            $ret = "VARCHAR(128) NOT NULL ";  
+	    $ret = $types->{$col};
+            $ret .= " NOT NULL ";  
           } else {
 	    $ret = $types->{$col};
             if ($ret eq "TEXT") {  # text not in db2