*! 29aug2007 
program labelnum 
version 9.1 
 
tempfile labhold 
tempname reader 
foreach set of local 0 { 
	local i 0 
	local vwidth 0  
	qui label save `set' using `labhold' 
	file open `reader' using `labhold', read 
	file read `reader' line 
	while ~r(eof) { 
		local ++i 
		gettoken junk line: line 
		gettoken junk line: line 
		gettoken name`i' line: line 
		gettoken value`i' line: line 
		local vwidth= max(`vwidth',`:length local value`i'') 
		gettoken label`i': line 
		file read `reader' line 
		} 
	file close `reader' 
	forval j=1/`i' { 
		label define `name`j'' `value`j'' `"`label`j'' |`=substr("         ",1,`vwidth'-`:length local value`j'')'`value`j''"' , modify 
		} 
	}  
end