>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)+"'"
> SKIP
> replace cpplan.expr WITH "'"+ALLTRIM(lcfieldlabel2)+"'"
> SKIP
> replace cpplan.expr WITH "'"+ALLTRIM(lcfieldlabel3)+"'"
> SKIP
> replace cpplan.expr WITH "'"+ALLTRIM(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
* Human is a question asked by birth and answered by death. Machine is another kind of question with another kind of answer
