home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
cwt2.zip
/
DBREAD.C
< prev
next >
Wrap
Text File
|
1989-11-25
|
1KB
|
34 lines
#include <stdio.h>
#include <c_wndw.h>
#include <c_ndx.h>
/*
* Copyright 1989, Marietta Systems, Inc.
* All rights reserved
*/
/*
* This program opens a dBASE file and its associated index file and
* reads sequentially through it displaying the contents of the field
* LASTNAME from each record.
*/
void main ()
{
int fh, ndx, ret, x;
/* Initialize and setup */
clr_scrn ("Indexed read");
fh = fileopen ("MARIETTA\\FRIENDS.DBF", dbase3, readonly);
if (fh <= 0) goodbye (10); /* file open error */
ndx = ndxopen (fh, "MARIETTA\\FRIENDS.NDX");
if (ndx <= 0) goodbye (11);
/* read file sequentially through index */
for (ret = ndxread (ndx, firstrec), x = 1 ; ret > 0 ;
ret = ndxread (ndx, nextrec), x++ )
dispdbf (fh, dbffield (fh, "LASTNAME"), x, 1, high);
/* end of program */
fileclos (fh); /* also automatically closes the index file */
display ("Press any key to terminate", x, 40, blink);
read_kb ();
goodbye (0);
}