fillin.ado

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

*! version 2.1.3  01oct2003
program define fillin
	version 6
	syntax varlist(min=2)
	tokenize `varlist'
	confirm new var _fillin _merge
	tempfile FILLIN0 FILLIN1
	preserve
	quietly {
		keep `varlist' 
		save `"`FILLIN0'"', replace
		keep `1'
		sort `1'
		by `1':  keep if _n==_N
		save `"`FILLIN1'"', replace 
		mac shift
		local stop : word count `varlist'
		local stop = `stop' - 1
		local i 1
		while `i' <= `stop' { 
			use `"`FILLIN0'"', clear
			keep ``i''
			sort ``i''
			by ``i'':  keep if _n==_N
			cross using `"`FILLIN1'"'
			save `"`FILLIN1'"', replace 
			local i = `i' + 1
		}
		erase `"`FILLIN0'"'		/* to save disk space only */
		sort `varlist'
		save `"`FILLIN1'"', replace 
		restore, preserve
		sort `varlist' 
		merge `varlist' using `"`FILLIN1'"'
		noisily assert _merge!=1
		gen byte _fillin=_merge==2
		drop _merge 
		sort `varlist'
		restore, not
	}
end