Updated service manager debugger intercept to also send notes (emails). Refactored Service_Manager_Events so that the call stack is not hidden behind MCP.

updated debugger intercept distribution group
This commit is contained in:
Infineon\StieberD
2025-06-04 11:05:09 -07:00
parent 614da8ad3b
commit 38fc89dac6
2 changed files with 54 additions and 20 deletions

View File

@ -108,8 +108,7 @@ Event WINDOW.TIMER()
Procedures = ServiceDetail<SERVICES.PROCEDURES$>
Arguments = ServiceDetail<SERVICES.ARGUMENTS$>
For Each Procedure in Procedures using @VM setting procPos
If Procedure[-9, 9] _EQC '_SERVICES' then Procedure[-9, 9] = ''
Command = 'RUN MCP ' : Quote(Procedure)
Command = 'RUN ' : Procedure
Arguments = Arguments<0, procPos>
If Arguments NE '' then
For Each Argument in Arguments using ','
@ -130,7 +129,7 @@ Event WINDOW.TIMER()
If Not(Num(Modifier)) then Modifier = ''
Argument = Date() + Modifier
end
Command := ', ' : Quote(Argument)
Command := ' ' : Quote(Argument)
Next Argument
end
Next Procedure