added LSL2 stored procedures

LSL2/STPROC/FIX_WM_IN.txt

@@ -0,0 +1,58 @@
+COMPILE ROUTINE FIX_WM_IN(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Infom, obj_Order, obj_WO_Log, RList, RList, ErrMsg
+DECLARE SUBROUTIne obj_WO_Step, Set_Status, Send_Info, obj_WM_In, obj_WO_Mat, obj_WM_Out
+DECLARE FUNCTION Get_Status, Set_Printer, Get_Status, obj_WM_IN
+
+$INSERT WM_IN_EQUATES
+$INSERT WO_MAT_EQUATES
+
+OPEN 'WO_MAT' TO WOMatTable ELSE
+	DEBUG
+	GOTO Bail
+END
+
+OPEN 'WM_IN' TO WMITable  ELSE
+	DEBUG
+	GOTO Bail
+END
+
+
+
+SELECT WMITable
+debug
+
+RecCnt = 0
+FixCnt = 0
+Done = 0
+LOOP
+	READNEXT WMIKey ELSE Done = 1
+UNTIL DONE
+	READ WMIRec FROM WMITable,WMIKey THEN
+		RecCnt += 1
+		WriteFlag = 0
+		
+		CurrStatus = obj_WM_In('CurrStatus',WMIKey:@RM:WMIRec)
+	
+		IF CurrStatus = 'RFW' THEN
+		
+			WRITE WMIRec ON WMITable,WMIKey THEN
+				Send_Dyn(WMIKey:' ':CurrStatus)
+				FixCnt += 1
+			END
+		END
+		Send_Info(RecCnt:' ':FixCnt)
+		
+	END
+REPEAT
+
+
+
+* * * * * *
+Bail:
+* * * * * *
+
+END
+
+