Index by: file name | procedure name | procedure call | annotation
deleteJDBCDriver_proc.tcl (annotations | original source)

####################################################################
# delete JDBCDriver.
####################################################################
proc deleteJDBCDriver { dbDriverName } {

    global AdminConfig

    putsLog "proc - [info level 0 ]"

    # ensure the driver exists then delete the driver.	

    if { [ catch { $AdminConfig getid /JDBCProvider:$dbDriverName/ } r ] == 0 } {
		
	   putsLog "dbDriverId is $r"

	   set dbDriverId $r
	   
	   if { [ catch { $AdminConfig remove $dbDriverId } r ] == 0 } {
		   
		   putsLog "db2 driver $dbDriverName removed sucessfully"
		   
	   } else {
		   
		   putsLog "ERROR: filed to delete db2 driver $dbDriverName"
		   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.