use cross\crossdata
sort fatherid
merge fatherid using cross\crossfbod
drop if _merge ==2
drop _merge

sort motherid
merge motherid using cross\crossmbod
drop if _merge ==2
drop _merge

save cross\crossdata, replace