dimension xt(10)
afill(@xt,"")

****************
FUNCTION AFILL()
****************
PARAMETERS xtab,xj
<strong>EXTERNAL ARRAY xt</strong>
local xi
for xi=1 to alen(xtab)
 xtab(xi)=xj
next