SET QUOTED_IDENTIFIER ON
 SET ANSI_NULLS ON
 GO 
 create procedure sys.sp_dbcmptlevel -- 1997/04/15 
 @dbname sysname = NULL,  -- database name to change 
 @new_cmptlevel tinyint = NULL OUTPUT -- the new compatibility level to change to 
 as
 set nocount on
  
 declare @exec_stmt nvarchar(max) 
 declare @returncode int
 declare @comptlevel float(8) 
 declare @dbid int  -- dbid of the database 
 declare @dbsid varbinary(85) -- id of the owner of the database 
 declare @orig_cmptlevel tinyint -- original compatibility level 
 declare @input_cmptlevel tinyint -- compatibility level passed in by user 
 ,@cmptlvl80 tinyint -- compatibility to SQL Server Version 8.0 
 ,@cmptlvl90 tinyint -- compatibility to SQL Server Version 9.0 
 ,@cmptlvl100 tinyint -- compatibility to SQL Server Version 10.0 
 select @cmptlvl80 = 80, 
 @cmptlvl90 = 90, 
 @cmptlvl100 = 100 
  
 -- SP MUST BE CALLED AT ADHOC LEVEL -- 
 if (@@nestlevel > 1) 
 begin
 raiserror(15432,-1,-1,'sys.sp_dbcmptlevel') 
 return (1) 
 end
  
 -- If no @dbname given, just list the valid compatibility level values. 
 if @dbname is null
 begin
 raiserror (15048, -1, -1, @cmptlvl80, @cmptlvl90, @cmptlvl100) 
 return (0) 
 end
  
 -- Verify the database name and get info 
 select @dbid = dbid, @dbsid = sid ,@orig_cmptlevel = cmptlevel 
 from master.dbo.sysdatabases 
 where name = @dbname 
  
 -- If @dbname not found, say so and list the databases. 
 if @dbid is null
 begin
 raiserror(15010,-1,-1,@dbname) 
 print ' '
 select name as 'Available databases:'
 from master.dbo.sysdatabases 
 return (1) 
 end
  
 -- Now save the input compatibility level and initialize the return clevel 
 -- to be the current clevel 
 select @input_cmptlevel = @new_cmptlevel 
 select @new_cmptlevel = @orig_cmptlevel 
  
 -- If no clevel was supplied, display and output current level. 
 if @input_cmptlevel is null
 begin
 raiserror(15054, -1, -1, @orig_cmptlevel) 
 return(0) 
 end
  
 -- If invalid clevel given, print usage and return error code 
 -- 'usage: sp_dbcmptlevel [dbname [, compatibilitylevel]]' 
 if @input_cmptlevel not in (@cmptlvl80, @cmptlvl90, @cmptlvl100) 
 begin
 raiserror(15416, -1, -1) 
 print ' '
 raiserror (15048, -1, -1, @cmptlvl80, @cmptlvl90, @cmptlvl100) 
 return (1) 
 end
  
 -- Only the SA or the dbo of @dbname can execute the update part 
 -- of this procedure sys.so check. 
 if (not (is_srvrolemember('sysadmin') = 1)) and suser_sid() <> @dbsid 
 -- ALSO ALLOW db_owner ONLY IF DB REQUESTED IS CURRENT DB 
 and (@dbid <> db_id() or is_member('db_owner') <> 1) 
 begin
 raiserror(15418,-1,-1) 
 return (1) 
 end
  
 -- If we're in a transaction, disallow this since it might make recovery impossible. 
 set implicit_transactions off
 if @@trancount > 0 
 begin
 raiserror(15002,-1,-1,'sys.sp_dbcmptlevel') 
 return (1) 
 end 
  
 set @exec_stmt = 'ALTER DATABASE ' + quotename(@dbname, '[') + ' SET COMPATIBILITY_LEVEL = ' + cast(@input_cmptlevel as nvarchar(128)) 
  
 -- Note: database @dbname may not exist anymore 
 exec(@exec_stmt) 
  
 select @new_cmptlevel = @input_cmptlevel 
  
 return (0) -- sp_dbcmptlevel 
 GO 

sp_dbcmptlevel [ [ @dbname = ] name ] 
 [ , [ @new_cmptlevel = ] version ]