The 1995/1996 Household Income, Expenditure - (PDF, 101 mb ...

REFRMT.SAS 1
options pagesize=60;
libname in 'c:\process\';
filename a1 'c:\process\cov.out';
/*******last three digits of quantities are grams***********/;
/*******last two digits of values are piastres**************/;
/*******for expenditures, only rectype 15 has no decimals***/;
/*******for all income records, there are no decimals*******/;
/*******dichotomous variables coded 2 were recoded 0********/;
data in.cov;
infile a1 missover;
input rectype 1-2 numgov 3-6 numsv 7-10 numfr 11-12 round 13 month 14-15
gov 16-17 urbrur 18 km 19-20 sv 21-23 psu 24-26
fill 27 typer 28 reasonnr 29 males 30-31 females 32-33 total 34-35;
if fill=2 then fill=O;
if typer=2 then typer=O;
if urbrur=2 then urbrur=O;
title 'SUMMARY STATS FROM THE COVER RECORD';
proc means; run;
,
filename a2 'c:\process\dem.out';
data in.dem;
infile a2 missover;
input rectype 1-2 numgov 3-6 numsv 7-10 numfr 11-12 round 13 month 14-15
gov 16-17 urbrur 18 km 19-20 sv 21-23 psu 24-26 resp 27
indno 28-29 rei 30 sex 31 age 32-33 educ 34 lastyr 35 eductype 36
stage 37 yrs 38 marstat 39 workstat 40 untype 41 look 42
reason 43 empstat 44 days 45 occu $ 46-51 econact $ 52-55 sector 56
earner 57 source1 58 source2 59 source3 60 source4 61 sourceS 62
source6 63;
if urbrur=2 then urbrur=O;
/* DEMOGRAPHICS */;
if rel=l then head=1; else head=O;
if rel=2 then spouse=1; else spouse=O;
if rel=3 then kid=1; else kid=Oi
if rel=4 then kidinlaw=l; else kidinlaw=Oi
if rel=5 then parent=l; else parent=O;
if rel=6 then grandkid=1i else grandkid=O;
if rel=7 then sibling=1; else sibling=Oi
if rel=8 then othrel=1i else othrel=Oi
if rel=9 then norel=1i else norel=Oi
if sex=2 then sex=Oi
if age < 20 then lt20=1; else lt20=0;
if 20 < age le 30 then gt20le30=li else gt20le30=0;
if age> 50 then gt50=1; else gt50=O;
if educ=l then underage=l; else underage=O;
if educ=2 then i11it=1; else i1lit=O;
if educ=3 then readrite=l; else readrite=o;
if educ=4 then prim=l; else prim=o;
if educ=5 then sec=l; else sec=O;
if educ=6 then secplus=l; else secp1us=O;
if educ=7 then univ=l; else univ=o;
if educ=8 then univplus=1; else univplus=O;
if eductype=1 then govnorm=l; else govnorm=Oi
if eductype=2 then govlang=l; else govlang=O;
if eductype=3 then privnorm=l; else privnorm=O;
if eductype=4 then privlang=1i else privlang=O;
if stage=1 then primlev=l; else primlev=O;
if stage=2 then preplev=1; else preplev=O;