#################################################################### # 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 } }