added LSL2 stored procedures

LSL2/STPROC/INSTALL_WM_MFS.txt

@@ -0,0 +1,30 @@
+COMPILE ROUTINE Install_WM_MFS( DUMMY )
+ROWDEF( CHARSTR )
+
+DECLARE SUBROUTINE SEND_INFO, SEND_DYN, ErrMsg, Set_Status, Set_MFS
+DECLARE Function WhoseLock
+
+EQU CRLF TO \0D0A\
+DEBUG
+Set_Status(0)
+
+Set_MFS('WM_OUT','WM_MFS*LSL2',5)
+
+IF Get_Status(errCode) THEN
+	CONVERT @FM TO ' / ' IN errCode
+	Send_Dyn(errCode)
+END
+
+Set_Status(0)
+
+Set_MFS('WM_OUT','WM_MFS*LSL2',3)
+
+IF Get_Status(errCode) THEN
+	CONVERT @FM TO ' / ' IN errCode
+	Send_Dyn(errCode)
+END
+
+
+
+RETURN
+