How to keep only digits when data contents numeric and alphabets?

[rajeshalwayswel]

data have;
input a $;
cards;
acc>>>
qe
12.3hjj
78.0
88
run;

Required output;


12.3
78.0
88

I have written in this way:

data have;
input a$;
a1=compress(a,'1234567890.','k');
cards;
acc>>>
qe
12.3hjj
78.0
88
run;

Is there any other way?

[PeterClemmensen]

you can do this

a1=compress(a,'','kpd');

What do you want to do when a does not contain numbers?

[rajeshalwayswel]

Missing when it contains character, special characters.

[Rickyboy]

I would be fine with a missing observation