>>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 >