>> lnTables=aparser1(@laTables,m.lcTablesList,',')
>
>Error on the above... What does aparser1 do? Renoir
Oops. Ok, here it is:

*!******************************************************************************
function aparser1
*  Description.......: Function parses a text string into an array.
*                    : Each element of the array contains one word...
*  Calling Samples...: dimension laWords[1]
*                    : lcWordString = "Some text string"
*                    : lnWords = aparser1(@laWords, lcWordString)
*  Parameter List....: taWords, tcWordString, tcDelimiter
********************************************************************
lparameter taWords, tcWordString, tcDelimiter
local lnWords, lni
external array taWords
if vartype(m.tcWordString)<>"C"
   return .f. && First and second parameters are required
endif
if vartype(m.tcDelimiter)<>'C'
     tcDelimiter=space(1) && Default delimiter
endif
* Idea of Charlie Schreiner  #011905
*!* Now put each element in an array.
lnWords=alines(taWords, strtran(m.tcWordString, m.tcDelimiter, chr(13)))
return m.lnWords