COMPILE ROUTINE DEL_CLEAN_INSP(Dummy)
ROWDEF(CHARSTR)

DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, obj_Shipment
DECLARE FUNCTION Get_Status, Set_Printer




RETURN


DEBUG

OPEN 'CLEAN_INSP' TO FileIn ELSE
	GOTO Bail
END


FOR I = 937233 TO 937243
	*DELETE FileIn,I ELSE NULL
NEXT I

IF Get_Status(errCode) THEN DEBUG


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

RETURN