Следующий пример обеспечивает приблизительно те же функциональные возможности, что и команда Visual FoxPro GO. Функция XGO(n) перемещает текущий указатель записи к записи с номером n в текущей рабочей области.

Код Visual FoxPro

SET LIBRARY TO DBREAD

DO CreateTest

USE Test SHARED

GO BOTTOM

? RECNO()

= XGO(2)

? RECNO()

PROCEDURE CreateTest

CREATE TABLE test (ABC C(20))

APPEND BLANK

REPLACE ABC WITH "This is record 1"

APPEND BLANK

REPLACE ABC WITH "This is record 2"

APPEND BLANK

REPLACE ABC WITH "This is record 3"

APPEND BLANK

REPLACE ABC WITH "This is record 4"

GO TOP

RETURN

Код C

#include <pro_ext.h>

FAR Example(ParamBlk FAR *parm)

{

_DBRead(-1, parm->p[0].val.ev_long);

}

FoxInfo myFoxInfo[] = {

{"XGO", (FPFI) Example, 1, "I"},

};

FoxTable _FoxTable = {

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

};