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