*! datevars -- set or display datevars
*! version 1.0.0     Sean Becketti     September 1993         STB-16: sts4.1
program define datevars
	version 3.1
	qui period
	local period "$S_2"
	local ndates : word count `*'
	if `ndates' { 
		_parsevl `*'
		parse "$S_1", parse(" ")
	}
	if `ndates'==0 {
		if "$S_D_date"=="" { di in gr "No date variables defined" }
		else { di "$S_D_date" }
	}
	else if `ndates'==1 { global S_D_date "`*'" }
	else if ("`period'"=="quarterly") & (`ndates'==2) { global S_D_date "`*'" }
	else if ("`period'"=="monthly") & (`ndates'==2) { global S_D_date "`*'" }
	else if ("`period'"=="daily") & (`ndates'==3) { global S_D_date "`*'" }
	else { 
		global S_D_date
		global S_1
		error 98 
	}
	parse "$S_D_date", parse(" ")
	local i 1
	while "``i''"!="" {
		mac def S_`i' ``i''
		local i = `i' + 1
	}
end