FROM SYSCAT.TABCONST as tc
JOIN SYSCAT.KEYCOLUSE as kcu ON tc.CONSTNAME = kcu.CONSTNAME
WHERE tc.TABSCHEMA = ? and tc.TABNAME = ? and tc.TYPE = 'U'}
- );
+ ) or die $DBI::errstr;
$sth->execute($self->db_schema, $table) or die $DBI::errstr;
@{$keydata{$keyname}};
push(@uniqs, [ $keyname => \@ordered_cols ]);
}
+
$sth->finish;
return \@uniqs;