data c2;
set "d:\survey_setups\census2000_5percent";
keep serialno persons ;
run;

proc sort data = c2;
by serialno;
run;

data c22;
set c2;
by serialno;
if first.serialno;
run;

data c23;
set c22;
rdm = uniform(159);
run;

proc sort data = c23;
by rdm;
run;

data c24;
set c23;
n+1;
s = mod(n, 60) + 1;
run;

proc freq data = c24;
tables s;
run;

data big;
set "d:\survey_setups\census2000_5percent";
keep serialno pweight carpool;
run;

proc sort data = big;
by serialno;
run;

proc sort data = c24;
by serialno;
run;

data both;
merge big c24;
by serialno;
run;

proc contents data = both;
run;

data "d:\data\faqs\survey_setups\census2000_wv";
set both;
run;