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

Switched to RList from Select...By to prevent read issues.

Browse Source
This commit is contained in:
Infineon\StieberD
2025-06-25 09:34:01 -07:00
parent e523f2085d
commit 38e7b6e276
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
LSL2/STPROC/TRANSACTION_SERVICES.txt
View File

@ -27,6 +27,7 @@ Compile function Transaction_Services(@Service, @Params)
$Insert SERVICE_SETUP $Insert SERVICE_SETUP
$Insert APP_INSERTS $Insert APP_INSERTS
$Insert TRANSACTION_QUEUE_EQUATES $Insert TRANSACTION_QUEUE_EQUATES
$Insert RLIST_EQUATES
EQU COMMA$ to ',' EQU COMMA$ to ','
@ -153,13 +154,16 @@ Service ProcessTransactionQueue()
GoSub ClearCursors GoSub ClearCursors
Select 'TRANSACTION_QUEUE' by 'TRANSACTION_DTM' setting Cursor then Query = 'SELECT TRANSACTION_QUEUE BY TRANSACTION_DTM'
RList(Query, TARGET_ACTIVELIST$, '', '', '')
ErrCode = ''
If Not(Get_Status(ErrCode)) then
EOF = False$ EOF = False$
Loop Loop
LogData = '' LogData = ''
DeleteTrans = False$ DeleteTrans = False$
ErrorMsg = '' ErrorMsg = ''
ReadNext TransId using Cursor By At else EOF = True$ ReadNext TransId else EOF = True$
Until EOF Until EOF
TransRec = Database_Services('ReadDataRow', 'TRANSACTION_QUEUE', TransId) TransRec = Database_Services('ReadDataRow', 'TRANSACTION_QUEUE', TransId)
If Error_Services('NoError') then If Error_Services('NoError') then
@ -224,8 +228,9 @@ Service ProcessTransactionQueue()
LogData<2> = 'Failed to process transaction ':TransId:'. Error message: ':ErrorMsg LogData<2> = 'Failed to process transaction ':TransId:'. Error message: ':ErrorMsg
end end
Logging_Services('AppendLog', objQueueLog, LogData, @RM, @FM) Logging_Services('AppendLog', objQueueLog, LogData, @RM, @FM)
Repeat Repeat
end end
Unlock hSysLists, ServiceKeyID else Null Unlock hSysLists, ServiceKeyID else Null
end end