tis.ado

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· ADO 代码 · 共 26 行

*! version 1.1.4  10jan1999
program define tis
	version 6
	syntax [varname(default=none numeric)] [, CLEAR]
	if "`varlist'" == "" {
		if "`clear'" != "" { 
			char _dta[tis]
			exit
		}
		local tvar : char _dta[tis]
		if `"`tvar'"'!="" {
			di in gr `"t() is `tvar'"'
		}
		else	di in gr "(t() has not been defined)"
		exit
	}
	if "`_dta[tis]'" == "`varlist'" { 
		exit 
	}

	char _dta[_TStvar]
	char _dta[_TSpanel]
	char _dta[_TSitrvl]
	char _dta[tis] `varlist'
end