COMPILE ROUTINE Fix_SAP_Comm_LOG(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE Send_Dyn,Send_Info
DECLARE FUNCTION Get_Status, Set_Printer


$INSERT WO_MAT_EQUATES

OPEN 'SAP_COMM_LOG' TO FileIn ELSE
	DEBUG
	GOTO Bail
END

SELECT FileIn

DEBUG

Done = 0
LOOP
	READNEXT Seq ELSE Done = 1
UNTIL Done
	READ SapRec FROM FileIn,Seq THEN
		Send_Info(Seq)
	END ELSE
		debug
	END
REPEAT



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

END
