clear _all
set mem 200m
set matsize 800
set more off
capture log close
set logtype text
set trace on

*log using "E:\ui project\BN DATA\bn_master.log", replace

#delimit;

/*=======================================
 Program: bn_master.do
 Author:  Avi Ebenstein
 Created: May 2005
 Purpose: Create Stata files from
	  data provided by Andy Spizak.
========================================*/

****************;
* Bring in data ;
****************;

local years "83 86";
foreach z of local years{;

use ~/nta/scf/scfdata/scf19`z'b;
gen year=1900+`z';

if year==1983{;
rename v1 index;
            };
                         
************************;
* figure out weights    ;
************************;

if year==1983{;
rename b3001 sample;
rename b3005 wgt;
keep if sample==2;              
            };

                         
if year==1986{;
rename c1001 sample;              
rename c1012 wgt;
rename c1009 wgt83;
keep if sample==1;              
            };

                         
************************;
* Age of household head ;
************************;

if year==1983{;
rename b4503 age;
            };

if year==1986{;
rename c1113 age;
rename c1114 age83;              
            };
                         
******************************;
* Capital Gains -             ;
******************************;

if year==1983{;
rename b3462 stocks;              
rename b3210 kgtotal;              
            };

if year==1986{;
rename c1401 stocks;
rename c1402 stocks83;
gen kgtotal=stocks;              
            };
                         
******************************;
* Assets, Owner Occup Housing ;
******************************;

if year==1983{;
rename b3708 houses;              
            };

if year==1986{;
rename c1512 houses;
rename c1513 houses83;              
            };

****************************;
* Assets, Consumer Durables ;
****************************;

if year==1983{;
rename b3902 vehic;              
            };

if year==1986{;
rename c1421 vehic;
rename c1422 vehic83;              
            };

********************;
* Assets, Corporate ;
********************;

if year==1983{;
rename b3303 fin;              
            };
                         
* or is it 3321?;
                         
if year==1986{;
rename c1445 fin;
rename c1446 fin83;              
            };

************************;
* Assets, Not Corporate ;
************************;

if year==1983{;
rename b3502 bus;              
            };

if year==1986{;
rename c1419 bus;
rename c1420 bus83;              
            };

********************;
* Assets, Total     ;
********************;

if year==1983{;
rename b3305 asset;               
            };

if year==1986{;
rename c1449 asset;
rename c1450 asset83;              
            };

********************;
* Bonds             ;
********************;

if year==1983{;
rename b3457 savbnd;
rename b3458 bond;              
            };

*******************;
* This variable is ;
* total bonds!     ;
*******************;
                         
if year==1986{;
rename c1403 savbnd;
rename c1404 savbnd83;
gen bond=savbnd;
gen bond83=savbnd83;
            };
                         
keep age wgt* sample index fin* houses* vehic* asset* bus* savbnd* bond* stock* kgtotal;
save ~/nta/scf/scfdata/scf19`z', replace;
                         
*******;
                         
clear;
                         
};