SAS: how to remove suffixes from a set of addresses using a do loop

Question

I have a data set containing a list of street addresses. Some of these addresses end in a suffix like "AVE" or "ROAD". I want to remove any of these suff