sas 数値型変数の桁数把握

数値型変数の桁数をキャッチするコードを掲載してみます。

あまりにも冗長なコードで自分のSASができないっぷりをさらすようですが。
そもそも私以外のsasができる人は、ググる必要がないから、Webにもないのかもしれませんが。。
いろんなレベルのSAS プログラマが業界にはいます!!

数値型変数をvar_num、結果の桁数が入る変数はketa。
0の場合は桁数をゼロと、手打ち!!してます。ここはなんとかしたいですが。
欠損の場合は keta =も欠損。

サンプルデータとしてvar_numに”1.12345”を与えています。

data test;

var_num=1.12345;

if var_num=0 then keta=0;
else if var_num = . then do;end;
else do;
var_num_char =put(var_num ,best.);put var_num_char;
syousuu_char=scan(var_num_char ,2,”.”);
keta=length(syousuu_char);
end;

output;

run;
result_in_sas_on_demand