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
