Alarm trigger with NICA_ORDERS table
solution tested and ready for deployment updated SRP_Git_Services to handle creating local copies of inherited entities updated HgCV OCAP order trigger to also look for active prove-in orders moved error services common into sysprog to avoid compilation issues
This commit is contained in:
55
LSL2/STPROC/DEBUGGER_LOGGER.txt
Normal file
55
LSL2/STPROC/DEBUGGER_LOGGER.txt
Normal file
@ -0,0 +1,55 @@
|
||||
Subroutine Debugger_Logger(Void)
|
||||
/***********************************************************************************************************************
|
||||
|
||||
This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written
|
||||
permission from Infineon Technologies.
|
||||
|
||||
Name : Debugger_Logger
|
||||
|
||||
Description : Handler program for the logging debug data.
|
||||
|
||||
Notes : This is intended to be invoked by Error_Services("LogStack") (LSL2) so the current program,
|
||||
Error_Services, is removed from the stack log.
|
||||
|
||||
History : (Date, Initials, Notes)
|
||||
01/09/25 djs Original programmer.
|
||||
|
||||
***********************************************************************************************************************/
|
||||
|
||||
#pragma precomp SRP_PreCompiler
|
||||
|
||||
$insert LOGICAL
|
||||
$insert RTI_DEBUG_COMMON
|
||||
$insert ENVIRON_CONSTANTS
|
||||
$insert ERROR_SERVICES_COMMON
|
||||
|
||||
Equ CRLF$ to \0D0A\
|
||||
|
||||
Declare function Environment_Services, Logging_Services, GetSessionCallStack, Error_Services, RetStack
|
||||
Declare subroutine Logging_Services, Get_Status, Set_Env
|
||||
|
||||
Main:
|
||||
|
||||
ErrorMessages = Error_Services('GetMessages')
|
||||
LogPath = Environment_Services('GetApplicationRootPath') : '\LogFiles\StackTrace'
|
||||
LogDate = Oconv(Date(), 'D4/')
|
||||
LogTime = Oconv(Time(), 'MTS')
|
||||
LogFileName = LogDate[7, 4] : '-' : LogDate[1, 2] : '-' : LogDate[4, 2] : ' Error Log.csv'
|
||||
objLog = Logging_Services('NewLog', LogPath, LogFileName, CRLF$, ',', '', '', False$, False$)
|
||||
LogData = ''
|
||||
LogData<1> = CRLF$:'Timestamp: ':LogDate:' ':LogTime
|
||||
LogData<2> = 'Machine: ':Environment_Services('GetServer')
|
||||
LogData<3> = 'Set_Status Code:':EsSpStatCode@
|
||||
LogData<4> = 'Set_Status Message:':EsSpStatMessage@
|
||||
Swap @FM with @VM in ErrorMessages
|
||||
LogData<5> = 'Error_Services Messages:':ErrorMessages
|
||||
LogData<6> = 'Call Depth: ':CallDepth@
|
||||
LogData<7> = 'Curr Program and line no: ':CallStack@<2,1>:@VM:CallStack@<2,2>
|
||||
LogData<8> = 'Call Stack / Line Nos: '
|
||||
Stack = CallStack@
|
||||
Stack = Delete(Stack, 1, 0, 0)
|
||||
LogData<9> = Stack:CRLF$
|
||||
Logging_Services('AppendLog', objLog, LogData, @FM, @VM, '', '', '')
|
||||
|
||||
Return
|
||||
|
Reference in New Issue
Block a user