特定のformatに対して処理をしたい - SAS

-

特定のformatの項目にだけ処理を行う方法。 SASさんは、日付型がなくて、日付は数値項目(_numeric_)として格納している。 日付に対して、一律処理を行いたかったのだけど、_date_みたいなのはないです。 日付が入っている項目のformatが全て同じ場合しか使えないけど、vformat関数を使えばできそうです。

array ○○ _numeric_ で数値項目を取得して、do over を使って、一項目ずつ処理を実施する。 文字項目の場合は、array 〇〇 _character_ で取得する。

vformat関数で、引数のformatを取り出す。 vformatは、英数字の「大文字」で返すぽい。

コード

/* テストデータ */
data test ;
  format a yymmddn8. ;
  a = "16jan86"d ;
  b = "aaaaa" ;
  c = 1234 ;
run ;

data test ;
  set test ;
  array TMP_NUM _numeric_ ; /* 数値項目を配列に格納 */
  do over TMP_NUM ;
    _format = vformat(TMP_NUM) ; /* 変数のformatを格納(英数字大文字) */
    _name   = vname(TMP_NUM) ;   /* 変数名を格納                     */
    putlog _name _format ;

    /* 特定のformatだけ処理する */
    if (_format = "YYMMDDN8.") then putlog "correct!" ;
                               else putlog "false" ;
  end ;
run ;

ログ

a YYMMDDN8.
correct!
c BEST12.
false

2015/05/15追記: テストデータが、0オブザベーションのとき実行されないじゃないか、ということで改善版の記事を書きました。「0 オブザベーションのデータセットに対して、data ステップを実行したい！」

コメント

  1. SASYAMA2014年11月16日日曜日 21:24:00 JST

    初めまして、データステップ100万回ブログをやっておりますSASYAMAと申します。
    趣味のSASブログ探しをしていて御ブログにたどり着き、全エントリ読まさせていただきました。改行コードやBOMの話など、初めて知ることが多く、大変勉強になりました。また、小数点のところで、記事を参照いただいており、有難うございます。
    もし、可能でしたら、こちらからリンクを貼らせていただいてもよろしいでしょうか？

    返信削除
  2. nyoshinon2015年1月1日木曜日 21:30:00 JST

    返信が大変遅れて申し訳ありません。
    データステップ100万回ブログは、よく拝見させていただいております。

    >もし、可能でしたら、こちらからリンクを貼らせていただいてもよろしいでしょうか？
    はい。あまり記事を書かないブログで恐縮ですが、よろしくお願いいたします。

    返信削除
  3. SASYAMA2015年1月2日金曜日 0:40:00 JST

    ご返信いただきまして有難うございます！
    フライングでリンクさせていただいておりました。すみません。
    ブログ見ていただいて有難うございます！
    これからも記事楽しみにしております。
    今年もよろしくお願いいたします。

    返信削除

コメントを投稿

このブログの人気の投稿

マクロの引数にカンマ、クォートなどを渡す : %bquote, %str, %superq - SAS

-
%bquote , %str などを用いて、マクロの引数に、カンマ、クォートといった記号を渡す方法です。何度か質問されたので、まとめてみます。 まずはサンプル用のマクロとして、マクロの引数に渡った値をログに出力するだけの単純なマクロを作ります。 %macro TEST(ARGS) ; %put &=ARGS. ; %mend TEST ; まずは失敗例。下記のように、カンマやダブルクォーテーションを引数として渡そうとしてみます。しかし、カンマを付けてしまうと、"1"が 1つ目の引数の値、"2"が 2つ目の引数の値としてみなされてしまいます。マクロ定義の引数より多く引数を渡したと言われ、ERROR になってしまいます。 実行ログ 67 %TEST("1", "2") ; ERROR: マクロに定義された数よりも多い定位置パラメータが与えられています。 68 カンマやダブルクォーテーションを渡すためには、%bquote あるいは %str を使うことで、渡すことができます。 %str は、ダブルクォーテーションの前に % を書かないといけないので、少々面倒ですね。 実行ログ 69 %TEST(%bquote("1", "2")) ; ARGS="1", "2" 70 71 %TEST(%str(%"1%", %"2%")) ; ARGS="1", "2" また、引数をマクロ変数にて、渡したい場合は %bquote を使うことでできます。%str だと渡すことができません。 実行ログ 61 %let ARGS = "1", "2" ; 62 %TEST(%bquote(&ARGS.)) ; ARGS="1", "2" 63 ...
続きを読む

Linuxコマンド: date で◯か月前 / ◯か月後を取得するときの注意

-
date コマンドは、日付を取得したり、整形して表示したり、◯日後や◯か月後、◯年前の日付を表示したりすることができます。 ◯か月前や◯か月後を使用する時が曲者で、月末に近い日に実行すると、思っていた動作をしてくれないことがあります。 $ date 2015年 9月 6日 日曜日 16:05:22 JST $ date -d "2015-08-31" 2015年 8月 31日 月曜日 00:00:00 JST $ date -d "2015-08-31 1 month" 2015年 10月 1日 木曜日 00:00:00 JST $ date -d "2015-01-31 1 month" 2015年 3月 3日 火曜日 00:00:00 JST 8月31日の1か月後が10月1日になったり、1月31日の1か月後が3月3日になったりします。月によって◯か月後の計算をきちんとしてくれるわけではないようです。 実施日の翌月末を取得するには、実施月の 1日に変換してから、2ヶ月後の1日前を指定することで取得できます。 $ date -d "`date '+%Y/%m/01' -d "\`date '+%Y/%m/01' \` 2 month"` 1 day ago" 2015年 10月 31日 土曜日 00:00:00 JST 指定した日付の翌月の月末を取得する場合は、以下のように書きます。 $ date -d "`date '+%Y/%m/01' -d "\`date '+%Y/%m/01' -d 2015/08/31\` 2 month"` 1 day ago" 2015年 8月 31日 月曜日 00:00:00 JST $ date -d "`date '+%Y/%m/01' -d "\`date '+%Y/%m/01' -d 2015/01/31\` 2 month"` 1 day ago" 2015年 2月 28日 土曜日 00:00:...
続きを読む

missingオプション - 数値欠損値の出力結果を . ドットから変更する - SAS

-
イメージ
数値の欠損値は、デフォルトで、. で出力されますが、別の文字にしたいときは、missingオプションを使うと、別の文字に変更することができます。値は、１文字だけ設定することができます。 options missing="M" ; data TEST ; length B $10. C $10. ; A = 1 ; B = "ABCDEFG" ; C = "123456" ; output ; A = 2 ; B = "09"x || "BBB" ; C = "1,2,3" ; output ; A = 3 ; B = "B," || "09"x || ",B" ; C = "" ; output ; A = . ; B = "" ; C = "" ; output ; run ; filename OUT "/folders/myfolders/test.txt" ; data _NULL_ ; set TEST ; file OUT dlm="09"x dsd ; put A ~ B ~ C ~ ; run ; これで、数値の欠損値の出力を変更することができました。しかし、特殊欠損値の場合は、変更されませんのでご注意ください。 options missing=" " ; data TEST1 ; A = . ; B = "" ; C = .M ; D = .A ; run ; filename OUT "/folders/myfolders/test1.txt" ; data _NULL_ ; set TEST1 ; file OUT dlm="09"x dsd ; put A ~ B ~ C ~ D ~ ; run ; 参考サイト...
続きを読む