*! version 1.0.0  10/28/93	STB-16: zz3
program define stb_find /* data set name */
	version 3.1
	local i 1
	while `i'<=$STBdirn {
		capture confirm file ${STBdir`i'}${STBdlmt}`1'.dta
		if _rc==0 { 
			global S_1 "${STBdir`i'}${STBdlmt}`1'.dta"
			exit
		}
		local i=`i'+1
	}
	global S_1
	di in red "file `1' not found"
	exit 601
end