В следующем примере программа _FOpen( ) пытается открыть файл с именем NOFILE.ABC, который предположительно не существует. Затем вызывается программа _FError( ), возвращающая номер ошибки 2 "File not found" [Файл не найден].

Код Visual FoxPro

SET LIBRARY TO FERROR

Код C

#include <pro_ext.h>

void putLong(long n)

{

Value val;

val.ev_type = 'I';

val.ev_long = n;

val.ev_width = 10;

_PutValue(&val);

}

FAR Example(ParamBlk FAR *parm)

{

FCHAN fchan = _FOpen("nofile.abc", FC_READONLY);

_PutStr("\nAttempted to _FOpen() a file which does not exist.");

_PutStr("\n_FError() ="); putLong(_FError());

}

FoxInfo myFoxInfo[] = {

{"FERROR", (FPFI) Example, CALLONLOAD, ""},

};

FoxTable _FoxTable = {

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

};