hreadfirstnolock("LOGBUF","PERS_TIJD")
while not h.out
	if not datevalid(left(LOGBUF.R_TD,8)) or not timevalid(middle(LOGBUF.R_TD,9,6)) or left(LOGBUF.R_TD,8) > datesys() or logbuf.r_segment = 99 then
		hreadlock("LOGBUF",h.numrec)
		if not h.out
			hdelete("LOGBUF")
		end
	END
	hreadnextnolock("LOGBUF","PERS_TIJD")
END

info("Controle logbuf Gedaan")