/* Demonstrate various weight variables in Mare Winship file, 
including showing off obvious problems. */
options nocenter;
filename raw pipe 'zcat /home/data/mare_winship/cpsmw[6-9]*.Z';
libname save '.';

data save.mwtax0;
length default=4;
infile raw lrecl=386;
input year 13 - 14 @; if year ne 82;
input         
   fama 238 - 242 4
   famp 243-247 4
   fambas 248-259
   hh 260-270 2
   pera 271-275 2
   perp 276-280 2
   persup 281-292 2
   basic 293 - 303 2
;
if fama eq 0 then fama = .; 
if famp eq 0 then famp = .; 
if fambas eq 0 then fambas = .; 
if hh  eq 0 then hh = .;
if pera eq 0 then pera = .;
if perp eq 0 then perp = .;
if persup  eq 0 then persup = .;
if basic eq 0 then basic = .;
run;
             
proc tabulate;
variables fama famp fambas hh pera perp persup basic;
class year;
table year,(fama famp fambas hh pera perp persup basic)*N
     /rts=19;
table year,(fama famp fambas hh pera perp persup basic)*sum
     /rts=19;
run;

endsas;