/*====================================================================================== Script: aspstate_sql2016_no_retry.sql Description: This script is based on the InstallSqlState.sql script but works with SQL 2016 In-Memory OLTP by replacing the following objects to in-memory and natively compiled stored procedures. ** Tables: Converted the following table to In-Memory table: - [dbo].[ASPStateTempSessions] (SessionId: NONCLUSTERED HASH PK (Bucket Count=33554432)) ** Stored Procedures: Converted the following SPs to Native Compiled SPs: - dbo.TempGetStateItemExclusive3 - dbo.TempInsertStateItemShort - dbo.TempUpdateStateItemLong - dbo.TempUpdateStateItemLongNullShort - dbo.TempUpdateStateItemShort ======================================================================================*/ USE [master] GO DECLARE @SQLDataFolder nvarchar(max) = cast(SERVERPROPERTY('InstanceDefaultDataPath') as nvarchar(max)) DECLARE @SQLLogFolder nvarchar(max) = cast(SERVERPROPERTY('InstanceDefaultLogPath') as nvarchar(max)) DECLARE @SQL nvarchar(max) = N''; SET @SQL = N' CREATE DATABASE [ASPState] CONTAINMENT = NONE ON PRIMARY (NAME = N''ASPState'', FILENAME = N''' + @SQLDataFolder + 'ASPState.mdf'' , SIZE = 8192KB , MAXSIZE = UNLIMITED, FILEGROWTH = 65536KB ), FILEGROUP [ASPState_mod] CONTAINS MEMORY_OPTIMIZED_DATA DEFAULT (NAME = N''ASPState_mod'', FILENAME = N''' + @SQLLogFolder + 'ASPState_mod'' , MAXSIZE = UNLIMITED) LOG ON (NAME = N''ASPState_log'', FILENAME = N''' + @SQLLogFolder + 'ASPState_log.ldf'' , SIZE = 8192KB , MAXSIZE = 2048GB , FILEGROWTH = 65536KB ); ALTER DATABASE [ASPState] SET COMPATIBILITY_LEVEL = 130; ALTER DATABASE [ASPState] SET MEMORY_OPTIMIZED_ELEVATE_TO_SNAPSHOT=ON;' EXECUTE (@SQL) GO USE [AspState] GO CREATE ROLE [ASPStateExecute]; CREATE ROLE [ASPStateResetRole]; CREATE ROLE [ASPStateRole]; CREATE TYPE [dbo].[tAppName] FROM [varchar](280) NOT NULL; CREATE TYPE [dbo].[tSessionId] FROM [nvarchar](88) NOT NULL; CREATE TYPE [dbo].[tSessionItemLong] FROM [image] NULL; CREATE TYPE [dbo].[tSessionItemShort] FROM [varbinary](7000) NULL; CREATE TYPE [dbo].[tTextPtr] FROM [varbinary](max) NULL; CREATE TABLE [dbo].[ASPStateTempSessions] ( [SessionId] [nvarchar](88) COLLATE Latin1_General_100_BIN2 NOT NULL, [Created] [datetime] NOT NULL DEFAULT (getutcdate()), [Expires] [datetime] NOT NULL, [LockDate] [datetime] NOT NULL, [LockDateLocal] [datetime] NOT NULL, [LockCookie] [int] NOT NULL, [Timeout] [int] NOT NULL, [Locked] [bit] NOT NULL, [SessionItemShort] [varbinary](7000) NULL, [SessionItemLong] [varbinary](max) NULL, [Flags] [int] NOT NULL DEFAULT ((0)), INDEX [Index_Expires] NONCLUSTERED ( [Expires] ASC ), PRIMARY KEY NONCLUSTERED HASH ( [SessionId] )WITH ( BUCKET_COUNT = 33554432) )WITH ( MEMORY_OPTIMIZED = ON , DURABILITY = SCHEMA_ONLY ) GO CREATE TABLE [dbo].[ASPStateTempApplications]( [AppId] [int] NOT NULL, [AppName] [char](280) NOT NULL, PRIMARY KEY CLUSTERED ( [AppId] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO -- Stored Procedure: dbo.TempGetStateItemExclusive3 converted to natively compiled SP CREATE PROCEDURE [dbo].[TempGetStateItemExclusive3] @id nvarchar(88), @itemShort varbinary(7000) OUTPUT, @locked bit OUTPUT, @lockAge int OUTPUT, @lockCookie int OUTPUT, @actionFlags int OUTPUT WITH NATIVE_COMPILATION, SCHEMABINDING, EXECUTE AS OWNER AS BEGIN ATOMIC WITH ( TRANSACTION ISOLATION LEVEL = SNAPSHOT, LANGUAGE = N'us_english') DECLARE @textptr AS varbinary(max) DECLARE @length AS int DECLARE @now AS datetime DECLARE @nowLocal AS datetime SET @now = GETUTCDATE() SET @nowLocal = GETDATE() DECLARE @LockedCheck bit DECLARE @Flags int SELECT @LockedCheck=Locked, @Flags=Flags FROM dbo.ASPStateTempSessions WHERE SessionID=@id IF @Flags&1 <> 0 BEGIN SET @actionFlags=1 UPDATE dbo.ASPStateTempSessions SET Flags=Flags& ~1 WHERE SessionID=@id END ELSE SET @actionFlags=0 IF @LockedCheck=1 BEGIN UPDATE dbo.ASPStateTempSessions SET Expires = DATEADD(n, Timeout, @now), @lockAge = DATEDIFF(second, LockDate, @now), @lockCookie = LockCookie, @itemShort = NULL, --@textptr = NULL, @length = NULL, @locked = 1 WHERE SessionId = @id END ELSE BEGIN UPDATE dbo.ASPStateTempSessions SET Expires = DATEADD(n, Timeout, @now), LockDate = @now, LockDateLocal = @nowlocal, @lockAge = 0, @lockCookie = LockCookie = LockCookie + 1, @itemShort = SessionItemShort, @textptr = SessionItemLong, @length = 1, @locked = 0, Locked = 1 WHERE SessionId = @id IF @TextPtr IS NOT NULL SELECT @TextPtr END END GO -- Stored Procedure: dbo.TempInsertStateItemShort converted natively compiled SP CREATE PROCEDURE [dbo].[TempInsertStateItemShort] @id nvarchar(88), @itemShort varbinary(7000), @timeout int WITH NATIVE_COMPILATION, SCHEMABINDING, EXECUTE AS OWNER AS BEGIN ATOMIC WITH ( TRANSACTION ISOLATION LEVEL = SNAPSHOT, LANGUAGE = N'us_english') DECLARE @now AS datetime DECLARE @nowLocal AS datetime SET @now = GETUTCDATE() SET @nowLocal = GETDATE() INSERT dbo.ASPStateTempSessions (SessionId, SessionItemShort, Timeout, Expires, Locked, LockDate, LockDateLocal, LockCookie, Created, Flags, SessionItemLong) VALUES (@id, @itemShort, @timeout, DATEADD(n, @timeout, @now), 0, @now, @nowLocal, 1, @now, 0, NULL) RETURN 0 END GO -- Stored Procedure: dbo.TempUpdateStateItemLong converted to natively compiled SP CREATE PROCEDURE [dbo].[TempUpdateStateItemLong] @id nvarchar(88), @itemLong varbinary(max), @timeout int, @lockCookie int WITH NATIVE_COMPILATION, SCHEMABINDING, EXECUTE AS OWNER AS BEGIN ATOMIC WITH ( TRANSACTION ISOLATION LEVEL = SNAPSHOT, LANGUAGE = N'us_english') UPDATE dbo.ASPStateTempSessions SET Expires = DATEADD(n, @timeout, GETUTCDATE()), SessionItemLong = @itemLong, Timeout = @timeout, Locked = 0 WHERE SessionId = @id AND LockCookie = @lockCookie RETURN 0 END GO -- Stored Procedure: dbo.TempUpdateStateItemLongNullShort converted natively compiled SP CREATE PROCEDURE [dbo].[TempUpdateStateItemLongNullShort] @id nvarchar(88), @itemLong varbinary(max), @timeout int, @lockCookie int WITH NATIVE_COMPILATION, SCHEMABINDING, EXECUTE AS OWNER AS BEGIN ATOMIC WITH ( TRANSACTION ISOLATION LEVEL = SNAPSHOT, LANGUAGE = N'us_english') UPDATE dbo.ASPStateTempSessions SET Expires = DATEADD(n, @timeout, GETUTCDATE()), SessionItemLong = @itemLong, SessionItemShort = NULL, Timeout = @timeout, Locked = 0 WHERE SessionId = @id AND LockCookie = @lockCookie RETURN 0 END GO -- Stored Procedure: dbo.TempUpdateStateItemShort converted natively compiled SP CREATE PROCEDURE [dbo].[TempUpdateStateItemShort] @id nvarchar(88), @itemShort varbinary(7000), @timeout int, @lockCookie int WITH NATIVE_COMPILATION, SCHEMABINDING, EXECUTE AS OWNER AS BEGIN ATOMIC WITH ( TRANSACTION ISOLATION LEVEL = SNAPSHOT, LANGUAGE = N'us_english' ) UPDATE dbo.ASPStateTempSessions SET Expires = DATEADD(n, @timeout, GETUTCDATE()), SessionItemShort = @itemShort, Timeout = @timeout, Locked = 0 WHERE SessionId = @id AND LockCookie = @lockCookie RETURN 0 END GO CREATE PROCEDURE [dbo].[CreateTempTables] AS CREATE TABLE ASPStateTempSessions ( SessionId nvarchar(88) COLLATE Latin1_General_100_BIN2 NOT NULL, Created datetime NOT NULL DEFAULT GETUTCDATE(), Expires datetime NOT NULL, LockDate datetime NOT NULL, LockDateLocal datetime NOT NULL, LockCookie int NOT NULL, Timeout int NOT NULL, Locked bit NOT NULL, SessionItemShort VARBINARY(7000) NULL, SessionItemLong VARBINARY(max) NULL, Flags int NOT NULL DEFAULT 0, PRIMARY KEY NONCLUSTERED HASH ( [SessionId] )WITH ( BUCKET_COUNT = 33554432), INDEX Index_Expires (Expires) )WITH ( MEMORY_OPTIMIZED = ON , DURABILITY = SCHEMA_ONLY ) CREATE TABLE dbo.ASPStateTempApplications ( AppId int NOT NULL PRIMARY KEY, AppName char(280) NOT NULL, ) CREATE NONCLUSTERED INDEX Index_AppName ON ASPStateTempApplications(AppName) RETURN 0 GO CREATE PROCEDURE [dbo].[DeleteExpiredSessions] AS SET NOCOUNT ON SET DEADLOCK_PRIORITY LOW DECLARE @now datetime SET @now = GETUTCDATE() CREATE TABLE #tblExpiredSessions ( SessionId nvarchar(88) NOT NULL PRIMARY KEY ) INSERT #tblExpiredSessions (SessionId) SELECT SessionId FROM ASPStateTempSessions WITH (SNAPSHOT) WHERE Expires < @now IF @@ROWCOUNT <> 0 BEGIN DECLARE ExpiredSessionCursor CURSOR LOCAL FORWARD_ONLY READ_ONLY FOR SELECT SessionId FROM #tblExpiredSessions DECLARE @SessionId nvarchar(88) OPEN ExpiredSessionCursor FETCH NEXT FROM ExpiredSessionCursor INTO @SessionId WHILE @@FETCH_STATUS = 0 BEGIN DELETE FROM ASPStateTempSessions WHERE SessionId = @SessionId AND Expires < @now FETCH NEXT FROM ExpiredSessionCursor INTO @SessionId END CLOSE ExpiredSessionCursor DEALLOCATE ExpiredSessionCursor END DROP TABLE #tblExpiredSessions RETURN 0 GO CREATE PROCEDURE [dbo].[GetHashCode] @input tAppName, @hash int OUTPUT AS /* This sproc is based on this C# hash function: int GetHashCode(string s) { int hash = 5381; int len = s.Length; for (int i = 0; i < len; i++) { int c = Convert.ToInt32(s[i]); hash = ((hash << 5) + hash) ^ c; } return hash; } However, SQL 7 doesn't provide a 32-bit integer type that allows rollover of bits, we have to divide our 32bit integer into the upper and lower 16 bits to do our calculation. */ DECLARE @hi_16bit int DECLARE @lo_16bit int DECLARE @hi_t int DECLARE @lo_t int DECLARE @len int DECLARE @i int DECLARE @c int DECLARE @carry int SET @hi_16bit = 0 SET @lo_16bit = 5381 SET @len = DATALENGTH(@input) SET @i = 1 WHILE (@i <= @len) BEGIN SET @c = ASCII(SUBSTRING(@input, @i, 1)) /* Formula: hash = ((hash << 5) + hash) ^ c */ /* hash << 5 */ SET @hi_t = @hi_16bit * 32 /* high 16bits << 5 */ SET @hi_t = @hi_t & 0xFFFF /* zero out overflow */ SET @lo_t = @lo_16bit * 32 /* low 16bits << 5 */ SET @carry = @lo_16bit & 0x1F0000 /* move low 16bits carryover to hi 16bits */ SET @carry = @carry / 0x10000 /* >> 16 */ SET @hi_t = @hi_t + @carry SET @hi_t = @hi_t & 0xFFFF /* zero out overflow */ /* + hash */ SET @lo_16bit = @lo_16bit + @lo_t SET @hi_16bit = @hi_16bit + @hi_t + (@lo_16bit / 0x10000) /* delay clearing the overflow */ /* ^c */ SET @lo_16bit = @lo_16bit ^ @c /* Now clear the overflow bits */ SET @hi_16bit = @hi_16bit & 0xFFFF SET @lo_16bit = @lo_16bit & 0xFFFF SET @i = @i + 1 END /* Do a sign extension of the hi-16bit if needed */ IF (@hi_16bit & 0x8000 <> 0) SET @hi_16bit = 0xFFFF0000 | @hi_16bit /* Merge hi and lo 16bit back together */ SET @hi_16bit = @hi_16bit * 0x10000 /* << 16 */ SET @hash = @hi_16bit | @lo_16bit RETURN 0 GO CREATE PROCEDURE [dbo].[GetMajorVersion] @@ver int OUTPUT AS BEGIN DECLARE @version nchar(100) DECLARE @dot int DECLARE @hyphen int DECLARE @SqlToExec nchar(4000) SELECT @@ver = 7 SELECT @version = @@Version SELECT @hyphen = CHARINDEX(N' - ', @version) IF (NOT(@hyphen IS NULL) AND @hyphen > 0) BEGIN SELECT @hyphen = @hyphen + 3 SELECT @dot = CHARINDEX(N'.', @version, @hyphen) IF (NOT(@dot IS NULL) AND @dot > @hyphen) BEGIN SELECT @version = SUBSTRING(@version, @hyphen, @dot - @hyphen) SELECT @@ver = CONVERT(int, @version) END END END GO CREATE PROCEDURE [dbo].[TempGetAppID] @appName VARCHAR(280), --@appName tAppName, @appId int OUTPUT AS SET @appName = LOWER(@appName) SET @appId = NULL SELECT @appId = AppId FROM ASPStateTempApplications WHERE AppName = @appName IF @appId IS NULL BEGIN BEGIN TRAN SELECT @appId = AppId FROM ASPStateTempApplications WITH (TABLOCKX) WHERE AppName = @appName IF @appId IS NULL BEGIN EXEC GetHashCode @appName, @appId OUTPUT INSERT ASPStateTempApplications VALUES (@appId, @appName) IF @@ERROR = 2627 BEGIN DECLARE @dupApp tAppName SELECT @dupApp = RTRIM(AppName) FROM ASPStateTempApplications WHERE AppId = @appId RAISERROR('SQL session state fatal error: hash-code collision between applications ''%s'' and ''%s''. Please rename the 1st application to resolve the problem.', 18, 1, @appName, @dupApp) END END COMMIT END RETURN 0 GO CREATE PROCEDURE [dbo].[TempGetStateItem] @id tSessionId, @itemShort tSessionItemShort OUTPUT, @locked bit OUTPUT, @lockDate datetime OUTPUT, @lockCookie int OUTPUT AS DECLARE @textptr AS tTextPtr DECLARE @length AS int DECLARE @now AS datetime SET @now = GETUTCDATE() UPDATE ASPStateTempSessions SET Expires = DATEADD(n, Timeout, @now), @locked = Locked, @lockDate = LockDateLocal, @lockCookie = LockCookie, @itemShort = CASE @locked WHEN 0 THEN SessionItemShort ELSE NULL END, @textptr = CASE @locked WHEN 0 THEN SessionItemLong ELSE NULL END, @length = CASE @locked WHEN 0 THEN DATALENGTH(SessionItemLong) ELSE NULL END WHERE SessionId = @id IF @length IS NOT NULL BEGIN SELECT @textptr END RETURN 0 GO CREATE PROCEDURE [dbo].[TempGetStateItem2] @id tSessionId, @itemShort tSessionItemShort OUTPUT, @locked bit OUTPUT, @lockAge int OUTPUT, @lockCookie int OUTPUT AS DECLARE @textptr AS tTextPtr DECLARE @length AS int DECLARE @now AS datetime SET @now = GETUTCDATE() UPDATE ASPStateTempSessions SET Expires = DATEADD(n, Timeout, @now), @locked = Locked, @lockAge = DATEDIFF(second, LockDate, @now), @lockCookie = LockCookie, @itemShort = CASE @locked WHEN 0 THEN SessionItemShort ELSE NULL END, @textptr = CASE @locked WHEN 0 THEN SessionItemLong ELSE NULL END, @length = CASE @locked WHEN 0 THEN DATALENGTH(SessionItemLong) ELSE NULL END WHERE SessionId = @id IF @length IS NOT NULL BEGIN SELECT @textptr END RETURN 0 GO CREATE PROCEDURE [dbo].[TempGetStateItem3] @id nvarchar(88), -- @id tSessionId, @itemShort varbinary(7000) OUTPUT, -- @itemShort tSessionItemShort OUTPUT, @locked bit OUTPUT, @lockAge int OUTPUT, @lockCookie int OUTPUT, @actionFlags int OUTPUT AS DECLARE @textptr AS tTextPtr DECLARE @length AS int DECLARE @now AS datetime SET @now = GETUTCDATE() UPDATE ASPStateTempSessions SET Expires = DATEADD(n, Timeout, @now), @locked = Locked, @lockAge = DATEDIFF(second, LockDate, @now), @lockCookie = LockCookie, @itemShort = CASE @locked WHEN 0 THEN SessionItemShort ELSE NULL END, @textptr = CASE @locked WHEN 0 THEN SessionItemLong ELSE NULL END, @length = CASE @locked WHEN 0 THEN DATALENGTH(SessionItemLong) ELSE NULL END, /* If the Uninitialized flag (0x1) if it is set, remove it and return InitializeItem (0x1) in actionFlags */ Flags = CASE WHEN (Flags & 1) <> 0 THEN (Flags & ~1) ELSE Flags END, @actionFlags = CASE WHEN (Flags & 1) <> 0 THEN 1 ELSE 0 END WHERE SessionId = @id IF @length IS NOT NULL BEGIN SELECT @textptr END RETURN 0 GO CREATE PROCEDURE [dbo].[TempGetStateItemExclusive] @id tSessionId, @itemShort tSessionItemShort OUTPUT, @locked bit OUTPUT, @lockDate datetime OUTPUT, @lockCookie int OUTPUT AS DECLARE @textptr AS tTextPtr DECLARE @length AS int DECLARE @now AS datetime DECLARE @nowLocal AS datetime SET @now = GETUTCDATE() SET @nowLocal = GETDATE() UPDATE ASPStateTempSessions SET Expires = DATEADD(n, Timeout, @now), LockDate = CASE Locked WHEN 0 THEN @now ELSE LockDate END, @lockDate = LockDateLocal = CASE Locked WHEN 0 THEN @nowLocal ELSE LockDateLocal END, @lockCookie = LockCookie = CASE Locked WHEN 0 THEN LockCookie + 1 ELSE LockCookie END, @itemShort = CASE Locked WHEN 0 THEN SessionItemShort ELSE NULL END, @textptr = CASE Locked WHEN 0 THEN SessionItemLong ELSE NULL END, @length = CASE Locked WHEN 0 THEN DATALENGTH(SessionItemLong) ELSE NULL END, @locked = Locked, Locked = 1 WHERE SessionId = @id IF @length IS NOT NULL BEGIN SELECT @textptr END RETURN 0 GO CREATE PROCEDURE [dbo].[TempGetStateItemExclusive2] @id tSessionId, @itemShort tSessionItemShort OUTPUT, @locked bit OUTPUT, @lockAge int OUTPUT, @lockCookie int OUTPUT AS DECLARE @textptr AS tTextPtr DECLARE @length AS int DECLARE @now AS datetime DECLARE @nowLocal AS datetime SET @now = GETUTCDATE() SET @nowLocal = GETDATE() UPDATE ASPStateTempSessions SET Expires = DATEADD(n, Timeout, @now), LockDate = CASE Locked WHEN 0 THEN @now ELSE LockDate END, LockDateLocal = CASE Locked WHEN 0 THEN @nowLocal ELSE LockDateLocal END, @lockAge = CASE Locked WHEN 0 THEN 0 ELSE DATEDIFF(second, LockDate, @now) END, @lockCookie = LockCookie = CASE Locked WHEN 0 THEN LockCookie + 1 ELSE LockCookie END, @itemShort = CASE Locked WHEN 0 THEN SessionItemShort ELSE NULL END, @textptr = CASE Locked WHEN 0 THEN SessionItemLong ELSE NULL END, @length = CASE Locked WHEN 0 THEN DATALENGTH(SessionItemLong) ELSE NULL END, @locked = Locked, Locked = 1 WHERE SessionId = @id IF @length IS NOT NULL BEGIN SELECT @textptr END RETURN 0 GO CREATE PROCEDURE [dbo].[TempGetVersion] @ver char(10) OUTPUT AS SELECT @ver = '2' RETURN 0 GO CREATE PROCEDURE [dbo].[TempInsertStateItemLong] @id nvarchar(88), -- [dbo].[tSessionId] @itemLong image, -- [dbo].[tSessionItemLong] @timeout int AS DECLARE @now AS datetime DECLARE @nowLocal AS datetime SET @now = GETUTCDATE() SET @nowLocal = GETDATE() INSERT ASPStateTempSessions (SessionId, SessionItemLong, Timeout, Expires, Locked, LockDate, LockDateLocal, LockCookie) VALUES (@id, @itemLong, @timeout, DATEADD(n, @timeout, @now), 0, @now, @nowLocal, 1) RETURN 0 GO CREATE PROCEDURE [dbo].[TempInsertUninitializedItem] @id nvarchar(88), -- @id tSessionId, @itemShort varbinary(7000), -- @itemShort tSessionItemShort, @timeout int AS DECLARE @now AS datetime DECLARE @nowLocal AS datetime SET @now = GETUTCDATE() SET @nowLocal = GETDATE() INSERT ASPStateTempSessions (SessionId, SessionItemShort, Timeout, Expires, Locked, LockDate, LockDateLocal, LockCookie, Flags) VALUES (@id, @itemShort, @timeout, DATEADD(n, @timeout, @now), 0, @now, @nowLocal, 1, 1) RETURN 0 GO CREATE PROCEDURE [dbo].[TempReleaseStateItemExclusive] @id nvarchar(88), -- @id tSessionId, @lockCookie int AS UPDATE ASPStateTempSessions SET Expires = DATEADD(n, Timeout, GETUTCDATE()), Locked = 0 WHERE SessionId = @id AND LockCookie = @lockCookie RETURN 0 GO CREATE PROCEDURE [dbo].[TempRemoveStateItem] @id nvarchar(88), @lockCookie int AS DELETE ASPStateTempSessions WHERE SessionId = @id AND LockCookie = @lockCookie RETURN 0 GO CREATE PROCEDURE [dbo].[TempResetTimeout] @id nvarchar(88) AS UPDATE ASPStateTempSessions SET Expires = DATEADD(n, Timeout, GETUTCDATE()) WHERE SessionId = @id RETURN 0 GO CREATE PROCEDURE [dbo].[TempUpdateStateItemShortNullLong] @id nvarchar(88), -- @id tSessionId, @itemShort varbinary(7000), -- @itemShort tSessionItemShort, @timeout int, @lockCookie int AS UPDATE ASPStateTempSessions SET Expires = DATEADD(n, @timeout, GETUTCDATE()), SessionItemShort = @itemShort, SessionItemLong = NULL, Timeout = @timeout, Locked = 0 WHERE SessionId = @id AND LockCookie = @lockCookie RETURN 0 GO