/*
 *
 *  ObtainFiletype_ex.thor - example program for the OBTAINFILETYPE function
 *
 */

options results

thorport = address()

REQUESTFILE title '"Select file to obtain the datatype of:"' id '"ram:"' fullpath
if(rc ~= 0) then
do
	if(rc = 30) then say THOR.LASTERROR
	exit
end

filename = result

OBTAINFILETYPE file '"'filename'"'
if(rc ~= 30) then
do
	say "Filetype is: "result
end

exit