>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

How about:

local NewLine, lnI, lnLines
NewLine=strtran(Line of fields,',',chr(13))
lnLines=alines(laArr, NewLine)
for lnI=1 to m.lnLines
    insert into myTable (field1) ;
               values (laArr[m.lnI])
next