// Creates w_tenure_dv - Housing tenure information 
// INPUT FILES - w_hhsamp.dta , w_hhresp.dta
// OUTPUT FILE - w_tenure_dv.dta


// WRITE FILEPATH WHERE YOU HAVE DOWNLOADED THE DATA
global in ""
// WRITE FILEPATH WHERE YOU WOULD LIKE TO SAVE THE OUTPUT FILE
global outpath ""

// 1 is for BHPS, 2 is for UKHLS
global cohort "2" 

foreach w in a b c d e f g h i j { // INCLUDE WAVE LETTERS FOR THE WAVES NEEDED
global wave "`w'_"
global num=strpos("abcdefghijklmnopqrstuvwxyz","`w'")
global dta ""
global waveno=$num
global inpath "${in}/bhps_w${num}"
if $cohort==2 {
	global waveno=$num+18	
	global inpath "${in}/ukhls_w${num}"
}


use "${inpath}/${wave}hhresp${dta}", clear
if ${cohort}==2 {
    cap drop ${wave}tenure_dv
}

/*----------------ORIGINAL CODE--------------*/
if ${cohort}==1 {
 cap rename ${wave}tenure_dv ${wave}tenure
 lab copy ${wave}tenure_dv ${wave}tenure
 lab val ${wave}tenure ${wave}tenure
}

gen ${wave}tenure_dv=-9

if ${waveno}<=19 {
replace ${wave}tenure_dv=1 if ${wave}hsownd==1
replace ${wave}tenure_dv=2 if ${wave}hsownd==2
replace ${wave}tenure_dv=2 if ${wave}hsownd==3
replace ${wave}tenure_dv=5 if ${wave}hsjb==1
replace ${wave}tenure_dv=3 if ${wave}rentll==1
replace ${wave}tenure_dv=3 if ${wave}rentll==2
replace ${wave}tenure_dv=4 if ${wave}rentll==4
replace ${wave}tenure_dv=4 if ${wave}rentll==5
replace ${wave}tenure_dv=5 if ${wave}rentll==6
replace ${wave}tenure_dv=6 if ${wave}rentll==3
replace ${wave}tenure_dv=6 if ${wave}rentll > 6 & ${wave}rentll<.
replace ${wave}tenure_dv=3 if ${wave}rentll==2
replace ${wave}tenure_dv=5 if ${wave}hsjb==1
replace ${wave}tenure_dv=7 if ${wave}tenure_dv==6 & ${wave}rentf==1
replace ${wave}tenure_dv=7 if ${wave}tenure_dv==6 & ${wave}rentf==2
replace ${wave}tenure_dv=8 if ${wave}hsownd==97
}

if ${waveno}>19 {
cap gen ${wave}ff_hsownd=.    // needed for w6. gk 20160707
cap gen ${wave}hsowndchk=.    // needed for w6. gk 20160707
gen ${wave}hsownd_c=${wave}ff_hsownd if  ${wave}hsowndchk==1
replace ${wave}hsownd_c=${wave}hsownd if  ${wave}hsownd_c==.
replace ${wave}tenure_dv=1 if ${wave}hsownd_c==1
replace ${wave}tenure_dv=2 if ${wave}hsownd_c==2
replace ${wave}tenure_dv=2 if ${wave}hsownd_c==3
replace ${wave}tenure_dv=5 if ${wave}hsjb==1
replace ${wave}tenure_dv=3 if ${wave}rentll==1
replace ${wave}tenure_dv=3 if ${wave}rentll==2
replace ${wave}tenure_dv=4 if ${wave}rentll==4
replace ${wave}tenure_dv=4 if ${wave}rentll==5
replace ${wave}tenure_dv=5 if ${wave}rentll==6
replace ${wave}tenure_dv=6 if ${wave}rentll==3
replace ${wave}tenure_dv=6 if ${wave}rentll > 6  & ${wave}rentll<.
replace ${wave}tenure_dv=3 if ${wave}rentll==2
replace ${wave}tenure_dv=5 if ${wave}hsjb==1
replace ${wave}tenure_dv=7 if ${wave}tenure_dv==6 & ${wave}rentf==1
replace ${wave}tenure_dv=7 if ${wave}tenure_dv==6 & ${wave}rentf==2
replace ${wave}tenure_dv=8 if ${wave}hsownd==97
}

label define ${wave}tenure_dv -9 "Missing" , replace
label define ${wave}tenure_dv 1 "Owned outright" , add
label define ${wave}tenure_dv 2 "Owned with mortgage" , add
label define ${wave}tenure_dv 3 "Local authority rent" , add 
label define ${wave}tenure_dv 4 "Housing assoc rented" , add
label define ${wave}tenure_dv 5 "Rented from employer" , add
label define ${wave}tenure_dv 6 "Rented private unfurnished" , add
label define ${wave}tenure_dv 7 "Rented private furnished" , add
label define ${wave}tenure_dv 8 "Other", add
label values ${wave}tenure_dv ${wave}tenure_dv
lab var ${wave}tenure_dv "housing tenure"
fre ${wave}tenure_dv
keep ${wave}hidp ${wave}tenure_dv 
sort ${wave}hidp
lab dat "Housing tenure, dv"
save "${outpath}/${wave}tenure_dv", replace

}