I don't know if Unidata has it but in a Universe basic program if you
open the file then do a BASIC select, (not a TCL SELECT) you can then
use SELECTINFO(0,1) to report true/false if a select list is active in
Select List 0.  SELECTINFO(0,3) reports the count of the records
selected.  You can then do a CLEARSELECT if there were any data records.

There is also the idea of doing the same BASIC select but instead of
SELECTINFO, just do a single READNEXT.  If you hit ELSE, it's empty.
Again, CLEARSELECT to release the select list.

Bob Woodward
Programmer/Analyst
Harbor Wholesale Grocery
[EMAIL PROTECTED]


> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:owner-u2-
> [EMAIL PROTECTED] On Behalf Of Bright, Frank
> Sent: Monday, November 29, 2004 1:38 PM
> To: U2-Users Group (E-mail)
> Subject: [U2] Testing if a Unidata file has records or not!
> 
> To All:
> 
> 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!
> 
> 
> Thank You Very Much!
> 
> 
> Frank Bright
> Univ. of the Arts
> [EMAIL PROTECTED]
> 
> 
> 
> ___________________________________________________
> Frank M. Bright                             [EMAIL PROTECTED]
> Administrative Computing
> University of the Arts (A15)              http://www.uarts.edu
> 320 S. Broad St.                              215-717-6081(w)
> Philadelphia, PA 19102                     215-717-6087(f)
> Colleague 17.0.14          AIX 5.2.0.2           Unidata 6.03
> -------
> u2-users mailing list
> [EMAIL PROTECTED]
> To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to