It's so "vital" I don't write ANY replaces without it. ;)

>Oh yes, it's vital if you are at the "ghost" record in the current work area, record number reccount()+1.
>
>>No need for the SELECT cpplan if you use the in clause in the replace and skip ;)
>>
>>>

>>>Procedure updLabel
>>>  Lparameters p1, p2, p3, p4
>>>  SELECT cpplan
>>>  For x=1 to 4
>>>    replace cpplan.expr WITH Evaluate('p'+Transform(x))
>>>    skip
>>>  Next
>>>EndProc
>>>

>>>>Is there anyway I can cut this code down maybe using a for statement or something?
>>>>
>>>>

>>>>PROCEDURE UpdLabel
>>>>	LPARAMETERS lcfieldlabel1, lcfieldlabel2, lcfieldlabel3, lcfieldlabel4
>>>>	SELECT cpplan
>>>>	replace cpplan.expr WITH "'"+ALLTRIM(lcfieldlabel1)+"'" &&lcfieldlabel1
>>>>	SKIP
>>>>	replace cpplan.expr WITH "'"+ALLTRIM(lcfieldlabel2)+"'" &&lcfieldlabel2
>>>>	SKIP
>>>>	replace cpplan.expr WITH "'"+ALLTRIM(lcfieldlabel3)+"'" &&lcfieldlabel3
>>>>	SKIP
>>>>	replace cpplan.expr WITH "'"+ALLTRIM(lcfieldlabel4)+"'" &&lcfieldlabel4
>>>>ENDPROC
>>>>