added LSL2 stored procedures

LSL2/STPROC/MONA_SERVICES.txt

@@ -0,0 +1,76 @@
+Compile subroutine MONA_SERVICES(@Service, @Params)
+/***************************************************************
+This subroutine is used to send messages to MonA directly from
+within OpenInsight. It utilizes a C# DotNet DLL MonAOIApi.dll
+which contains two classes, one for sending status updates, and
+one for sending metrics. Also requires the Infineon.Monitoring.Mona.dll which contains the needed dotnet libraries.
+
+Parameters:
+Instruction: Used to determine which subroutine to execute.
+Parm1:
+    -For Status updates represents the name of the monitor
+    -For Metrics updates represents the name of the monitor
+Parm2:
+    -For Status updates represents the name of the status
+    -For Metric updates represents the name of the metric
+Parm3:
+    -For status updates this represents the state of the object you are sending(Ok, Warning, Critical)
+    -For Metric updates this represents the numeric data that you wish to send.
+***************************************************************/
+
+Declare Subroutine Errmsg, Error_Services
+Declare function Get_Status
+#pragma precomp SRP_PreCompiler
+
+$Insert LOGICAL
+$Insert SERVICE_SETUP
+$Insert REVDOTNETEQUATES
+
+//Define the dotNet version
+DotNetHandle = StartDotNet("","4.0")
+
+//Specify the DLL
+rv = Set_Property.NET(DotNetHandle, "AssemblyName", "D:\apps\OICurrent\IFXAPI\MonA\monaapi.dll")
+
+//Define the classes
+MonAApi = Create_Class.NET(DotNetHandle, "monaapi.monacommands", 0)
+IF Get_Status(errCode) THEN
+                //ErrMsg(errCode)
+                
+END
+GoToService else
+	Error_Services('Add', Service : ' is not a valid service request within the ' : ServiceModule : ' services module.')
+end
+
+Free_Class.Net(MonAApi)
+
+return
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+// Service Parameter Options
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+Options MONITORS     = 'SQL_BACKLOG', 'SQL_BACKLOG_WO_MAT', 'SQL_BACKLOG_WO_LOG'
+Options STATES       = 'OK', 'WARNING', 'CRITICAL'
+
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+// Services
+////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
+
+Service SendStatus(MonitorName=MONITORS, StatusName, CurrentState=STATES)
+
+    MonInStatusUpdate = Send_Message.NET(MonAApi, "StatusUpdate", MonitorName:@FM:StatusName:@FM:CurrentState, "System.String":@FM:"System.String":@FM:"System.String")
+    
+    IF Get_Status(errCode) THEN
+        Return
+    END
+
+end service
+
+Service SendMetric(MonitorName=MONITORS, MetricName, Number)
+
+    MonInStatusUpdate = Send_Message.NET(MonAApi, "MetricUpdate", MonitorName:@FM:MetricName:@FM:Number, "System.String":@FM:"System.String":@FM:"System.Double")    
+        
+    IF Get_Status(errCode) THEN
+       Return
+    END
+end Service