Re: [U2] Testing if a Unidata file has records or not!

[Craig Bennett]

Hi Frank,
I'm not a UD expert, but how about this:
OPEN "MYFILE" TO FH ELSE
        PRINT "FAILED TO OPEN MYFILE"
        STOP
END
SELECT FH
* After a UniBASIC SELECT, SYSTEM(11) contains the number of items in 
the current group. If this is 0 then the file should be empty.
IF SYSTEM(11) THEN
	PRINT "FILE IS NOT EMPTY"
END ELSE
	PRINT "FILE IS EMPTY"
END


Craig
-------
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/