_prefix_saving.ado

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

*! version 1.0.0  03jan2005
program _prefix_saving, sclass
	version 9
	capture noisily					///
	syntax anything(id="file name" name=fname) [,	///
		DOUBle					///
		EVery(integer 0)			///
		REPLACE					///
	]
	local rc = `c(rc)'
	if !`rc' {
		if `every' < 0 {
			di as err ///
"suboption every() of the saving() option requires a positive integer"
			local rc 198
		}
		if "`replace'" == "" {
			local ss : subinstr local fname ".dta" ""
			confirm new file `"`ss'.dta"'
		}
	}
	if `rc' {
		di as err "invalid saving() option"
		exit `rc'
	}
	sreturn local filename	`"`fname'"'
	sreturn local double	`"`double'"'
	sreturn local replace	`"`replace'"'
	if `every' {
		sreturn local every every(`every')
	}
end
exit