Using LCLSX on AS400

["Scott Johnson" <sjohnson@xxxxxxxxxxxxx>]

We have 2 AS/400s.  One is a Domino server and the other is our Production
server (non domino).  I have written an agent using LSXLC to get data from
the Production server into a Notes database on the Domino server.  The
agent does not work.  I get a message stating that the file is not found on
the Domino server.  I set the database property of the LCConnection to be
the same as the entry in "Relational Database Directory Entries" on the
Domino server.  What am I missing?  Does LSXLC work when connecting to a
separate AS400?  Far below is the source from my agent.

I have written agents that use LSXODBC and they run fine.  I have also
set-up and used DECS connections just fine.  I was trying LSXLC to see if
there was any performance difference.  If LSXLC does work with multiple
AS/400s, which is better to use, LSXODBC, LSXLC or DECS?

--  THANKS
------------------------------------------------------
Scott P. Johnson
Applications Development Team Coordinator
Microcomputer Development Specialist
IBM Certified Specialist - AS/400 RPG Programmer
Highsmith Inc.
W5527 Hwy 106, PO BOX 800
Fort Atkinson, WI 53538-0800
TEL:  920-563-9571                FAX:  920-563-7395
sjohnson@highsmith.com
www.highsmith.com
------------------------------------------------------

     Dim sess As New NotesSession
     Dim db As NotesDatabase
     Dim agent As NotesAgent
     Dim doc As NotesDocument
     Dim LC_S As New LCSession
     Dim LC_Conn As New LCConnection("db2")
     Dim LC_FldLst As New LCFieldList(1)
     Dim SQLTxt As String
     Dim Count As Long

     Set db = sess.CurrentDatabase
     Set agent = sess.CurrentAgent
     Set doc = db.GetDocumentByID(agent.ParameterDocID)

     LC_Conn.Database = "DEVELOPMENT"
     LC_Conn.Userid = "userid"
     LC_Conn.Password = "pwd"
     LC_Conn.Disconnect
     LC_S.ClearStatus
     LC_Conn.Connect

     SQLTxt = "SELECT * FROM ITMPMST WHERE INROOT = " + doc.INRoot(0) + "
AND INSFFX = '' "
     count = LC_Conn.Execute(SQLTxt,LC_FldLst)
     If count <> 0 Then
          count = LC_Conn.Fetch(LC_FldLst,1,1)
          doc.INDes1 = LC_FldLst.INDes1(0)
          doc.INDes2 = LC_FldLst.INDes2(0)
          Call doc.Save(True,False)
     End If