arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

for db2 add logic to move to larger tablespace on add columns in updateschema

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7325 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2010-08-31 19:18:47 +00:00
parent 18d6e25558
commit 8216a254ad
1 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
perl-xCAT/xCAT/Table.pm
View File

@ -999,9 +999,40 @@ sub updateschema
$tmpcol="\`$dcol\`";
}
}
my $tablespace;
my $stmt =
"ALTER TABLE " . $self->{tabname} . " ADD $tmpcol $datatype";
$self->{dbh}->do($stmt);
if ($self->{dbh}->errstr) {
xCAT::MsgUtils->message("S", "Error adding columns for table " . $self->{tabname} .":" . $self->{dbh}->errstr);
if ($xcatcfg =~ /^DB2:/){ # see if table space error
my $error = $self->{dbh}->errstr;
if ($error =~ /54010/) {
# move the table to the next tablespace
if ($error =~ /USERSPACE1/) {
$tablespace="XCATTBS16K";
} else {
$tablespace="XCATTBS32K";
}
my $tablename=$self->{tabname};
$tablename=~ tr/a-z/A-Z/; # convert to upper
my $msg="Moving table $self->{tabname} to $tablespace";
xCAT::MsgUtils->message("S", $msg);
my $stmt2="Call sysproc.admin_move_table('XCATDB',\'$tablename\',\'$tablespace\',\'$tablespace\',\'$tablespace\','','','','','','MOVE')";
$self->{dbh}->do($stmt2);
if ($self->{dbh}->errstr) {
xCAT::MsgUtils->message("S", "Error on tablespace move for table " . $self->{tabname} .":" . $self->{dbh}->errstr);
} else { # tablespace move try column add again
if (!$self->{dbh}->{AutoCommit}) { # commit tbsp move
$self->{dbh}->commit;
}
$self->{dbh}->do($stmt);
}
} # if tablespace error
} # if db2
} # error on add column
}
}