added LSL2 stored procedures

LSL2/STPROC/MONA_MONITORS.txt

@@ -0,0 +1,79 @@
+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.
+	
+	History
+	-------
+	04/07/2021    JRO    Original Programmer
+\*****************************************************************************/
+
+Declare subroutine RList, Mona_Services, Error_Services
+Declare function Database_Services
+
+$Insert SERVICE_SETUP
+$Insert REVDOTNETEQUATES
+$Insert LOGICAL
+$Insert RLIST_EQUATES
+
+GoToService else
+	Error_Services('Add', Service : ' is not a valid service request within the ' : ServiceModule : ' services module.')
+end
+
+Return Response else ''
+
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+// Services
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+
+
+Service RunMonitors()
+    
+    hSysLists   = Database_Services('GetTableHandle', 'SYSLISTS')
+    Lock hSysLists, ServiceKeyID then
+        
+        Query      = 'SELECT SQL_BACKLOG'
+        Rlist(Query, Target_ActiveList$, '', '', '')
+        QueueCount = @RecCount
+        GoSub ClearCursors
+        Mona_Services('SendMetric', 'SQL_BACKLOG', 'SQL_BACKLOG', QueueCount)
+        
+        Query      = 'SELECT SQL_PENDING'
+        Rlist(Query, Target_ActiveList$, '', '', '')
+        QueueCount = @RecCount
+        GoSub ClearCursors
+        Mona_Services('SendMetric', 'SQL_PENDING', 'SQL_PENDING', QueueCount)
+        
+*        Query      = 'SELECT SQL_BACKLOG_WO_LOG'
+*        Rlist(Query, Target_ActiveList$, '', '', '')
+*        QueueCount = @RecCount
+*        GoSub ClearCursors
+*        Mona_Services('SendMetric', 'SQL_BACKLOG', 'SQL_BACKLOG_WO_LOG', QueueCount)
+*        
+*        Query      = 'SELECT SQL_BACKLOG_WO_MAT'
+*        Rlist(Query, Target_ActiveList$, '', '', '')
+*        QueueCount = @RecCount
+*        GoSub ClearCursors
+*        Mona_Services('SendMetric', 'SQL_BACKLOG', 'SQL_BACKLOG_WO_MAT', QueueCount)
+        
+        Unlock hSysLists, ServiceKeyID else Null
+    end
+	    
+end service
+
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+// Internal GoSubs
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+
+ClearCursors:
+	For counter = 0 to 8
+		ClearSelect counter
+	Next counter
+return
+
+