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