SUB CLOSE. (C%)
	{FCSCOM.B4S}
	CALL C. (C%)
	CALL FCSCLS BY REF (FDBADR%(C%-.ZERO.CNL%))
	SUBEND