I would do this:
SEL.8 = 8
OPEN '', 'TEST.FILE' TO OPEN.FILE THEN
SELECT OPEN.FILE TO SEL.8
READNEXT ID FROM SEL.8 THEN
HAVE.RECORDS = 1
END ELSE
HAVE.RECORDS = 0
END
CLEARSELECT SEL.8
END
This should work on UV and UD.
Dick Kryka
Director of Applications
CCCS of Greater Denver, Inc.
Paragon Financial Services
303-632-2226
[EMAIL PROTECTED]
-----Original Message-----
I am writing an interesting program. One that finds where a file is
empty of records or not. I used the EXECUTE command with the COUNT
command to get the number of records in a file. If its 0 then the file
is empty.
But is there a better way as the execution command causes problem in
other parts of this program.
So, if anyone has any ideas along the lines of telling if a file is
empty (Unidata file), could you please give me a note!
-------
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
