lotusscript agent importing csv file from iSeries IFS to create documents in 8.5.1

The file is in the Data directory on the Domino server on iSeries. The
agent is set up for testing as On event/Action menu selection but when
running the agent in Notes, I get the message "Unable to open file" on the
Open statement. I've tried all kinds of variations of the path/file name but
no luck.



Can anyone suggest what I may be doing wrong?



Here's the first part of the script:



Option Public



Sub Initialize

Dim session As New notessession

Dim db As notesdatabase

Dim doc As notesdocument

Dim fileNum As Integer, cells As Integer

Dim fileName As String

Dim InputStr As String, delimiter As String

Dim FieldArray As Variant

Dim rtitem As Variant



fileNum% = Freefile()

fileName$ = "/DOMINO/TDCDOMINO/DATA/XINVHDR.CSV" ' Location of file

delimiter = "," ' Delimiter of file

cells = 27 ' Number of cells + 1





Open fileName$ For Input As fileNum%

Do While Not Eof(fileNum%)

Line Input #1, InputStr$

FieldArray = parseall(InputStr$, delimiter, cells)

response% = CreateDocument(FieldArray)

Loop

Close fileNum% 'close the csv file

Kill filenum% 'delete the csv file

End Sub



Function CreateDocument(FieldArray As Variant) As Integer