CreateFTIndex and illegal use of property

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject: CreateFTIndex and illegal use of property

Feedback Type: Question

Product Area: Domino Server

Technical Area: Application Development

Platform: Windows

Release: 8.5.3

Reproducible: Always

FTIndexes and I are having a fight. I've posted an agent below. The agent is signed by the server and runs on schedule. The marked line is generating an error 'Illegal use of PROPERTY'. I've searched here and at DuckDuckGo, no joy.

I found this:
http://www-01.ibm.com/support/docview.wss?rs=899&uid=swg21172696&cm_mc_uid=08215414672314346331413&cm_mc_sid_50200000=1434633141

I've tried
CreateFTIndex(1,False)
CreateFTIndex(1,True)
CreateFTIndex(FTINDEX_ATTACHED_FILES, false)
set Options = FTINDEX_ATTACHED_FI
All same error

I'm missing something stupid...help open my eyes.

Sub Initialize
%REM
This agent loops through all dbs on the portal
that are listed in the portal homepage db.
If the db name is 'put path here', it's a template doc, so skip.
Checks for the existence of an FTI (used primarily for the first run since the
field FTBuilt doesn't exist and isn't set.
If the FTI is missing, one is created.
%END REM

On Error goTo errorTrap
Print "Starting schedBuildFTIForNewDbs Agent"
Dim Session As New NotesSession
Dim homePage As New NotesDatabase("NotesPortal002","homePage.nsf")
Dim portalDb As notesdatabase
Dim dbPath As String
Dim options As Long

options = 4
Set cDb = Session.CurrentDatabase
Set portalDbListView = homepage.getView("vwListOfTitles")
Set portalDbListDoc = portalDbListView.GetFirstDocument
While Not portalDbListDoc Is Nothing
If portalDbListDoc.FTIBuilt(0) = "Yes" Or _
portalDbListDoc.dbName(0)= "Put Path Here" Or _
portalDbListDoc.dbName(0)= "HomePage.nsf" Then
'skip - index is built, db is invalid, or we don't need fti
Else
dbPath = portalDbListDoc.DbName(0)
'Print "Processing: " dbPath
set portalDb = New NotesDatabase("NotesPortal002", dbPath )
If Not portalDb.IsFTIndexed Then
Print "Db: " & dbPath & " is not indexed, create new"
This line >>> Call portalDbListDoc.CreateFTIndex(options , True)
End If
End If
Set portalDb = nothing
portalDbListDoc.FTIBuilt = "Yes"
Call portalDbListDoc.Save(True,False)
Set portalDbListDoc = portalDbListView.Getnextdocument(portalDbListDoc)
Wend
Print "Ending schedBuildFTIForNewDbs Agent"

Exit Sub

errorTrap:
Print "schedBuildFTIForNewDbs Error " & CStr(Err) & " on line " & CStr(Erl) & ": " & Error
Resume Next
End Sub

Feedback number WEBB9XLHY7 created by ~Martha Lopjipyskioden on 06/18/2015

Status: Open
Comments: