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

procedure updlabel
lparameters lcArrayoflabel
local lncount,i
lncount=alen(lcarrayoflabel)
select cpplan
for i=1 to lncount
replace cpplan.expr WITH "'"+ALLTRIM(lcaarayoflabel(i))+"'"
skip in cpplan
endfor
endproc

the only thing to remember is to pass an array by reference as @laaray