If all the files are in the same directory, use OPENPATH to open the directory
into a common variable (if it's not already open), then use READV with 0 as the
field number.
FUNCTION DOODLE(DIRPATH,FILENAME)
COMMON /DOODLE/FILEVAR
IF FILEINFO(FILEVAR,0)
ELSE
OPENPATH (DIRPATH) TO FILEVAR ELSE FILEVAR = 0
END
READV TEST FROM FILEVAR,(FILENAME),0
THEN RETURN("Yes")
ELSE RETURN("No")
END
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
