added LSL2 stored procedures

LSL2/STPROC/FIX_WMI_WFRS.txt

@@ -0,0 +1,43 @@
+COMPILE ROUTINE FIX_WMI_WFRS(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_WM_Out
+DECLARE FUNCTION Get_Status, Set_Printer
+
+$INSERT ORDER_DET_EQU
+$INSERT ORDER_EQU
+$INSERT QUOTE_EQU
+$INSERT COMPANY_EQU
+$INSERT WM_OUT_EQUATES
+$INSERT WM_IN_EQUATES
+$INSERT RDS_EQU
+
+debug
+
+OPEN 'WMI_WFRS' TO LockFile ELSE
+	DEBUG
+	GOTO Bail
+END
+
+SELECT LockFile
+
+Done = 0
+
+LOOP
+	READNEXT LockKey ELSE Done = 1
+UNTIL Done
+	IF LockKey[1,'*'] = '141335' THEN
+		*DELETE LockFile,LockKey THEN
+			Send_Dyn(LockKey)
+		*END
+	END
+
+REPEAT
+
+
+* * * * * *
+Bail:
+* * * * * *
+
+END