Index by: file name |
procedure name |
procedure call |
annotation
deleteDataSource_proc.tcl
(annotations | original source)
####################################################################
# delete DataSource.
####################################################################
proc deleteDataSource { dataSourceName } {
global AdminConfig
putsLog "proc - [info level 0 ]"
# ensure the driver exists then delete the driver.
if { [ catch { $AdminConfig getid /DataSource:$dataSourceName/ } r ] == 0 } {
putsLog "dataSourceID is $r"
set dataSourceID $r
if { [ catch { $AdminConfig remove $dataSourceID } r ] == 0 } {
putsLog "db2 datasource $dataSourceID removed sucessfully"
} else {
putsLog "ERROR: failed to delete db2 dataSource"
return -code error $r
}
} else {
return -code error $r
}
}
Index by: file name |
procedure name |
procedure call |
annotation
File generated 2007-08-07 at 13:42.