*# dat # List all extended missing values in the dataset, and the variables where they occur # help
*! 29aug2007 
program emiss, rclass 
version 9.2 
  
qui ds, has(type numeric) 
foreach v of varlist `r(varlist)' { 
	qui levelsof `v' if `v'>., miss local(hold) 
	foreach miss of local hold { 
		local miss2=substr("`miss'",2,1) 
		local m`miss2' `m`miss2'' `v' 
		} 
	local all:list all | hold 
	} 
local all: list sort all 
foreach miss of local all { 
	local miss2=substr("`miss'",2,1) 
	di "{p2col 0 5 5 4:{txt:`miss'}}{res:`m`miss2''}{p_end}" 
	di 
	} 
return local mvalues `all' 
end