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

Add errors last

Browse Source
This commit is contained in:
Chase Tucker
2025-08-26 09:10:15 -07:00
parent 47405863d7
commit a196bffd41
7 changed files with 152 additions and 163 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
LSL2/STPROC/RDS_SERVICES.txt
View File

@ -1127,6 +1127,7 @@ Service CopyRDSLayerParameters(RDSNo)
StartTick = GetTickCount()
MetricName = 'CopyRDSLayerParameters'
ErrMsg = ''
If (RDSNo NE '') then
RunOrderNo = Xlate('RDS', RDSNo, 'RUN_ORDER_NUM', 'X')
If (RunOrderNo GT 1) then
@ -1172,15 +1173,17 @@ Service CopyRDSLayerParameters(RDSNo)
Next CopyRDSLayerKey
end
end else
Error_Services('Add', 'No previous run to copy RDS layer parameters from in ':Service:' service.')
ErrMsg = 'No previous run to copy RDS layer parameters from in ':Service:' service.'
end
end else
Error_Services('Add', 'RDSNo not supplied in ':Service:' service.')
ErrMsg = 'RDSNo not supplied in ':Service:' service.'
end
EndTick = GetTickCount()
Mona_Services('QueueLatencyAndCountMetrics', MonaResource, MetricName, StartTick, EndTick)
If ErrMsg NE '' then Error_Services('Add', ErrMsg)
end service
@ -2446,21 +2449,3 @@ ClearCursors:
Next counter
return