В следующем примере отображается состояние таблицы, открытой в текущей рабочей области. Код проверяет каждый бит значения, возвращенного программой _DBStatus( ), и выдает на экран соответствующее сообщение.

Код Visual FoxPro

SET LIBRARY TO DBSTATUS

= DBSTATUS() && displays status of DBF in current work area

Код C

#include <pro_ext.h>

FAR Example(ParamBlk FAR *parm)

{

int dbstatus = _DBStatus(-1);

_PutStr("\nStatus of DBF in current work area:");

if (dbstatus & DB_BOF)

_PutStr("\nBOF()");

if (dbstatus & DB_EOF)

_PutStr("\nEOF()");

if (dbstatus & DB_RLOCKED)

_PutStr("\nCurrent record is RLOCKed");

if (dbstatus & DB_FLOCKED)

_PutStr("\nDatabase is FLOCKed");

if (dbstatus & DB_EXCLUSIVE)

_PutStr("\nDatabase is open EXCLUSIVEly");

if (dbstatus & DB_READONLY)

_PutStr("\nDatabase is READONLY");

}

FoxInfo myFoxInfo[] = {

{"DBSTATUS", (FPFI) Example, 0, ""},

};

FoxTable _FoxTable = {

(FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo

};