#setlinebreak(on)
 
 
 options ls=80;
 data sh ;
 infile 'a:\work\sh.csv' dlm=',"';
 input no q1a $ q1b $
 q1c01 $ q1c02 $ q1c03 $q1c04 $q1c05 $q1c06 $q1c07 $q1c08 $q1c09 $ q1c10 $
 q2 $ q2a $ q2b $ q2b1 $ q2c $ q2d $ q2e $ q2g $
 q2i
 q3a $ q3b $ q4a $ q4b $ q4c $;
 
  *** 非該当の処理 ***; 
 array kes9 q1b q1c01-q1c10 q2b q2b1 q2c q2d q2e q2g;  ←配列変数(kes9)の定義
 do over kes9; if kes9='9' then kes9=''; end;  ←一桁の場合(文字変数)の繰り返しの処理  
 do over kes9; if kes9='9' then kes9=''; end;  ←一桁の場合(文字変数)の繰り返し処理  
 
 array kes99 q2a;
 do over kes99; if kes99='99' then kes99=''; end;  ←二桁の場合(文字変数)
 
 if q2i=99 then q2i=.;     ←数値変数の場合
 
  *** 無回答の処理 ***; 
 array kes0 q1a q1b q2 q2a q2b q2b1 q2c q2d q2e q2g q3a q3b q4a q4b q4c;
 do over kes0; if kes0='0' then kes0=''; end;
 
 if q2i=0 then q2i=.;

トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS