From 269f0284b82f99934997aedd9ad4a4dee9359da1 Mon Sep 17 00:00:00 2001
From: "Infineon\\StieberD" <daniel.stieber@infineon.com>
Date: Mon, 10 Feb 2025 10:43:23 -0700
Subject: [PATCH] added failed unlock logging

---
 LSL2/STPROC/OBJ_TABLES.txt | 33 ++++++++++++++++++++++++++++++---
 1 file changed, 30 insertions(+), 3 deletions(-)

diff --git a/LSL2/STPROC/OBJ_TABLES.txt b/LSL2/STPROC/OBJ_TABLES.txt
index b7991fb..aafb812 100644
--- a/LSL2/STPROC/OBJ_TABLES.txt
+++ b/LSL2/STPROC/OBJ_TABLES.txt
@@ -36,8 +36,9 @@ COMPILE FUNCTION obj_Tables(Method,Parms)
 	
 */
 
-DECLARE SUBROUTINE Set_Status, Set_FSError, Database_Services, Logging_Services
-DECLARE FUNCTION Set_Status, Database_Services, Logging_Services, Environment_Services
+DECLARE SUBROUTINE Set_Status, Set_FSError, Database_Services, Logging_Services, obj_Notes
+DECLARE FUNCTION Set_Status, Database_Services, Logging_Services, Environment_Services, RetStack, obj_Notes
+DECLARE FUNCTION Error_Services
 
 EQU Tab$        TO \09\
 EQU CRLF$       TO \0D0A\
@@ -219,7 +220,33 @@ WriteRec:
 		
 		If ( (TableName NE '') and (TableKey NE '') ) then
 			RecordLocked = Database_Services('IsKeyIDLocked', TableName, TableKey, False$)
-			If RecordLocked EQ True$ then Database_Services('ReleaseKeyIDLock', TableName, TableKey)
+			If RecordLocked EQ True$ then
+				LockReleased = Database_Services('ReleaseKeyIDLock', TableName, TableKey)
+				If Not(LockReleased) then
+					UnlockError = Error_Services('GetMessage')
+					// Logging DTM' : @FM : 'User' : @FM : 'Method' : @FM : 'TableName' : @FM : 'TableKey' : @FM : 'Notes'
+					LogData     = ''
+					LogData<1>  = LoggingDtm
+					LogData<2>  = @User4
+					LogData<3>  = Method
+					LogData<4>  = TableName
+					LogData<5>  = TableKey
+					LogData<6>  = UnlockError
+					LogData<7>  = 'Record self locked: ':Database_Services('IsKeyIDSelfLocked', TableName, TableKey)
+					LogData<9>  = 'Call stack: ':RetStack()
+					Logging_Services('AppendLog', objLog, LogData, @RM, @FM)
+					
+					Recipients   = ''
+					SendFrom     = 'System'       
+					Subject      = 'obj_Tables("WriteRec") failed to release lock'
+					AttachWindow = TableName
+					AttachKey    = TableKey
+					SendToGroup  = 'FI_SUPPORT'
+					MessageParms = Recipients:@RM:SendFrom:@RM:Subject:@RM:UnlockError:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
+					obj_Notes('Create',MessageParms)					
+					
+				end
+			end
 		end
 		
 	END