_gs_islivefile.ado

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

*! version 1.0.0  03nov2002
program _gs_islivefile , rclass
	args filenm

	tempname loghndl

	file open `loghndl' using `"`filenm'"' , text read
	capture _gs_rdfilehdr `filenm' `loghndl'
	local rc = _rc
	file close `loghndl'

	return scalar live = ! `rc'
end