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

Merged PR 28616: Added flags to switch whether or not to add the records to the next queue.

Browse Source 
Added flags to switch whether or not to add the records to the next queue.
This commit is contained in:
Ouellette Jonathan (CSC FI SPS MESLEO)
2025-10-17 00:35:15 +00:00
parent 05e0fb3eda
commit 315abcde86
1 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
LSL2/STPROC/ARCHIVE_SERVICES.txt
View File

@ -303,7 +303,7 @@ Service ProcessArchiveQueue()
readnext ArchiveQueueId else Done = 1
until Done
ArchiveId = XLATE('ARCHIVE_QUEUE', ArchiveQueueId, ARCHIVE_QUEUE_ARCHIVE_ID$, 'X')
Archive_Services('ArchiveRecords', ArchiveId)
Archive_Services('ArchiveRecords', ArchiveId, True$)
If Error_Services('HasError') then
ProcessError = Error_Services('GetMessage')
Error_Services('Clear')
@ -355,7 +355,7 @@ Step 2.2 of data archiving procedures.
Parameters -
ArchiveId - The key ID to the ARCHIVE record being processed.
*/
Service ArchiveRecords(ArchiveId)
Service ArchiveRecords(ArchiveId, AddToDeleteQ)
ErrorMsg = ''
@ -401,9 +401,11 @@ Service ArchiveRecords(ArchiveId)
end
Next Record
If ErrorMsg EQ '' then
Archive_Services('AddToDeleteQueue', ArchiveId)
If Error_Services('HasError') then
ErrorMsg = Error_Services('GetMessage')
if AddToDeleteQ then
Archive_Services('AddToDeleteQueue', ArchiveId)
If Error_Services('HasError') then
ErrorMsg = Error_Services('GetMessage')
end
end
end
end else
@ -1604,3 +1606,4 @@ return