Следующий пример предлагает примерно те же функциональные возможности, что и команда Visual FoxPro REPLACE, но в отличие от нее за один раз замещается значе ие только одной записи.

Код Visual FoxPro

SET LIBRARY TO DBREPLAC

DO CreateTest

? DBREPLACE(@ABC, "Replacement record 1")

? DBREPLACE(@ABC, 2) && returns -302 - field ABC is character field

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)

{

_RetInt(_DBReplace(&parm->p[0].loc, &parm->p[1].val), 10);

}

FoxInfo myFoxInfo[] = {

{"DBREPLACE", (FPFI) Example, 2, "R,?"},

};

FoxTable _FoxTable = {

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

};