*! version 1.0.0  02/04/93  STB-12: dm12
program define anyproc
	version 3.0
	if "`3'"=="" { error 198 }
	local nv "`1'"
	mac shift 

	confirm new variable `nv'
	tempvar v
	quietly {
		gen byte `v'=0
		local j 1
		while 1 { 
			capture confirm var proc`j'
			if _rc { 
				rename `v' `nv' 
				exit
			}
			confirm string var proc`j'
			local i 1 
			while "``i''"!="" {
				replace `v'=1 if trim(proc`j')=="``i''"
				local i=`i'+1
			}
			local j=`j'+1
		}
		/*NOTREACHED*/
	}
end