function setdateformat returns log (input hframe as handle):

	def var hfield as handle no-undo.

	assign hfield = hframe:first-child.

	repeat:
		if hfield:format = "99/99/9999" and
                   session:date-format = "ymd"  then
			assign hfield:format = "9999/99/99".

		assign hfield = hfield:next-sibling.

		if hfield = ? then leave.
	end.

	return yes.
end function.