Removing the last digit from a numerical variable if it has 4 digits

[CatherineLim]

Hi, in one of the numeric column of my dataset, I have 3 digits and 4 digits number.
I want to remove the last digit if the number have 4 digit, for example:

No Score

1 789

2 673

3 6470

4 783

5 7280 

6 785

I want the 6470 to become 647 and 7280 to become 728, how should I do that with SAS programming?

[Astounding]

This should do it:

if score >= 1000 then score = int(score/10);

[Kurt_Bremser]

Or take a quick detour to character:

data want;
set have;
score = input(substr(put(score,4.-l),1,3),3.);
run;