人真似をして結局失敗。飛び値がある場合の、数字→文字変換

リンクサイト「SAS忘備録」の記事「1行プログラムその3：数値を任意の文字に置き換える。」
http://sas-boubi.blogspot.jp/2014/03/13.html

を読んで、やっぱ凄いなぁと思いました。

で、記事の最後の方で、飛び番の場合は注意とありました。

実際、1='あり'　2='なし'　100='不明'というような変換が必要な場合ってよくあります。

if文とかselect文、或いはフォーマット作ってからそれを当てる以外に書き方ないかなぁと考えました。

data DT1;
 input V1;
 cards;
 1
 100
 2
 999
 ;
 run;

data DT2;
 array A{999} $10.;
  A{1}='なし';
  A{2}='あり';
  A{100}='不明';
  A{999}='もっと不明';
 set DT1;
  if V1^=. then V2=choosec(V1,of A{*});
 keep V1 V2;
run;

おっ、これならchoosec使えんじゃない？と思ったけども

それなら


data DT3;
 array A{999} $10.;
  A{1}='なし';
  A{2}='あり';
  A{100}='不明';
  A{999}='もっと不明';
 set DT1;
  if V1^=. then V2=A(V1);
 keep V1 V2;
run;

これでいいし、そもそもこんなにだらだらコードがかさむなら、if文と変わらないし、

全然1行コードから離れるし、駄目でした。