数値の前にゼロをつけて桁をそろえて出力する

[質問]

桁数がそろっていない数値変数の値を、下記のように前にゼロを埋め込んで5バイトの文字変数に変換するには、どのようにすればよいでしょうか。

変換前	変換後
1	00001
12	00012
123	00123
1234	01234
12345	12345

[回答]

PUT関数とZw.dフォーマットを使用して変換できます。

例

  /* サンプルデータ */
  DATA sample; 
    INPUT num1 @@;
  CARDS;
  1 12 123 1234 12345
  ;
  RUN; 

  DATA sample;
    SET sample; 
    char1 = PUT(num1,Z5.);  /* PUT関数 + Zw.dフォーマット */  
  RUN;

なお、数値変数を文字変数に変換せずに、前にゼロを埋めこんで表示するには、数値変数にZw.dフォーマットを設定します。

  DATA sample; 
    SET sample;       
    FORMAT num1 Z5.;        /* FORMATステートメント */ 
    PUT num1=; 
  RUN;