TOPIC:

1. #INCLUDE PROGRAM.h

   - error XS9003: Pre-processor: String literal expected 1,10 tlcvfptools.prg
   I changed this to

   #INCLUDE "PROGRAM.h"

   and that error goes away, but I still get this error :
   - error XS1025: Single-line comment or end-of-line expected 1,17 tlcvfptools.prg
   It appears that the compiler understands .h files (#defines), because it produced some errors about those files that I cleared up; but I'm not sure how to include them into .prg files

2. If InList(Cursorgetprop("Buffering"), DB_BUFLOCKTABLE, DB_BUFOPTTABLE)
   		OldError = On("error")
   		On Error ChangeBufferingSuccessful = .F.
   		OldBufferingMode = Cursorgetprop("Buffering")
   		Cursorsetprop("Buffering", DB_BUFOPTRECORD)
   		On Error &OldError
   		BufferModeChanged = ChangeBufferingSuccessful
   	EndIf

   - error XS1003: Syntax error, 'END[DO]' expected 54,2 AddIndexTags.prg AddIndexTags
   Error on the last line - the VFP syntax is correct, it is just an if/endif block; but the compiler is expecting something else?

3. set memowidth To 200

   - error XS9002: Parser: unexpected input 'memowidth' 25,5 AddIndexTags.prg AddIndexTags
   I thought I read somewhere that set memowidth is supported?

4. use DBF(m.IndexDictionary) again alias IndexList

   - error XS9002: Parser: unexpected input 'DBF' 35,6 CreateIndex.prg CreateIndex
   Perhaps dbf() is not yet supported?

5. If NumberOfObjects > 0
   		For Each CurrentMember In MemberArray
   			TheCurrentObject = "TheDataEnvironment." + CurrentMember
   			If pemstatus(&TheCurrentObject, "cursorsource", 5) And pemstatus(&TheCurrentObject, "exclusive", 5) And &TheCurrentObject..exclusive
   				Do AddIndexTags With &TheCurrentObject..alias, &TheCurrentObject..alias, "IndexList"
   			EndIf
   		EndFor
   	EndIf

   - error XS1003: Syntax error, 'END[IF]' expected 50,89 CreateIndex.prg CreateIndex\
   This error occurs on the

   Do AddIndexTags with...

   line.
   Perhaps the compiler doesn't like the macro on the line preceding it?

6. If AlreadyUsed
   	set filter To &OldFilter
   	set order To &OldOrder
   Else
   	use
   EndIf

   - error XS1003: Syntax error, 'END[IF]' expected 606,2 tlctools.prg UpdateReptID
   Perhaps

   set filter

   is not yet supported?

7. ExtraFieldsClause = Iif(Empty(ExtraFieldsClause), "", "," + ExtraFieldsClause)
   	
   	select * &ExtraFieldsClause From DBFToCursorSource ;
   		Into cursor (TheTargetCursor) nofilter readwrite

   - error XS9002: Parser: unexpected input 'From' 77,30 tlcvfptools.prg DBFToCursor
   Perhaps SQL Select with a macro substitution is not supported? (But if I remove the macro, the compiler complains about the word "into" instead...)

8. NewCursorAdapterObject = newobject("StandardCursorAdapter", "DataAdapters", "", ;
   										"", TheViewName, TheAliasName)
   ...
   ...
   			If Type("EnvironmentObject.ObjectManager") = "O"
   				EnvironmentObject.ObjectManager.AddObjectHook(NewCursorAdapterObject)
   			EndIf
   			Release NewCursorAdapterObject

   - error XS9002: Parser: unexpected input 'NewCursorAdapterObject' 59,12 UseViewNoRequery.prg UseViewNoRequery
   This error relates to the final line, where a variable is being released.

9. #DEFINE NULL chr(0)

   - error XS9003: Pre-processor: Identifier expected 6,9 tlctools.prg
   There are several other #defines before this one, but the compiler does not like this one.

RajNZ wrote:

If NumberOfObjects > 0
		For Each CurrentMember In MemberArray
			TheCurrentObject = "TheDataEnvironment." + CurrentMember
			If pemstatus(&TheCurrentObject, "cursorsource", 5) And pemstatus(&TheCurrentObject, "exclusive", 5) And &TheCurrentObject..exclusive
				Do AddIndexTags With &TheCurrentObject..alias, &TheCurrentObject..alias, "IndexList"
			EndIf
		EndFor
	EndIf

If NumberOfObjects > 0
		For Each CurrentMember In MemberArray
			TheCurrentObject = Evaluate("TheDataEnvironment." + CurrentMember)
			If pemstatus(TheCurrentObject, "cursorsource", 5) And pemstatus(TheCurrentObject, "exclusive", 5) And TheCurrentObject.exclusive
				Do AddIndexTags With TheCurrentObject.alias, TheCurrentObject.alias, "IndexList"
			EndIf
		EndFor
	EndIf