COMPILE ROUTINE FIX_WO_MAT_LOG(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, obj_WO_Log, Set_Status, obj_WO_Step
DECLARE FUNCTION Get_Status, Set_Printer, obj_WO_Step

$INSERT WO_MAT_EQUATES
$INSERT WO_LOG_EQU


OPEN 'WO_MAT_LOG' TO FileIn ELSE
	DEBUG 
	GOTO Bail
END

SELECT FileIn

Done = 0
DEBUG

LOOP
	READNEXT Key  ELSE Done = 1
UNTIL Done
	READ Rec FROM FileIn,Key  THEN
		IF LEN(Rec) > 1000 THEN 
			DEBUG
			Send_Dyn(Key)
			*DELETE FileIn,Key ELSE Null
		END
	END
REPEAT





GOTO Bail





/*
Equ WO_MAT_HOLD$                     To  34
Equ WO_MAT_HOT_LOT$                  To  35

Equ WO_MAT_REL_DTM$                  To  38
Equ WO_MAT_REL_BY$                   To  39

Equ WO_MAT_PROMISE_SHIP_DT$          To  61
Equ WO_MAT_NCR_KEYS$                 To  62
Equ WO_MAT_RX_DTM$                   To  63
Equ WO_MAT_RX_BY$                    To  64
*/



		

GOTO Bail




IF Get_Status(errCode) THEN DEBUG


* * * * * * *
Bail:
* * * * * * *

END