*! 13jan2011 
program qlabel 
version 8.2 
syntax anything, [NUmber Name(string) Filter] 
 
gettoken vars labels: anything, match(paren) 
if mi("`paren'") mata: errel("The variable list must be in parentheses")
 
mata: tostata("varlist",(concat(varlist("`vars'","",notfound="")," "),concat(notfound," ")))
mata: mata drop notfound
if (mi("`filter'")&~mi("`varlist2'")) mata: errel("Variables not found: `varlist2'")
if mi("`name'") local name `:word 1 of `varlist1''_lab 
capture label drop `name'  
label def `name' `labels' 
if ~mi("`number'") labelnum `name'  
foreach v of local varlist1 { 
	label values `v' `name' 
	} 
end