AppStd/Skriptentwickung
8
0
Fork 0
Code

PRDD_MAINTAIN_DATABASES: Improved safty checks

Browse Source
This commit is contained in:
KammM 2025-06-06 17:12:50 +02:00
parent c4060d8f1c
commit e94cfe0821
1 changed files with 40 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
current/[PRDD_MAINTAIN_DATABASES]/[PRDD_MAINTAIN_DATABASES].sql
View File

@ -1,3 +1,6 @@
USE [DD_SYS]
GO
SET ANSI_NULLS ON SET ANSI_NULLS ON
GO GO
SET QUOTED_IDENTIFIER ON SET QUOTED_IDENTIFIER ON
@ -11,19 +14,20 @@ GO
-- --
-- Returns: INT Value - 0 = Everything worked well -- Returns: INT Value - 0 = Everything worked well
-- ================================================================= -- =================================================================
-- Copyright (c) 2024 by Digital Data GmbH -- Copyright (c) 2025 by Digital Data GmbH
-- --
-- Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim -- Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
-- Tel.: 0641/202360 • E-Mail: info-flow@digitaldata.works -- Tel.: 0641/202360 • E-Mail: info-flow@digitaldata.works
-- ================================================================= -- =================================================================
-- Creation Date / Author: 29.11.2024 / MK -- Creation Date / Author: 29.11.2024 / MK
-- Version Date / Editor: 13.12.2024 / MK -- Version Date / Editor: 20.03.2025 / MK
-- Version Number: 1.1.0.1 -- Version Number: 1.2.0.0
-- ================================================================= -- =================================================================
-- History: -- History:
-- 29.11.2024 / MK - First Version -- 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 -- 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 -- 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] ( 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. @pCHECKDB BIT = 1, -- Set to 1 to make a check of the database before shrinking incl. soft repair function. Otherwise set to 0.
@ -61,9 +65,10 @@ BEGIN
@DBName NVARCHAR(100), @DBName NVARCHAR(100),
@DBNameCount INT, @DBNameCount INT,
@LogFileName NVARCHAR(100), @LogFileName NVARCHAR(100),
@CurrentLogFileSizeMB INT, @CurrentLogFileSizeInMB INT,
@MinimumLogFileSizeMB INT, @MinimumLogFileSizeInMB INT,
@TargetLogFileSizeMB INT, @MaximumLogFileSizeInMB INT,
@TargetLogFileSizeInMB INT,
@ProductVersion sql_variant, @ProductVersion sql_variant,
@ProductMainVersion INT, @ProductMainVersion INT,
@ProductLevel sql_variant, @ProductLevel sql_variant,
@ -160,14 +165,14 @@ BEGIN
IF (@INCLUDEDB is not NULL) BEGIN IF (@INCLUDEDB is not NULL) BEGIN
INSERT INTO #DBList(DBName) INSERT INTO #DBList(DBName)
SELECT [name] as 'DBName' SELECT [name] as 'DBName'
FROM [master].[sys].[databases] FROM [master].[sys].[databases] (NOLOCK)
WHERE [name] IN (SELECT [value] FROM STRING_SPLIT(@INCLUDEDB, ',')) -- include these databases WHERE [name] IN (SELECT [value] FROM STRING_SPLIT(@INCLUDEDB, ',')) -- include these databases
AND [state] = 0 -- database is online AND [state] = 0 -- database is online
AND [is_in_standby] = 0; -- database is not read only for log shipping AND [is_in_standby] = 0; -- database is not read only for log shipping
END; ELSE BEGIN END; ELSE BEGIN
INSERT INTO #DBList(DBName) INSERT INTO #DBList(DBName)
SELECT [name] as 'DBName' SELECT [name] as 'DBName'
FROM [master].[sys].[databases] FROM [master].[sys].[databases] (NOLOCK)
WHERE [name] NOT IN (SELECT [value] FROM STRING_SPLIT(@EXCLUDEDB, ',')) -- exclude these databases WHERE [name] NOT IN (SELECT [value] FROM STRING_SPLIT(@EXCLUDEDB, ',')) -- exclude these databases
AND [state] = 0 -- database is online AND [state] = 0 -- database is online
AND [is_in_standby] = 0; -- database is not read only for log shipping AND [is_in_standby] = 0; -- database is not read only for log shipping
@ -178,7 +183,7 @@ BEGIN
PRINT 'Because of the SQL Version only one DB can be processed!' PRINT 'Because of the SQL Version only one DB can be processed!'
INSERT INTO #DBList(DBName) INSERT INTO #DBList(DBName)
SELECT [name] as 'DBName' SELECT [name] as 'DBName'
FROM [master].[sys].[databases] FROM [master].[sys].[databases] (NOLOCK)
WHERE [name] = @INCLUDEDB -- use only this database WHERE [name] = @INCLUDEDB -- use only this database
AND [state] = 0 -- database is online AND [state] = 0 -- database is online
AND [is_in_standby] = 0; -- database is not read only for log shipping AND [is_in_standby] = 0; -- database is not read only for log shipping
@ -327,10 +332,16 @@ BEGIN
IF (@FORCE = 1) BEGIN IF (@FORCE = 1) BEGIN
PRINT 'Check the database for consistency and health and try soft repair.'; PRINT 'Check the database for consistency and health and try soft repair.';
SET @SQLCommand = N'USE [' + @DBName + ']; DBCC CHECKDB ([' + @DBName + '], REPAIR_REBUILD) WITH NO_INFOMSGS, ALL_ERRORMSGS'; 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 END; ELSE BEGIN
PRINT 'Check the database for consistency and health.'; PRINT 'Check the database for consistency and health.';
SET @SQLCommand = N'USE [' + @DBName + ']; DBCC CHECKDB ([' + @DBName + ']) WITH NO_INFOMSGS, ALL_ERRORMSGS'; 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; END;
EXEC @return_status = sp_executesql @SQLCommand; EXEC @return_status = sp_executesql @SQLCommand;
@ -365,11 +376,11 @@ BEGIN
--===========================================-- Get infos about the log file --============================================-- --===========================================-- Get infos about the log file --============================================--
PRINT 'Get the current and minimum size of the log file in MB.'; PRINT 'Get the current and minimum size of the log file in MB.';
SET @SQLCommand = N'SELECT TOP 1 @LogFileName = [name], @CurrentLogFileSizeMB = ([size] / 128), @MinimumLogFileSizeMB = ([growth] * 8) SET @SQLCommand = N'SELECT TOP 1 @LogFileName = [name], @CurrentLogFileSizeInMB = ([size] / 128), @MinimumLogFileSizeInMB = ([growth] / 128), @MaximumLogFileSizeInMB = ([max_size] / 128)
FROM [master].[sys].[master_files] FROM [master].[sys].[master_files] (NOLOCK)
WHERE [database_id] = DB_ID(''' + @DBName + ''') AND [type_desc] = ''LOG'''; 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, @CurrentLogFileSizeMB INT OUTPUT, @MinimumLogFileSizeMB INT OUTPUT', EXEC @return_status = sp_executesql @SQLCommand, N'@LogFileName VARCHAR(100) OUTPUT, @CurrentLogFileSizeInMB INT OUTPUT, @MinimumLogFileSizeInMB INT OUTPUT, @MaximumLogFileSizeInMB INT OUTPUT',
@LogFileName OUTPUT, @CurrentLogFileSizeMB OUTPUT, @MinimumLogFileSizeMB OUTPUT; @LogFileName OUTPUT, @CurrentLogFileSizeInMB OUTPUT, @MinimumLogFileSizeInMB OUTPUT, @MaximumLogFileSizeInMB OUTPUT;
IF ((@LOGLEVEL in ('INFO')) and (@return_status = 0)) BEGIN IF ((@LOGLEVEL in ('INFO')) and (@return_status = 0)) BEGIN
SET @return_status_text = 'Getting log file settings was successfully completed!'; SET @return_status_text = 'Getting log file settings was successfully completed!';
@ -390,17 +401,20 @@ BEGIN
----------------------------------------------------------------------------------------------------------------------------- -----------------------------------------------------------------------------------------------------------------------------
--===========================================-- Calculate target file size --==============================================-- --===========================================-- Calculate target file size --==============================================--
PRINT 'The @CurrentLogFileSizeMB is: ' + CONVERT(VARCHAR(1000),@CurrentLogFileSizeMB); PRINT 'The @CurrentLogFileSizeInMB is: ' + CONVERT(VARCHAR(1000),@CurrentLogFileSizeInMB);
SET @TargetLogFileSizeMB = CASE WHEN @CurrentLogFileSizeMB * 0.1 < @MinimumLogFileSizeMB PRINT 'The @MinimumLogFileSizeInMB is: ' + CONVERT(VARCHAR(1000),@MinimumLogFileSizeInMB);
THEN @MinimumLogFileSizeMB PRINT 'The @MaximumLogFileSizeInMB is: ' + CONVERT(VARCHAR(1000),@MaximumLogFileSizeInMB);
ELSE @CurrentLogFileSizeMB * 0.1
SET @TargetLogFileSizeInMB = CASE WHEN (@MinimumLogFileSizeInMB < @CurrentLogFileSizeInMB) AND (@MinimumLogFileSizeInMB < @MaximumLogFileSizeInMB)
THEN @MinimumLogFileSizeInMB
ELSE @CurrentLogFileSizeInMB
END; END;
PRINT 'The @TargetLogFileSizeMB is: ' + CONVERT(VARCHAR(1000),@TargetLogFileSizeMB); PRINT 'The @TargetLogFileSizeInMB is: ' + CONVERT(VARCHAR(1000),@TargetLogFileSizeInMB);
----------------------------------------------------------------------------------------------------------------------------- -----------------------------------------------------------------------------------------------------------------------------
--=================================================-- Schrink db logs --===================================================-- --=================================================-- Schrink db logs --===================================================--
IF (@CurrentLogFileSizeMB > @TargetLogFileSizeMB) BEGIN IF (@CurrentLogFileSizeInMB > @TargetLogFileSizeInMB) BEGIN
--=============================================-- Change db recovery mode --===============================================-- --=============================================-- Change db recovery mode --===============================================--
PRINT 'Truncating the log needs to change the database recovery model to SIMPLE.'; PRINT 'Truncating the log needs to change the database recovery model to SIMPLE.';
@ -430,13 +444,13 @@ BEGIN
PRINT 'Shrink the truncated log file to 10% of its current size or the minimum size, whichever is larger.'; PRINT 'Shrink the truncated log file to 10% of its current size or the minimum size, whichever is larger.';
IF (@ProductMainVersion >= 16) BEGIN IF (@ProductMainVersion >= 16) BEGIN
IF (@FORCE = 1) BEGIN IF (@FORCE = 1) BEGIN
SET @SQLCommand = N'USE [' + @DBName + ']; DBCC SHRINKFILE (''' + @LogFileName + ''', ' + CAST(@TargetLogFileSizeMB AS VARCHAR) + ') WITH WAIT_AT_LOW_PRIORITY (ABORT_AFTER_WAIT = BLOCKERS), NO_INFOMSGS;'; 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 END; ELSE BEGIN
SET @SQLCommand = N'USE [' + @DBName + ']; DBCC SHRINKFILE (''' + @LogFileName + ''', ' + CAST(@TargetLogFileSizeMB AS VARCHAR) + ') WITH WAIT_AT_LOW_PRIORITY (ABORT_AFTER_WAIT = SELF), NO_INFOMSGS;'; 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;
END; ELSE BEGIN END; ELSE BEGIN
PRINT 'Because of the sql server version, DBCC SHRINKFILE is not applicable with the FORCE parameter!'; 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(@TargetLogFileSizeMB AS VARCHAR) + ') WITH NO_INFOMSGS;'; SET @SQLCommand = N'USE [' + @DBName + ']; DBCC SHRINKFILE (''' + @LogFileName + ''', ' + CAST(@TargetLogFileSizeInMB AS VARCHAR) + ') WITH NO_INFOMSGS;';
END; END;
EXEC @return_status = sp_executesql @SQLCommand; EXEC @return_status = sp_executesql @SQLCommand;