>Renoir,
>
>In fact the field1 will never exceed 8 characters .( file name in DOS)
>
>replace field1 with alltr(subs(list of fields,1,8) something like this
>but not sure it's going to work or not.
>
>Thanks
>PP

Paul,

I like Nadya's code better, but below is another option.

Renoir

Use Temp.dbf Excl
cList = "Name1,Name2,Name3,"
Do While .T.
	If At(',',cList)>0
		Append Blank
		Replace Field1 with Subs(cList,1,At(',',cList)-1)
		cList = Right(cList,Len(cList)-At(',',cList))
	Else
		Exit
	Endif
EndDo