USE [DD_SYS]
GO

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

-- [PRDD_MAINTAIN_DATABASES]
-- =================================================================
-- Checks database health, shrinks all database and log files 
-- and recreates indizes in a maintanance run.
-- Minimum requirement: MS SQL Server 2016
-- 
-- Returns: INT Value - 0 = Everything worked well
-- =================================================================
-- Copyright (c) 2025 by Digital Data GmbH
--
-- Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
-- Tel.: 0641/202360 • E-Mail: info-flow@digitaldata.works
-- =================================================================
-- Creation Date / Author:    29.11.2024 / MK
-- Version Date / Editor:     20.03.2025 / MK
-- Version Number:            1.2.0.0
-- =================================================================
-- History:
-- 29.11.2024 / MK - First Version
-- 06.12.2024 / MK - Added "SET ONLINE" after forced SINGLE_USER Mode, Added repair parameter for DBCHECK, added @pRECOMPILEPROCEDURES, some minor error fixes
-- 13.12.2024 / MK - New way the get the procedure name, failsafe for parameters implemented
-- 20.03.2025 / MK - Improved safty checks

CREATE OR ALTER PROCEDURE [dbo].[PRDD_MAINTAIN_DATABASES] (
    @pCHECKDB				BIT				= 1,							-- Set to 1 to make a check of the database before shrinking incl. soft repair function. Otherwise set to 0.
    @pSHRINKLOG				BIT				= 1,							-- Set to 1 to shrink the log file. Otherwise set to 0.
	@pSHRINKDB				BIT				= 0,							-- Set to 1 to shrink the database file as well. Otherwise set to 0. (Dont use on FILESTREAM databases!)
	@pREBUILDINDEX			BIT				= 0,							-- Set to 1 to recreate all database indexes. Otherwise set to 0. 
	@pRECOMPILEPROCEDURES	BIT				= 0,							-- Set to 1 to recompile all database procedures. Otherwise set to 0. 
	@pCLEARQUERYCACHE		BIT				= 0,							-- Set to 1 to clear the QL query cache via DROPCLEANBUFFERS. Otherwise set to 0.
    @pFORCE					BIT				= 0,							-- Set to 1 to force the shrinking, it will cut all current sessens. In combination with @pCHECKDB it trys the soft reapair dbs. Otherwise set to 0.
	@pINCLUDEDB				NVARCHAR(1000)	= 'DD_ECM',						-- Set a list of included databases. IF <> NULL, it will override the @pEXCLUDEDB Parameter
	@pEXCLUDEDB				NVARCHAR(1000)	= 'master,model,msdb,tempdb',	-- Set a list of exluded databases. Default exclusen are the system databases. 
	@pLOGLEVEL				NVARCHAR(25)	= 'ERROR'						-- Set to 'INFO','WARN' OR 'ERROR' (or NULL to disable), logging to table: [TBDD_MAINTAIN_DATABASES_LOG]
																			-- 'INFO' includes Infos, Warnings and Errors, 'WARN' only warnings and Errors and 'ERROR' only Errors
)
AS
BEGIN

	SET NOCOUNT ON;

	-- declare new vars because of parameter sniffing
    DECLARE @CHECKDB 					BIT 			= ISNULL(@pCHECKDB,1),
			@SHRINKLOG					BIT				= ISNULL(@pSHRINKLOG,1),
			@SHRINKDB					BIT 			= ISNULL(@pSHRINKDB,0),
			@REBUILDINDEX				BIT				= ISNULL(@pREBUILDINDEX,0),
			@RECOMPILEPROCEDURES		BIT				= ISNULL(@pRECOMPILEPROCEDURES,0),
			@CLEARQUERYCACHE			BIT				= ISNULL(@pCLEARQUERYCACHE,0),
			@FORCE						BIT 			= ISNULL(@pFORCE,0),
			@INCLUDEDB					NVARCHAR(1000)	= LTRIM(RTRIM(ISNULL(@pINCLUDEDB,DB_NAME()))),
			@EXCLUDEDB					NVARCHAR(1000)	= LTRIM(RTRIM(ISNULL(@pEXCLUDEDB,'master,model,msdb,tempdb'))),
			@LOGLEVEL					NVARCHAR(25)	= LTRIM(RTRIM(ISNULL(@pLOGLEVEL,'ERROR')));

	-- declare runtime vars
    DECLARE @MyProcedureName			NVARCHAR(128) = OBJECT_NAME(@@PROCID);
	DECLARE	@ProcedureName				NVARCHAR(50),
			@DBName						NVARCHAR(100),
			@DBNameCount				INT,
            @LogFileName				NVARCHAR(100), 
            @CurrentLogFileSizeInMB		INT, 
            @MinimumLogFileSizeInMB		INT, 
			@MaximumLogFileSizeInMB		INT,
            @TargetLogFileSizeInMB		INT,
			@ProductVersion				sql_variant,
			@ProductMainVersion			INT,
			@ProductLevel				sql_variant,
			@ProductEdition				sql_variant,
			@SchemaName					NVARCHAR(50),
			@TableName					NVARCHAR(256),
			@LoginName					NVARCHAR(50),
			@HostName					NVARCHAR(50),
			@SessionID					NVARCHAR(50)	= NULL,
			@MySessionID				NVARCHAR(50)	= @@SPID,
			@SQLCommand					NVARCHAR(MAX)	= NULL,
			@TableListCount				INT				= 0,
			@ProcedureListCount			INT				= 0,
			@return_status				NVARCHAR(50)	= 0,
			@return_status_text			NVARCHAR(MAX)	= 'START ' + @MyProcedureName + ' @ ' + CONVERT(varchar(50),GETDATE(),120);

	PRINT '==============================='
	PRINT 'PROCEDURE  - ' + @return_status_text;
	PRINT 'PARAMETER01 - @CHECKDB:             ' + CONVERT(VARCHAR(1),@CHECKDB);
	PRINT 'PARAMETER02 - @SHRINKLOG:           ' + CONVERT(VARCHAR(1),@SHRINKLOG);
	PRINT 'PARAMETER03 - @SHRINKDB:            ' + CONVERT(VARCHAR(1),@SHRINKDB);
	PRINT 'PARAMETER04 - @REBUILDINDEX:        ' + CONVERT(VARCHAR(1),@REBUILDINDEX);
	PRINT 'PARAMETER05 - @RECOMPILEPROCEDURES: ' + CONVERT(VARCHAR(1),@RECOMPILEPROCEDURES); 
	PRINT 'PARAMETER06 - @CLEARQUERYCACHE:     ' + CONVERT(VARCHAR(1),@CLEARQUERYCACHE);
	PRINT 'PARAMETER07 - @FORCE:               ' + CONVERT(VARCHAR(1),@FORCE);
	PRINT 'PARAMETER08 - @INCLUDEDB:           ' + CONVERT(VARCHAR(1000),@INCLUDEDB);
	PRINT 'PARAMETER09 - @EXCLUDEDB:           ' + CONVERT(VARCHAR(1000),@EXCLUDEDB);
	PRINT 'PARAMETER10 - @LOGLEVEL:            ' + CONVERT(VARCHAR(25),@LOGLEVEL);

	--=================================================-- Get server infos --==================================================--
	SELECT @ProductVersion = SERVERPROPERTY('productversion'), @ProductLevel = SERVERPROPERTY ('productlevel'), @ProductEdition = SERVERPROPERTY ('edition');
	SET @ProductMainVersion = ISNULL(LEFT(convert(VARCHAR(100),@ProductVersion), CHARINDEX('.', convert(VARCHAR(100),@ProductVersion)) - 1),0);

	PRINT '';
	PRINT 'Informations about this Server:';
	PRINT '@MySessionID:        ' + CONVERT(VARCHAR(100),@MySessionID);
	PRINT '@ProductVersion:     ' + CONVERT(VARCHAR(100),@ProductVersion);
	PRINT '@ProductMainVersion: ' + CONVERT(VARCHAR(100),@ProductMainVersion);
	PRINT '@ProductLevel:       ' + CONVERT(VARCHAR(100),@ProductLevel);
	PRINT '@ProductEdition:     ' + CONVERT(VARCHAR(100),@ProductEdition);
	-----------------------------------------------------------------------------------------------------------------------------

	--==============================================-- Prepare the log table --================================================--
	IF (@LOGLEVEL is not NULL) BEGIN
		PRINT '';
		IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
			PRINT 'Log table already exists';
		END; ELSE BEGIN
			PRINT 'Log table does not exists, trying to create...';

			CREATE TABLE [dbo].[TBDD_MAINTAIN_DATABASES_LOG](
				[GUID] [bigint] IDENTITY(1,1) NOT NULL,
				[LOG_LEVEL] [varchar](25) NOT NULL,
				[MESSAGE1] [varchar](max) NOT NULL,
				[MESSAGE2] [varchar](max) NULL,
				[MESSAGE3] [varchar](max) NULL,
				[MESSAGE4] [varchar](max) NULL,
				[MESSAGE5] [varchar](max) NULL,
				[COMMENT] [varchar](max) NULL,
				[ADDED_WHO] [varchar](50) NOT NULL,
				[ADDED_WHEN] [datetime] NOT NULL,
				CONSTRAINT [PK_TBDD_MAINTAIN_DATABASES_LOG] PRIMARY KEY CLUSTERED 
			(
				[GUID] ASC
			)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
			) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY];

			ALTER TABLE [dbo].[TBDD_MAINTAIN_DATABASES_LOG] ADD  CONSTRAINT [DF_TBDD_MAINTAIN_DATABASES_LOG_ADDED_WHO]  DEFAULT ('DEFAULT') FOR [ADDED_WHO];

			ALTER TABLE [dbo].[TBDD_MAINTAIN_DATABASES_LOG] ADD  CONSTRAINT [DF_TBDD_MAINTAIN_DATABASES_LOG_ADDED_WHEN]  DEFAULT (getdate()) FOR [ADDED_WHEN];

		END;
	END; ELSE BEGIN
		PRINT '';
		PRINT 'Skipping Logging to log table!';
	END;
	-----------------------------------------------------------------------------------------------------------------------------

	--===============================================-- Log start to table --=================================================--
	IF ((@LOGLEVEL in ('INFO')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
		IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
			INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],    [MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
												VALUES (@LOGLEVEL,'preparing',   'procedure',	@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
		END;
	END;
	-----------------------------------------------------------------------------------------------------------------------------

	--=============================================-- Get the dbs for the loop --==============================================--
	-- Create a temporary table to hold the table names 
	CREATE TABLE #DBList (DBName NVARCHAR(256)); 

	IF (@ProductMainVersion >= 13) BEGIN

		IF (@INCLUDEDB is not NULL) BEGIN
			INSERT INTO #DBList(DBName)
			SELECT [name] as 'DBName'
			FROM [master].[sys].[databases] (NOLOCK)
			WHERE [name] IN (SELECT [value] FROM STRING_SPLIT(@INCLUDEDB, ','))		-- include these databases
			AND [state] = 0															-- database is online
			AND [is_in_standby] = 0;												-- database is not read only for log shipping
		END; ELSE BEGIN
			INSERT INTO #DBList(DBName)
			SELECT [name] as 'DBName'
			FROM [master].[sys].[databases] (NOLOCK)
			WHERE [name] NOT IN (SELECT [value] FROM STRING_SPLIT(@EXCLUDEDB, ','))	-- exclude these databases
			AND [state] = 0															-- database is online
			AND [is_in_standby] = 0;												-- database is not read only for log shipping
		END;

	END; ELSE BEGIN
		
		PRINT 'Because of the SQL Version only one DB can be processed!'
		INSERT INTO #DBList(DBName)
		SELECT [name] as 'DBName'
		FROM [master].[sys].[databases] (NOLOCK)
		WHERE [name] = @INCLUDEDB												-- use only this database
		AND [state] = 0															-- database is online
		AND [is_in_standby] = 0;												-- database is not read only for log shipping

	END;

	SELECT @DBNameCount = COUNT(*) FROM #DBList;
	-----------------------------------------------------------------------------------------------------------------------------

	SET   @return_status_text = 'Found ' + convert(VARCHAR,@DBNameCount) + ' database(s) to process!';
	PRINT @return_status_text;

	--===============================================-- Log result to table --=================================================--
	IF (@LOGLEVEL in ('INFO','WARN')) BEGIN
		IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
			INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],   [MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
											  VALUES (@LOGLEVEL,  'db_list',    'count',	@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
		END;
	END;
	-----------------------------------------------------------------------------------------------------------------------------

	--==========================================-- Create the main loop (cursor) --============================================--
	IF (@DBNameCount > 0) BEGIN

		DECLARE db_cursor CURSOR STATIC LOCAL FOR  
			SELECT [DBName]	as 'DBName' FROM #DBList;
 
		OPEN db_cursor   
		FETCH NEXT FROM db_cursor INTO @DBName   
		WHILE @@FETCH_STATUS = 0  BEGIN   
			BEGIN TRY

				PRINT ' ';
				PRINT '-------------------------------';
				PRINT 'Now processing: ' + CONVERT(varchar(100),@DBName);

				--==============================================-- Change db working mode --===============================================--
				IF (@FORCE = 1) and (@return_status = 0) BEGIN

					PRINT 'Closing active database connections... first time';
					DECLARE kill_cursor CURSOR STATIC LOCAL FOR
						SELECT	CONVERT(NVARCHAR(5),  [session_id]) as 'SessionID', 
								CONVERT(NVARCHAR(50), [login_name]) as 'LoginName', 
								CONVERT(NVARCHAR(50), [host_name])  as 'HostName'
						FROM [master].[sys].[dm_exec_sessions] (NOLOCK)
						WHERE [is_user_process] = 1 
						  AND [database_id] = db_id(@DBName)
						  AND [session_id] <> @MySessionID;

					OPEN kill_cursor;
					FETCH NEXT FROM kill_cursor INTO @SessionID, @LoginName, @HostName;
					WHILE @@FETCH_STATUS = 0 BEGIN

						BEGIN TRY
							SET @SQLCommand = 'KILL ' + @SessionID + ';';
							PRINT 'Killing @SessionID: ' + @SessionID + ', @LoginName: ' + @LoginName + ', @HostName: ' + @HostName;
							EXEC sp_executesql @SQLCommand;
							SET @SQLCommand = NULL;

							IF ((@LOGLEVEL in ('INFO')) and (@return_status = 0)) BEGIN
								SET @return_status_text = 'Closing connections to database was successfully completed!';
								PRINT @return_status_text;
							END; ELSE IF ((@LOGLEVEL in ('WARN')) and (@return_status <> 0)) BEGIN
								SET @return_status_text = 'Closing connections to database returns warnings or has failed, check the ID!';
								PRINT @return_status_text;
							END;

							--===============================================-- Log result to table --=================================================--
							IF ((@LOGLEVEL in ('INFO','WARN')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
								IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
									INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],     [MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
																	  VALUES (@LOGLEVEL,  'kill_cursor',   @DBName,		@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
								END;
							END;
							-----------------------------------------------------------------------------------------------------------------------------

						END TRY
						BEGIN CATCH

							-- Handle any errors that occur during the process.
							SELECT ERROR_MESSAGE() AS ErrorMessage;

							SET @SQLCommand = NULL;

							--===============================================-- Log result to table --=================================================--
							IF ((@LOGLEVEL is not null) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
								IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
									INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],     [MESSAGE2],	[MESSAGE3],		[ADDED_WHO],        [ADDED_WHEN])
																	  VALUES ('ERROR',   'kill_cursor',   @DBName,		ERROR_MESSAGE(),@MyProcedureName,	GetDate());
								END;
							END;
							-----------------------------------------------------------------------------------------------------------------------------

						END CATCH;

						FETCH NEXT FROM kill_cursor INTO @SessionID, @LoginName, @HostName;

					END;

					CLOSE kill_cursor;
					DEALLOCATE kill_cursor;
					-----------------------------------------------------------------------------------------------------------------------------

					PRINT 'Set the database to SINGLE_USER mode to avoid multiple active sessions.';
					SET @SQLCommand = N'ALTER DATABASE [' + @DBName + '] SET SINGLE_USER WITH ROLLBACK IMMEDIATE;';
					EXEC @return_status = sp_executesql @SQLCommand;

					IF ((@LOGLEVEL in ('INFO')) and (@return_status = 0)) BEGIN
						SET @return_status_text = 'Setting the database to SINGLE_USER mode was successfully completed!';
						PRINT @return_status_text;
					END; ELSE IF ((@LOGLEVEL in ('WARN')) and (@return_status <> 0)) BEGIN
						SET @return_status_text = 'Setting the database to SINGLE_USER mode returns warnings or has failed, check the ID!';
						PRINT @return_status_text;
					END;

					--===============================================-- Log result to table --=================================================--
					IF ((@LOGLEVEL in ('INFO','WARN')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
						IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
							INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],    [MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
															  VALUES (@LOGLEVEL,  'db_cursor',   @DBName,		@return_status,	@return_status_text,	@MyProcedureName,		GetDate());
						END;
					END;
					-----------------------------------------------------------------------------------------------------------------------------

				END; ELSE BEGIN

					IF (@LOGLEVEL in ('INFO')) BEGIN
						SET @return_status_text = 'Skipping to change the database mode (FORCE = OFF)!';
						PRINT @return_status_text;
					END;

					--===============================================-- Log result to table --=================================================--
					IF ((@LOGLEVEL in ('INFO','WARN')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
						IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
							INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],    [MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
															  VALUES (@LOGLEVEL,  'db_cursor',   @DBName,		@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
						END;
					END;
					-----------------------------------------------------------------------------------------------------------------------------

				END;
				-----------------------------------------------------------------------------------------------------------------------------

				--===============================================-- Check db consistency --================================================--
				IF (@CHECKDB = 1) and (@return_status = 0) BEGIN

					IF (@FORCE = 1) BEGIN
						PRINT 'Check the database for consistency and health and try soft repair.';
						SET @SQLCommand = N'USE [' + @DBName + ']; 
											ALTER DATABASE [' + @DBName + '] SET RECOVERY SIMPLE;
											 DBCC CHECKDB ([' + @DBName + '],REPAIR_REBUILD) WITH NO_INFOMSGS, ALL_ERRORMSGS;
											ALTER DATABASE [' + @DBName + '] SET RECOVERY FULL;';
					END; ELSE BEGIN
						PRINT 'Check the database for consistency and health.';
						SET @SQLCommand = N'USE [' + @DBName + ']; 
											ALTER DATABASE [' + @DBName + '] SET RECOVERY SIMPLE;
											 DBCC CHECKDB ([' + @DBName + ']) WITH NO_INFOMSGS, ALL_ERRORMSGS;
											ALTER DATABASE [' + @DBName + '] SET RECOVERY FULL;';
					END;

					EXEC @return_status = sp_executesql @SQLCommand;

					IF ((@LOGLEVEL in ('INFO')) and (@return_status = 0)) BEGIN
						SET @return_status_text = 'Check the database for consistency and health was successfully completed!';
						PRINT @return_status_text;
					END; ELSE IF ((@LOGLEVEL in ('WARN')) and (@return_status <> 0)) BEGIN
						SET @return_status_text = 'Check the database for consistency and health returns warnings or has failed, check the ID!';
						PRINT @return_status_text;
					END;

				END; ELSE BEGIN
					IF (@LOGLEVEL in ('INFO')) BEGIN
						SET @return_status_text = 'Skipping the database check for consistency and health!';
						PRINT @return_status_text;
					END;
				END;
				-----------------------------------------------------------------------------------------------------------------------------

				--===============================================-- Log result to table --=================================================--
				IF ((@LOGLEVEL in ('INFO','WARN')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
					IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
						INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],    [MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
															VALUES (@LOGLEVEL,  'db_cursor',   @DBName,		@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
					END;
				END;
				-----------------------------------------------------------------------------------------------------------------------------

				--============================================-- Prepare shrinking the log--===============================================--
				IF (@SHRINKLOG = 1) BEGIN

					--===========================================-- Get infos about the log file --============================================--
					PRINT 'Get the current and minimum size of the log file in MB.';
					SET @SQLCommand = N'SELECT TOP 1 @LogFileName = [name], @CurrentLogFileSizeInMB = ([size] / 128), @MinimumLogFileSizeInMB = ([growth] / 128), @MaximumLogFileSizeInMB = ([max_size] / 128) 
										FROM  [master].[sys].[master_files] (NOLOCK)
										WHERE [database_id] = DB_ID(''' + @DBName + ''') AND [STATE_DESC] = ''ONLINE'' AND [type_desc] = ''LOG''';
					EXEC @return_status = sp_executesql @SQLCommand, N'@LogFileName VARCHAR(100) OUTPUT, @CurrentLogFileSizeInMB INT OUTPUT, @MinimumLogFileSizeInMB INT OUTPUT, @MaximumLogFileSizeInMB INT OUTPUT',
														               @LogFileName OUTPUT,              @CurrentLogFileSizeInMB OUTPUT,     @MinimumLogFileSizeInMB OUTPUT,	 @MaximumLogFileSizeInMB OUTPUT;

					IF ((@LOGLEVEL in ('INFO')) and (@return_status = 0)) BEGIN
						SET @return_status_text = 'Getting log file settings was successfully completed!';
						PRINT @return_status_text;
					END; ELSE IF ((@LOGLEVEL in ('WARN')) and (@return_status <> 0)) BEGIN
						SET @return_status_text = 'Getting log file settings returns warnings or has failed, check the ID!';
						PRINT @return_status_text;
					END;
					-----------------------------------------------------------------------------------------------------------------------------

					--===============================================-- Log result to table --=================================================--
					IF ((@LOGLEVEL in ('INFO','WARN')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
						IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
							INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],    [MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
															  VALUES (@LOGLEVEL,  'db_cursor',   @DBName,		@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
						END;
					END;
					-----------------------------------------------------------------------------------------------------------------------------

					--===========================================-- Calculate target file size --==============================================--
					PRINT 'The @CurrentLogFileSizeInMB is: ' + CONVERT(VARCHAR(1000),@CurrentLogFileSizeInMB);
					PRINT 'The @MinimumLogFileSizeInMB is: ' + CONVERT(VARCHAR(1000),@MinimumLogFileSizeInMB);
					PRINT 'The @MaximumLogFileSizeInMB is: ' + CONVERT(VARCHAR(1000),@MaximumLogFileSizeInMB);

					SET @TargetLogFileSizeInMB = CASE WHEN (@MinimumLogFileSizeInMB < @CurrentLogFileSizeInMB) AND (@MinimumLogFileSizeInMB < @MaximumLogFileSizeInMB)
													  THEN  @MinimumLogFileSizeInMB 
													  ELSE  @CurrentLogFileSizeInMB  
												END;

					PRINT 'The @TargetLogFileSizeInMB is: ' + CONVERT(VARCHAR(1000),@TargetLogFileSizeInMB);
					-----------------------------------------------------------------------------------------------------------------------------

					--=================================================-- Schrink db logs --===================================================--
					IF (@CurrentLogFileSizeInMB > @TargetLogFileSizeInMB) BEGIN

						--=============================================-- Change db recovery mode --===============================================--
						PRINT 'Truncating the log needs to change the database recovery model to SIMPLE.';
						SET @SQLCommand = N'ALTER DATABASE [' + @DBName + '] SET RECOVERY SIMPLE';
						EXEC @return_status = sp_executesql @SQLCommand;

						IF ((@LOGLEVEL in ('INFO')) and (@return_status = 0)) BEGIN
							SET @return_status_text = 'Setting database to the simple recovery model was successfully completed!';
							PRINT @return_status_text;
						END; ELSE IF ((@LOGLEVEL in ('WARN')) and (@return_status <> 0)) BEGIN
							SET @return_status_text = 'Setting database to the simple recovery model returns warnings or has failed, check the ID!';
							PRINT @return_status_text;
						END;
						-----------------------------------------------------------------------------------------------------------------------------

						--===============================================-- Log result to table --=================================================--
						IF ((@LOGLEVEL in ('INFO','WARN')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
							IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
								INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],    [MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
																  VALUES (@LOGLEVEL,  'db_cursor',   @DBName,		@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
							END;
						END;
						-----------------------------------------------------------------------------------------------------------------------------

						--===================================================-- Now, do it! --=====================================================--
						IF (@return_status = 0) BEGIN
							PRINT 'Shrink the truncated log file to 10% of its current size or the minimum size, whichever is larger.';
							IF (@ProductMainVersion >= 16) BEGIN
								IF (@FORCE = 1) BEGIN
									SET @SQLCommand = N'USE [' + @DBName + ']; DBCC SHRINKFILE (''' + @LogFileName + ''', ' + CAST(@TargetLogFileSizeInMB AS VARCHAR) + ') WITH WAIT_AT_LOW_PRIORITY (ABORT_AFTER_WAIT = BLOCKERS), NO_INFOMSGS;';
								END; ELSE BEGIN
									SET @SQLCommand = N'USE [' + @DBName + ']; DBCC SHRINKFILE (''' + @LogFileName + ''', ' + CAST(@TargetLogFileSizeInMB AS VARCHAR) + ') WITH WAIT_AT_LOW_PRIORITY (ABORT_AFTER_WAIT = SELF), NO_INFOMSGS;';
								END;
							END; ELSE BEGIN
								PRINT 'Because of the sql server version, DBCC SHRINKFILE is not applicable with the FORCE parameter!';
								SET @SQLCommand = N'USE [' + @DBName + ']; DBCC SHRINKFILE (''' + @LogFileName + ''', ' + CAST(@TargetLogFileSizeInMB AS VARCHAR) + ') WITH NO_INFOMSGS;';				
							END;

							EXEC @return_status = sp_executesql @SQLCommand;

							IF ((@LOGLEVEL in ('INFO')) and (@return_status = 0)) BEGIN
								SET @return_status_text = 'Shrinking the database log file was successfully completed!';
								PRINT @return_status_text;
							END; ELSE IF ((@LOGLEVEL in ('WARN')) and (@return_status <> 0)) BEGIN
								SET @return_status_text = 'Shrinking the database log file returns warnings or has failed, check the ID!';
								PRINT @return_status_text;
							END;

						END; ELSE BEGIN
							SET @return_status_text = 'Shrinking the database log was skipped because of previouse error(s)!';
						END;
						-----------------------------------------------------------------------------------------------------------------------------

						--===============================================-- Log result to table --=================================================--
						IF ((@LOGLEVEL in ('INFO','WARN')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
							IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
								INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],    [MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
																  VALUES (@LOGLEVEL,  'db_cursor',   @DBName,		@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
							END;
						END;
						-----------------------------------------------------------------------------------------------------------------------------

						--=============================================-- Change db recovery mode --===============================================--
						PRINT 'Reset the database recovery model.'
						SET @SQLCommand = N'ALTER DATABASE [' + @DBName + '] SET RECOVERY FULL';
						EXEC @return_status = sp_executesql @SQLCommand;

						IF ((@LOGLEVEL in ('INFO')) and (@return_status = 0)) BEGIN
							SET @return_status_text = 'Setting database back to the full recovery model was successfully completed!';
							PRINT @return_status_text;
						END; ELSE IF ((@LOGLEVEL in ('WARN')) and (@return_status <> 0)) BEGIN
							SET @return_status_text = 'Setting database back to the full recovery model returns warnings or has failed, check the ID!';
							PRINT @return_status_text;
						END;
						-----------------------------------------------------------------------------------------------------------------------------

						--===============================================-- Log result to table --=================================================--
						IF ((@LOGLEVEL in ('INFO','WARN')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
							IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
								INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],    [MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
																	VALUES (@LOGLEVEL,  'db_cursor',   @DBName,		@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
							END;
						END;
						-----------------------------------------------------------------------------------------------------------------------------

					END; ELSE BEGIN
						PRINT 'No shrink action neccessary!';
					END;
					-----------------------------------------------------------------------------------------------------------------------------

				END; ELSE BEGIN
					PRINT 'Skipping to shrink the log file!';
				END;
				-----------------------------------------------------------------------------------------------------------------------------

				--================================================-- Shrink db as well --==================================================--
				IF ((@SHRINKDB = 1) and (@return_status = 0)) BEGIN
					PRINT 'Shrink the database to reclaim unused space.';
					IF (@ProductMainVersion >= 16) BEGIN
						IF (@FORCE = 1) BEGIN
							SET @SQLCommand = N'USE [' + @DBName + ']; DBCC SHRINKDATABASE ([' + @DBName + ']) WITH WAIT_AT_LOW_PRIORITY (ABORT_AFTER_WAIT = BLOCKERS), NO_INFOMSGS;';
						END; ELSE BEGIN
							SET @SQLCommand = N'USE [' + @DBName + ']; DBCC SHRINKDATABASE ([' + @DBName + ']) WITH WAIT_AT_LOW_PRIORITY (ABORT_AFTER_WAIT = SELF), NO_INFOMSGS;';
						END;
					END; ELSE BEGIN
						PRINT 'Because of the sql server version, DBCC SHRINKDATABASE is not applicable with the FORCE parameter!';
						SET @SQLCommand = N'USE [' + @DBName + ']; DBCC SHRINKDATABASE ([' + @DBName + ']) WITH NO_INFOMSGS;';
					END;
				
					EXEC @return_status = sp_executesql @SQLCommand;

					IF ((@LOGLEVEL in ('INFO')) and (@return_status = 0)) BEGIN
						SET @return_status_text = 'Shrinking the database was successfully completed!';
						PRINT @return_status_text;
					END; ELSE IF ((@LOGLEVEL in ('WARN')) and (@return_status <> 0)) BEGIN
						SET @return_status_text = 'Shrinking the database returns warnings or has failed, check the ID!';
						PRINT @return_status_text;
					END;

				END; ELSE BEGIN
					IF (@LOGLEVEL in ('INFO')) BEGIN
						SET @return_status_text = 'Skipping shrinking the database!';
						PRINT @return_status_text;
					END;
				END;
				-----------------------------------------------------------------------------------------------------------------------------

				--===============================================-- Log result to table --=================================================--
				IF ((@LOGLEVEL in ('INFO','WARN')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
					IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
						INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],    [MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
														  VALUES (@LOGLEVEL,  'db_cursor',   @DBName,		@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
					END;
				END;
				-----------------------------------------------------------------------------------------------------------------------------

				--=============================================-- Rebuild database indexes --==============================================--
				IF ((@REBUILDINDEX = 1) and (@return_status = 0)) BEGIN
					PRINT 'Prepare to rebuild database indexes.';

					BEGIN TRY
						DROP TABLE #TableList;
					END TRY
					BEGIN CATCH
						PRINT '#TableList Temp table is already gone... (1)';
					END CATCH;

					-- Create a temporary table to hold the table names 
					CREATE TABLE #TableList (SchemaName NVARCHAR(50), TableName NVARCHAR(256)); 
					
					-- Set the context to the specified database and fill the temporary table 
					SET @SQLCommand = '	INSERT INTO #TableList (SchemaName, TableName) 
										SELECT DISTINCT (SCHEMA_NAME([schema_id])), t.[name]
										FROM [' + @DBName + '].[sys].[tables] t
										INNER JOIN [' + @DBName + '].[sys].[indexes] i ON t.[object_id] = i.[object_id] 
										WHERE i.[type] IN (1, 2) -- Clustered and Non-Clustered indexes;'; 
					EXEC @return_status = sp_executesql @SQLCommand;

					IF ((@LOGLEVEL in ('INFO')) and (@return_status = 0)) BEGIN
						SET @return_status_text = 'Getting the tables was successfully done!';
						PRINT @return_status_text;
					END; ELSE IF ((@LOGLEVEL in ('WARN')) and (@return_status <> 0)) BEGIN
						SET @return_status_text = 'Getting the tables returns warnings or has failed, check the ID!';
						PRINT @return_status_text;
					END;

					IF (@return_status = 0) BEGIN
						SELECT @TableListCount = COUNT(*) FROM #TableList;
						PRINT 'Found: ' + convert(VARCHAR,@TableListCount) + ' tables to reindex';
					END; ELSE BEGIN
						SET @TableListCount = 0;
						PRINT 'Found: no tables to reindex';
					END;

				END; ELSE BEGIN
					IF (@LOGLEVEL in ('INFO')) BEGIN
						SET @return_status_text = 'Skipping rebuilding database indexes!';
						PRINT @return_status_text;
					END;
				END;

				--===============================================-- Log result to table --=================================================--
				IF ((@LOGLEVEL in ('INFO','WARN')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
					IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
						INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],    [MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
															VALUES (@LOGLEVEL,  'db_cursor',   @DBName,		@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
					END;
				END;
				-----------------------------------------------------------------------------------------------------------------------------

				IF ((@REBUILDINDEX = 1) and (@return_status = 0) and (@TableListCount > 0)) BEGIN

					DECLARE table_cursor CURSOR STATIC LOCAL FOR
						SELECT SchemaName, TableName FROM #TableList;

					OPEN table_cursor;
					FETCH NEXT FROM table_cursor INTO @SchemaName, @TableName;
					WHILE @@FETCH_STATUS = 0 BEGIN
						BEGIN TRY

							PRINT 'Rebuild Index for table: ' + CONVERT(VARCHAR(1000),@TableName);
							SET @SQLCommand = 'ALTER INDEX ALL ON [' + @DBName + '].[' + @SchemaName + '].[' + @TableName + '] ' + 
											  'REBUILD WITH (FILLFACTOR = 80, SORT_IN_TEMPDB = ON, STATISTICS_NORECOMPUTE = ON)';
							EXEC @return_status = sp_executesql @SQLCommand;

							IF ((@LOGLEVEL in ('INFO')) and (@return_status = 0)) BEGIN
								SET @return_status_text = 'Recreation the database indexes of Table [' + @TableName + '] successfully completed!';
								PRINT @return_status_text;
							END; ELSE IF ((@LOGLEVEL in ('WARN')) and (@return_status <> 0)) BEGIN
								SET @return_status_text = 'Recreation the database indexes of Table [' + @TableName + '] returns warnings or has failed, check the ID!';
								PRINT @return_status_text;
							END;

							--===============================================-- Log result to table --=================================================--
							IF ((@LOGLEVEL in ('INFO','WARN')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
								IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
									INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],    [MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
																	  VALUES (@LOGLEVEL,  'table_cursor', @DBName,		@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
								END;
							END;
							-----------------------------------------------------------------------------------------------------------------------------

							-- Short break to avoid access violations 
							WAITFOR DELAY '00:00:03';

							-----------------------------------------------------------------------------------------------------------------------------
							PRINT 'Closing active database connections... again';
							DECLARE kill_cursor CURSOR STATIC LOCAL FOR
								SELECT	CONVERT(NVARCHAR(5),  [session_id]) as 'SessionID', 
										CONVERT(NVARCHAR(50), [login_name]) as 'LoginName', 
										CONVERT(NVARCHAR(50), [host_name])  as 'HostName'
								FROM [master].[sys].[dm_exec_sessions] (NOLOCK)
								WHERE [is_user_process] = 1 
								  AND [database_id] = db_id(@DBName)
								  AND [session_id] <> @MySessionID;

							OPEN kill_cursor;
							FETCH NEXT FROM kill_cursor INTO @SessionID, @LoginName, @HostName;
							WHILE @@FETCH_STATUS = 0 BEGIN

								BEGIN TRY

									SET @SQLCommand = 'KILL ' + @SessionID + ';';
									PRINT 'Killing @SessionID: ' + @SessionID + ', @LoginName: ' + @LoginName + ', @HostName: ' + @HostName;
									EXEC sp_executesql @SQLCommand;
									SET @SQLCommand = NULL;

									IF ((@LOGLEVEL in ('INFO')) and (@return_status = 0)) BEGIN
										SET @return_status_text = 'Closing connections to database was successfully completed!';
										PRINT @return_status_text;
									END; ELSE IF ((@LOGLEVEL in ('WARN')) and (@return_status <> 0)) BEGIN
										SET @return_status_text = 'Closing connections to database returns warnings or has failed, check the ID!';
										PRINT @return_status_text;
									END;

									--===============================================-- Log result to table --=================================================--
									IF ((@LOGLEVEL in ('INFO','WARN')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
										IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
											INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],     [MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
																			  VALUES (@LOGLEVEL,  'kill_cursor',   @DBName,		@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
										END;
									END;
									-----------------------------------------------------------------------------------------------------------------------------

								END TRY
								BEGIN CATCH

									-- Handle any errors that occur during the process.
									SELECT ERROR_MESSAGE() AS ErrorMessage;

									SET @SQLCommand = NULL;

									--===============================================-- Log result to table --=================================================--
									IF ((@LOGLEVEL is not null) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
										IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
											INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],     [MESSAGE2],	[MESSAGE3],		[ADDED_WHO],        [ADDED_WHEN])
																			  VALUES ('ERROR',   'kill_cursor',   @DBName,		ERROR_MESSAGE(),@MyProcedureName,	GetDate());
										END;
									END;
									-----------------------------------------------------------------------------------------------------------------------------

								END CATCH;

								FETCH NEXT FROM kill_cursor INTO @SessionID, @LoginName, @HostName;

							END;

							CLOSE kill_cursor;
							DEALLOCATE kill_cursor;
							-----------------------------------------------------------------------------------------------------------------------------

							FETCH NEXT FROM table_cursor INTO @SchemaName, @TableName;

						END TRY
						BEGIN CATCH
								
							-- Handle any errors that occur during the process.
							SELECT ERROR_MESSAGE() AS ErrorMessage;

							--================================================-- Log error to table --=================================================--
							IF (@LOGLEVEL in ('INFO','WARN','ERROR')) BEGIN
								IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
									INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],    [MESSAGE2],	[MESSAGE3],		[ADDED_WHO],        [ADDED_WHEN])
																	  VALUES ('ERROR',   'table_cursor', @DBName,		ERROR_MESSAGE(),@MyProcedureName,	GetDate());
								END;
							END;
							-----------------------------------------------------------------------------------------------------------------------------

							FETCH NEXT FROM table_cursor INTO @SchemaName, @TableName;

						END CATCH;

					END;

					CLOSE table_cursor;
					DEALLOCATE table_cursor;

					-- Drop the temporary table 
					DROP TABLE #TableList;

					SET @return_status_text = 'Recreation of the database indexes successfully completed!';
					PRINT @return_status_text;

				END; ELSE BEGIN
					IF (@LOGLEVEL in ('INFO')) BEGIN
						SET @return_status_text = 'Skipping the recreation of the database indexes!';
						PRINT @return_status_text;
					END;
				END;
				-----------------------------------------------------------------------------------------------------------------------------

				--===============================================-- Log result to table --=================================================--
				IF ((@LOGLEVEL in ('INFO','WARN')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
					IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
						INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],    [MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
											   			  VALUES (@LOGLEVEL,  'db_cursor',   @DBName,		@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
					END;
				END;
				-----------------------------------------------------------------------------------------------------------------------------

				--=========================================-- Prepare to recompile Procedures --===========================================--
				IF ((@RECOMPILEPROCEDURES = 1) and (@return_status = 0)) BEGIN
					PRINT 'Prepare to recompile database procedures.';

					BEGIN TRY
						DROP TABLE #ProcedureList;
					END TRY
					BEGIN CATCH
						PRINT '#ProcedureList Temp table is already gone... (1)';
					END CATCH;

					-- Create a temporary table to hold the procedure names 
					CREATE TABLE #ProcedureList (SchemaName NVARCHAR(50), ProcedureName NVARCHAR(256)); 
					
					-- Set the context to the specified database and fill the temporary table 
					SET @SQLCommand = '	INSERT INTO #ProcedureList (SchemaName, ProcedureName)
										SELECT SPECIFIC_CATALOG, SPECIFIC_NAME
										FROM [' + @DBName + '].INFORMATION_SCHEMA.ROUTINES (NOLOCK)
										WHERE ROUTINE_TYPE = ''PROCEDURE'' 
										  AND SPECIFIC_NAME <> ''' + @MyProcedureName + '''
										ORDER BY SPECIFIC_NAME;'; 
					EXEC @return_status = sp_executesql @SQLCommand;

					IF ((@LOGLEVEL in ('INFO')) and (@return_status = 0)) BEGIN
						SET @return_status_text = 'Getting the procedures was successfully done!';
						PRINT @return_status_text;
					END; ELSE IF ((@LOGLEVEL in ('WARN')) and (@return_status <> 0)) BEGIN
						SET @return_status_text = 'Getting the procedures returns warnings or has failed, check the ID!';
						PRINT @return_status_text;
					END;

					IF (@return_status = 0) BEGIN
						SELECT @ProcedureListCount = COUNT(*) FROM #ProcedureList;
						PRINT 'Found: ' + convert(VARCHAR,@ProcedureListCount) + ' procedures to recompile';
					END; ELSE BEGIN
						SET @ProcedureListCount = 0;
						PRINT 'Found: no procedures to recompile';
					END;

				END; ELSE BEGIN
					IF (@LOGLEVEL in ('INFO')) BEGIN
						SET @return_status_text = 'Skipping recompiling procedures!';
						PRINT @return_status_text;
					END;
				END;
				-----------------------------------------------------------------------------------------------------------------------------

				--===============================================-- Log result to table --=================================================--
				IF ((@LOGLEVEL in ('INFO','WARN')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
					IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
						INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],    [MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
											   				VALUES (@LOGLEVEL,  'db_cursor',   @DBName,		@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
					END;
				END;
				-----------------------------------------------------------------------------------------------------------------------------

				--===============================================-- Recompile Procedures --================================================--
				IF ((@RECOMPILEPROCEDURES = 1) and (@return_status = 0) and (@ProcedureListCount > 0)) BEGIN

					PRINT 'Removing all procedure elements from the query plan cache.';
					SET @SQLCommand = N'USE [' + @DBName + ']; DBCC FREEPROCCACHE;';
					EXEC @return_status = sp_executesql @SQLCommand;

					IF ((@LOGLEVEL in ('INFO')) and (@return_status = 0)) BEGIN
						SET @return_status_text = 'Removing all procedure elements was successfully completed!';
						PRINT @return_status_text;
					END; ELSE IF ((@LOGLEVEL in ('WARN')) and (@return_status <> 0)) BEGIN
						SET @return_status_text = 'Removing all procedure elements returns warnings or has failed, check the ID!';
						PRINT @return_status_text;
					END;

					--===============================================-- Log result to table --=================================================--
					IF ((@LOGLEVEL in ('INFO','WARN')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
						IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
							INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],			[MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
															  VALUES (@LOGLEVEL,  'procedure_cursor',	@DBName,	@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
						END;
					END;
					-----------------------------------------------------------------------------------------------------------------------------

					DECLARE procedure_cursor CURSOR STATIC LOCAL FOR
						SELECT SchemaName, ProcedureName FROM #ProcedureList;

					OPEN procedure_cursor;
					FETCH NEXT FROM procedure_cursor INTO @SchemaName, @ProcedureName;
					WHILE @@FETCH_STATUS = 0 BEGIN
						BEGIN TRY

							PRINT 'Recompile procedure: ' + CONVERT(VARCHAR(1000),@ProcedureName);
							SET @SQLCommand = 'USE [' + @DBName + ']; EXEC sp_recompile ''' + @ProcedureName + '''; ';
							EXEC @return_status = sp_executesql @SQLCommand;

							IF ((@LOGLEVEL in ('INFO')) and (@return_status = 0)) BEGIN
								SET @return_status_text = 'Recompiling the procedure [' + @ProcedureName + '] successfully completed!';
								PRINT @return_status_text;
							END; ELSE IF ((@LOGLEVEL in ('WARN')) and (@return_status <> 0)) BEGIN
								SET @return_status_text = 'Recompiling the procedure [' + @ProcedureName + '] returns warnings or has failed, check the ID!';
								PRINT @return_status_text;
							END;

							--===============================================-- Log result to table --=================================================--
							IF ((@LOGLEVEL in ('INFO','WARN')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
								IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
									INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],			[MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
																	  VALUES (@LOGLEVEL,  'procedure_cursor',	@DBName,	@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
								END;
							END;
							-----------------------------------------------------------------------------------------------------------------------------

							FETCH NEXT FROM procedure_cursor INTO @SchemaName, @ProcedureName;

						END TRY
						BEGIN CATCH
								
							-- Handle any errors that occur during the process.
							SELECT ERROR_MESSAGE() AS ErrorMessage;
								
							--================================================-- Log error to table --=================================================--
							IF (@LOGLEVEL in ('INFO','WARN','ERROR')) BEGIN
								IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
									INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],			[MESSAGE2],		[MESSAGE3],		[ADDED_WHO],        [ADDED_WHEN])
																	  VALUES ('ERROR',   'procedure_cursor',	@DBName,		ERROR_MESSAGE(),@MyProcedureName,	GetDate());
								END;
							END;
							-----------------------------------------------------------------------------------------------------------------------------

							FETCH NEXT FROM procedure_cursor INTO @SchemaName, @ProcedureName;

						END CATCH;

					END;

					CLOSE procedure_cursor;
					DEALLOCATE procedure_cursor;

					-- Drop the temporary table 
					DROP TABLE #ProcedureList;

					SET @return_status_text = 'Recompiling of procedures successfully completed!';
					PRINT @return_status_text;

				END; ELSE BEGIN
					IF (@LOGLEVEL in ('INFO')) BEGIN
						SET @return_status_text = 'Skipping the recompiling of the procedures!';
						PRINT @return_status_text;
					END;
				END;
				-----------------------------------------------------------------------------------------------------------------------------

				--===============================================-- Log result to table --=================================================--
				IF ((@LOGLEVEL in ('INFO','WARN')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
					IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
						INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],			[MESSAGE2],		[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
											   			  VALUES (@LOGLEVEL,  'procedure_cursor',   @DBName,		@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
					END;
				END;
				-----------------------------------------------------------------------------------------------------------------------------

				--================================================-- Clear Query Cache --==================================================--

				IF ((@CLEARQUERYCACHE = 1) and (@return_status = 0)) BEGIN

					PRINT 'Removing the sql query cache.';
					SET @SQLCommand = N'USE [' + @DBName + ']; DBCC DROPCLEANBUFFERS;';
					EXEC @return_status = sp_executesql @SQLCommand;

					IF ((@LOGLEVEL in ('INFO')) and (@return_status = 0)) BEGIN
						SET @return_status_text = 'Removing sql query cache was successfully completed!';
						PRINT @return_status_text;
					END; ELSE IF ((@LOGLEVEL in ('WARN')) and (@return_status <> 0)) BEGIN
						SET @return_status_text = 'Removing sql query cache returns warnings or has failed, check the ID!';
						PRINT @return_status_text;
					END;

				END; ELSE BEGIN
					IF (@LOGLEVEL in ('INFO')) BEGIN
						SET @return_status_text = 'Skipping the query cache clearing!';
						PRINT @return_status_text;
					END;
				END;
				-----------------------------------------------------------------------------------------------------------------------------

				--===============================================-- Log result to table --=================================================--
				IF ((@LOGLEVEL in ('INFO','WARN')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
					IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
						INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],	[MESSAGE2],		[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
											   			  VALUES (@LOGLEVEL,  'db_cursor',   @DBName,		@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
					END;
				END;
				-----------------------------------------------------------------------------------------------------------------------------

				--==============================================-- Change db working mode --===============================================--
				IF (@FORCE = 1) BEGIN -- and ignore last result
					PRINT 'Set the database back to MULTI_USER mode';
					SET @SQLCommand = N'ALTER DATABASE [' + @DBName + '] SET MULTI_USER; ALTER DATABASE [' + @DBName + '] SET ONLINE;';
					EXEC @return_status = sp_executesql @SQLCommand;

					IF ((@LOGLEVEL in ('INFO')) and (@return_status = 0)) BEGIN
						SET @return_status_text = 'Setting the database to MULTI_USER mode was successfully completed!';
						PRINT @return_status_text;
					END; ELSE IF ((@LOGLEVEL in ('WARN')) and (@return_status <> 0)) BEGIN
						SET @return_status_text = 'Setting the database to MULTI_USER mode returns warnings or has failed, check the ID!';
						PRINT @return_status_text;
					END;
				END; ELSE BEGIN
					IF (@LOGLEVEL in ('INFO')) BEGIN
						SET @return_status_text = 'Skipping to change the database mode (FORCE = OFF)!';
						PRINT @return_status_text;
					END;
				END;
				-----------------------------------------------------------------------------------------------------------------------------

				--===============================================-- Log result to table --=================================================--
				IF ((@LOGLEVEL in ('INFO','WARN')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
					IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
						INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],    [MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
															VALUES (@LOGLEVEL,  'db_cursor', @DBName,		@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
					END;
				END;
				-----------------------------------------------------------------------------------------------------------------------------

				-- Ensure temp table is droped and cursor is closed
				BEGIN TRY
					DROP TABLE #DBList;
				END TRY
				BEGIN CATCH
					PRINT '#DBList Temp table are already gone...';
				END CATCH;

				IF (@REBUILDINDEX = 1) BEGIN

					BEGIN TRY
						DROP TABLE #TableList;
					END TRY
					BEGIN CATCH
						PRINT '#TableList Temp table are already gone...(1)';
					END CATCH;

				END;

				IF (@RECOMPILEPROCEDURES = 1) BEGIN

					BEGIN TRY
						DROP TABLE #ProcedureList;
					END TRY
					BEGIN CATCH
						PRINT '#ProcedureList Temp table are already gone...(1)';
					END CATCH;

					BEGIN TRY
						CLOSE procedure_cursor;
						DEALLOCATE procedure_cursor;
					END TRY
					BEGIN CATCH
						PRINT 'Procedure cursor is already closed and deallocated...(1)';
					END CATCH;

				END;

				PRINT '-------------------------------';

			END TRY
			BEGIN CATCH
				-- Handle any errors that occur during the process.
				SELECT ERROR_MESSAGE() AS ErrorMessage;

				--================================================-- Log error to table --=================================================--
				IF (@LOGLEVEL in ('INFO','WARN','ERROR')) BEGIN
					IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
						INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],  [MESSAGE2],	[MESSAGE3],		[ADDED_WHO],     [ADDED_WHEN])
															VALUES ('ERROR',  'db_cursor', @DBName,		ERROR_MESSAGE(),@MyProcedureName,GetDate());
					END;
				END;
				-----------------------------------------------------------------------------------------------------------------------------

				--==============================================-- Change db working mode --===============================================--
				-- Ensure the database is set back to MULTI_USER mode in case of errors.
				--==============================================-- Change db working mode --===============================================--
				IF (@FORCE = 1) BEGIN -- and ignore last result
					PRINT 'Set the database back to MULTI_USER mode';
					SET @SQLCommand = N'ALTER DATABASE [' + @DBName + '] SET MULTI_USER; ALTER DATABASE [' + @DBName + '] SET ONLINE;';
					EXEC @return_status = sp_executesql @SQLCommand;

					IF ((@LOGLEVEL in ('INFO')) and (@return_status = 0)) BEGIN
						SET @return_status_text = 'Setting the database to MULTI_USER mode was successfully completed!';
						PRINT @return_status_text;
					END; ELSE IF ((@LOGLEVEL in ('WARN')) and (@return_status <> 0)) BEGIN
						SET @return_status_text = 'Setting the database to MULTI_USER mode returns warnings or has failed, check the ID!';
						PRINT @return_status_text;
					END;
				END; ELSE BEGIN
					IF (@LOGLEVEL in ('INFO')) BEGIN
						SET @return_status_text = 'Skipping to change the database mode (FORCE = OFF)!';
						PRINT @return_status_text;
					END;
				END;
				-----------------------------------------------------------------------------------------------------------------------------

				--===============================================-- Log start to table --=================================================--
				IF ((@LOGLEVEL in ('INFO','WARN')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
					IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
						INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],    [MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
														  VALUES (@LOGLEVEL,  'db_cursor',   @DBName,		@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
					END;
				END;
				-----------------------------------------------------------------------------------------------------------------------------

				--=====================================================-- Clean up --======================================================--
				-- Ensure temp table is droped and cursor is closed
				BEGIN TRY
					DROP TABLE #DBList;
				END TRY
				BEGIN CATCH
					PRINT '#DBList Temp table are already gone...';
				END CATCH;

				IF (@REBUILDINDEX = 1) BEGIN

					BEGIN TRY
						DROP TABLE #TableList;
					END TRY
					BEGIN CATCH
						PRINT '#TableList Temp table are already gone...(2)';
					END CATCH;

					BEGIN TRY
						CLOSE table_cursor;
						DEALLOCATE table_cursor;
					END TRY
					BEGIN CATCH
						PRINT 'Table cursor is already closed and deallocated...(2)';
					END CATCH;

				END;

				IF (@RECOMPILEPROCEDURES = 1) BEGIN

					BEGIN TRY
						DROP TABLE #ProcedureList;
					END TRY
					BEGIN CATCH
						PRINT '#ProcedureList Temp table are already gone...(2)';
					END CATCH;

					BEGIN TRY
						CLOSE procedure_cursor;
						DEALLOCATE procedure_cursor;
					END TRY
					BEGIN CATCH
						PRINT 'Procedure cursor is already closed and deallocated...(2)';
					END CATCH;

				END;
				-----------------------------------------------------------------------------------------------------------------------------

			END CATCH;

			FETCH NEXT FROM db_cursor INTO @DBName;  

		END;

		CLOSE db_cursor;
		DEALLOCATE db_cursor;

	END; ELSE BEGIN

		SET @return_status = 0;
		SET @return_status_text = 'So there is nothing to do...';
		PRINT @return_status_text;

		--===============================================-- Log result to table --=================================================--
		IF ((@LOGLEVEL in ('INFO','WARN','ERROR')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
			IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
				INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],    [MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],        [ADDED_WHEN])
												  VALUES ('WARN',     'db_list',     'count',		@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
			END;
		END;
		-----------------------------------------------------------------------------------------------------------------------------

	END;
	-----------------------------------------------------------------------------------------------------------------------------

	SET @return_status_text = 'END [PRDD_MAINTAIN_DATABASES] @ ' + CONVERT(varchar(50),GETDATE(),120);

	--================================================-- Log end to table --===================================================--
	IF ((@LOGLEVEL in ('INFO')) and (@return_status is not null) and (@return_status_text is not null)) BEGIN
		IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME = N'TBDD_MAINTAIN_DATABASES_LOG') BEGIN
			INSERT INTO [TBDD_MAINTAIN_DATABASES_LOG]([LOG_LEVEL],[MESSAGE1],    [MESSAGE2],	[MESSAGE3],		[MESSAGE4],				[ADDED_WHO],		[ADDED_WHEN])
											  VALUES (@LOGLEVEL,  'closing',    'procedure',	@return_status,	@return_status_text,	@MyProcedureName,	GetDate());
		END;
	END;
	-----------------------------------------------------------------------------------------------------------------------------

	PRINT '';
	PRINT 'PROCEDURE  - ' + @return_status_text;
	PRINT '===============================';

	Return @return_status;

END;