use relationship
drop if (rel_edate != . & rel_edate < $refdate)
drop if (rel_sdate != . & rel_sdate > $refdate)
gen refdate = $refdate
sort individid
format refdate %td
sort individid
rename rel_partnerid partnerid
rename rel_sdate marrieddate
drop if strlen(partnerid) !=11
keep individid  partnerid marrieddate
duplicates drop individid, force
save cross\crossrelationship, replace

gen individid1 = individid
replace individid = partnerid
replace partnerid = individid1
drop individid1
save cross\crossrelationship1, replace

use cross\crossrelationship
append using cross\crossrelationship1
sort partnerid
duplicates drop individid, force
save cross\crossrelationship, replace
merge partnerid using cross\crosspeducation
drop if _merge ==2
drop _merge
sort partnerid
merge partnerid using cross\crosspoccupation
drop if _merge ==2
drop _merge
drop refdate
sort individid
 save cross\crossrelationship, replace