Re: [U2] test for a unix file?

[Ray Wurlod]

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/