phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added failed unlock logging

Browse Source
This commit is contained in:
Infineon\StieberD 2025-02-10 10:43:23 -07:00 committed by Stieber Daniel (CSC FI SPS MESLEO)
parent 870032702f
commit 269f0284b8
1 changed files with 30 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
LSL2/STPROC/OBJ_TABLES.txt
View File

@ -36,8 +36,9 @@ COMPILE FUNCTION obj_Tables(Method,Parms)
*/ */
DECLARE SUBROUTINE Set_Status, Set_FSError, Database_Services, Logging_Services DECLARE SUBROUTINE Set_Status, Set_FSError, Database_Services, Logging_Services, obj_Notes
DECLARE FUNCTION Set_Status, Database_Services, Logging_Services, Environment_Services DECLARE FUNCTION Set_Status, Database_Services, Logging_Services, Environment_Services, RetStack, obj_Notes
DECLARE FUNCTION Error_Services
EQU Tab$ TO \09\ EQU Tab$ TO \09\
EQU CRLF$ TO \0D0A\ EQU CRLF$ TO \0D0A\
@ -219,7 +220,33 @@ WriteRec:
If ( (TableName NE '') and (TableKey NE '') ) then If ( (TableName NE '') and (TableKey NE '') ) then
RecordLocked = Database_Services('IsKeyIDLocked', TableName, TableKey, False$) 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
END END