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

added PROC_QUEUE metric to MONA_MONITORS

Browse Source
This commit is contained in:
Infineon\StieberD
2025-06-17 11:20:38 -07:00
parent 60493b3413
commit 357b7ede64
1 changed files with 14 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
LSL2/STPROC/MONA_MONITORS.txt
View File

@ -1,7 +1,5 @@
Compile subroutine MONA_MONITORS(@Service, @Params) Compile subroutine MONA_MONITORS(@Service, @Params)
#pragma precomp SRP_PreCompiler #pragma precomp SRP_PreCompiler
/*****************************************************************************\ /*****************************************************************************\
This is a utility function. It is a container for auditing general OI metrics This is a utility function. It is a container for auditing general OI metrics
and then reporting them into MonA directly. and then reporting them into MonA directly.
@ -37,17 +35,23 @@ Service RunMonitors()
Lock hSysLists, ServiceKeyID then Lock hSysLists, ServiceKeyID then
Query = 'SELECT SQL_BACKLOG' Query = 'SELECT SQL_BACKLOG'
Rlist(Query, Target_ActiveList$, '', '', '') RList(Query, TARGET_ACTIVELIST$, '', '', '')
QueueCount = @RecCount QueueCount = @RecCount
GoSub ClearCursors GoSub ClearCursors
Mona_Services('SendMetric', 'SQL_BACKLOG', 'SQL_BACKLOG', QueueCount) Mona_Services('SendMetric', 'SQL_BACKLOG', 'SQL_BACKLOG', QueueCount)
Query = 'SELECT SQL_PENDING' Query = 'SELECT SQL_PENDING'
Rlist(Query, Target_ActiveList$, '', '', '') RList(Query, TARGET_ACTIVELIST$, '', '', '')
QueueCount = @RecCount QueueCount = @RecCount
GoSub ClearCursors GoSub ClearCursors
Mona_Services('SendMetric', 'SQL_PENDING', 'SQL_PENDING', QueueCount) Mona_Services('SendMetric', 'SQL_PENDING', 'SQL_PENDING', QueueCount)
Query = 'SELECT PROC_QUEUE'
RList(Query, TARGET_ACTIVELIST$, '', '', '')
QueueCount = @RecCount
GoSub ClearCursors
Mona_Services('SendMetric', 'GRP_OPENINSIGHT_MES_OP_FE_SERVICE_MANANGER', 'PROC_QUEUE', QueueCount)
GoSub SAPHeartbeat GoSub SAPHeartbeat
GoSub MonitorMetrologyDirs GoSub MonitorMetrologyDirs
@ -61,6 +65,7 @@ end service
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
SAPHeartbeat: SAPHeartbeat:
SAPHeartbeatDTM = Database_Services('ReadDataRow', 'APP_INFO', 'SAP_HEARTBEAT_DTM') SAPHeartbeatDTM = Database_Services('ReadDataRow', 'APP_INFO', 'SAP_HEARTBEAT_DTM')
CurrDTM = SRP_Datetime('Now') CurrDTM = SRP_Datetime('Now')
If SAPHeartbeatDTM NE '' then If SAPHeartbeatDTM NE '' then
@ -75,7 +80,9 @@ SAPHeartbeat:
return return
MonitorMetrologyDirs: MonitorMetrologyDirs:
CurrDTM = SRP_Datetime('Now') CurrDTM = SRP_Datetime('Now')
//Tencor //Tencor
TencorInstanceName = 'MET08DDUPSFS6420' TencorInstanceName = 'MET08DDUPSFS6420'
@ -183,12 +190,12 @@ MonitorMetrologyDirs:
return return
ClearCursors: ClearCursors:
For counter = 0 to 8 For counter = 0 to 8
ClearSelect counter ClearSelect counter
Next counter Next counter
return return