added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_REACTOR_PM.txt

@@ -0,0 +1,30 @@
+COMPILE ROUTINE TEST_OBJ_Reactor_PM(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Notes, Set_Status, Send_Info, obj_Reactor_PM
+DECLARE FUNCTION Get_Status,obj_Reactor_PM
+
+
+DEBUG
+
+ReactNo	= 30
+ServID = ''
+
+Set_Status(0)
+
+ReactPMKeys = obj_Reactor_PM('ReactServHist',ReactNo:@RM:ServID:@RM)
+
+IF Get_Status(errCode) THEN
+	DEBUG
+END
+
+
+DEBUG
+
+GOTO Bail
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END