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.