*! version 1.0.0	September 8, 1995               STB-28: dm35
*! Timothy J. Schmidt
program define dtainfo
version 4.0

if ("$S_FN"!="") {
   preserve
   clear
}

local varlist "opt new max(1)"
local options "Sort(str)"

parse "`*'"

if ("`sort'"!="") {
   if ("`varlist'"!="") {
	di in red "options not allowed in variable search"
	exit
   }

   if ("`sort'"!="fname" & "`sort'"!="obs" & "`sort'"!="var") {
      if ("`sort'"!="double" & "`sort'"!="float" & "`sort'"!="long") {
         if ("`sort'"!="integer" & "`sort'"!="byte" & "`sort'"!="miss") {
		di in red "invalid sort type"
		exit
	 }
      }
   }
   if ("$S_OS"=="Unix") { !dtasurvu ! `sort' }
   else if ("$S_OS"=="DOS" | "$S_OS"=="Windows") { !dtasurv ! `sort' }
   else {
      di _newline
      di in red "dtainfo is not compatible with current operating system"
      di _newline
      exit 702
   }
}
else {
   if ("$S_OS"=="Unix") { !dtasurvu `varlist' }
   else if ("$S_OS"=="DOS" | "$S_OS"=="Windows") { !dtasurv `varlist' }
   else {
      di _newline
      di in red "dtainfo is not compatible with current operating system"
      di _newline
      exit 702
   }
   if ("`varlist'"!="") { drop `varlist' }
}

end