_get_offopt.ado

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

*! version 1.0.0  03jan2005
program _get_offopt, sclass
	version 9

	sreturn clear
	if (`"`0'"' == "") exit

	local len0 = length(trim(`"`0'"'))
	if substr("`0'",1,3) == "ln(" {
		local offopt = substr("`0'",4,`=`len0'-4')
		capture confirm name `offopt'
		if c(rc) {
			exit
		}
		confirm numeric variable `offopt'
		sreturn local offopt exposure(`offopt')
		sreturn local offvar `offopt'
	}
	else {
		capture confirm name `0'
		if c(rc) {
			exit
		}
		confirm numeric variable `0'
		sreturn local offopt offset(`0')
		sreturn local offvar `0'
	}
end
exit