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;  ←一桁の場合(文字変数)の繰り返し処理  

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
Last-modified: 2007-01-22 (月) 06:56:18 (4655d)