_RetInt( ) API Library Routine Example
The following example performs some operations on the table open in the current work area. It displays the value returned by _RecCount( ).
SET LIBRARY TO RETINT
? CTEST()
#include <pro_ext.h>
#define nl _PutChr('\n')
long FAR CTest()
{
long rc,rec;
int workarea = -1;
int flag = 0;
int rn,recn;
rc = _DBRewind(workarea);
_PutStr("top"); nl;
rc = _DBSkip(workarea, 5);
_PutStr("skipped 5"); nl;
rc = _DBAppend(workarea,flag);
_PutStr("Appending"); nl;
rc = _DBRewind(workarea);
_PutStr("top"); nl;
rn = _DBRecCount(workarea);
_RetInt(rn, 10);
rec = rn;
return rn;
}
FoxInfo myFoxInfo[] = {
{"CTEST", (FPFI) CTest,0 , ""},
};
FoxTable _FoxTable = {
(FoxTable FAR *)0, sizeof(myFoxInfo) / sizeof(FoxInfo), myFoxInfo
};