>REPLACE FieldName1 WITH eExpression1 [ADDITIVE] > [, FieldName2 WITH eExpression2 [ADDITIVE]] ... [Scope] > [FOR lExpression1] [WHILE lExpression2] [IN nWorkArea | cTableAlias] >>
>REPLACE FF WITH 1 WHILE .T. >REPLACE FF WITH 1 WHILE .NULL. >REPLACE FF WITH 1 WHILE .F. >>
CREATE CURSOR bugwhile (ff i,XX I) * BUG 1 x=CREATEOBJECT("CONTROL") X.ADDPROPERTY("Y",CREATEOBJECT("EMPTY")) ADDPROPERTY(X.Y,"Z") WITH m.x REPLACE FF WITH 1 WHILE (.Y.Z) ENDWITH