while db-next-record