Couting no of character and Numerics in a Observation

[R_Win]

Data x;
input name $;
cards;
company127there
34look67init
name3456745
run;

I want the count of character and numerics in the name variable.

[data_null__]

[pre]
Data x;
input name :$20.;
cCount=lengthN(compress(name,,'KA'));
nCount=lengthN(compress(name,,'KD'));
cards;
company127there
34look67init
name3456745
JustALpha
22
;;;;
run;
proc print;
run;
[/pre]