************************************************************ * FUNCTION GetLocalVars() ************************************************************ *) Description.......: Returns string with all local variables (variables starting with l) * Calling Samples...: * Parameter List....: * Major change list.: FUNCTION GetLocalVars() LOCAL lcVars DISPLAY MEMORY LIKE l* TO FILE 'Variables.txt' NOCONSOLE && assuming the local vars always start with l lcVars = FILETOSTR('Variables.txt') ERASE ('Variables.txt') *!* IF NOT 'foxtools.fll' $ LOWER(SET('library')) *!* SET LIBRARY TO foxtools.fll additive *!* ENDIF *!* lcVars = reduce(m.lcVars) RETURN m.lcVars ENDFUNC