Calling a iSeries(AS400) CL --RESOLVED--

folks,

was following a MS example on how to call a as400CL using OLE.
My code:



Dim ConnString As String
ConnString = "Provider=IBMDA400; Data Source=AS01DEV; User ID=TJYASNOW; Password=ALICE1;"

Dim myConnection As New OleDb.OleDbConnection
myConnection.ConnectionString = ConnString

Dim myCommand As New OleDb.OleDbCommand("CALL TESTTOM.SWAPSTR(?,?)", myConnection)
myCommand.CommandType = CommandType.Text

'setup the parameters
Dim myParameter As New OleDb.OleDbParameter("param1", OleDb.OleDbType.Char, 10)
myParameter.Value = "String1"
myParameter.Direction = ParameterDirection.InputOutput
myCommand.Parameters.Add(myParameter)

Dim myParameter2 As New OleDb.OleDbParameter("param2", OleDb.OleDbType.Char, 10)
myParameter2.Value = "String2"
myParameter2.Direction = ParameterDirection.InputOutput
myCommand.Parameters.Add(myParameter2)

'execute
Dim results As String
myConnection.Open()
myCommand.ExecuteNonQuery()

myConnection.Close()
results = myParameter2.Value


I get this error:

Server Error in '/AS400Play' Application.
--------------------------------------------------------------------------------

SQL7985: CALL statement complete. Cause . . . . . : Call to procedure SWAPSTR completed successfully.



And the return parm is unchanged. Should be swapped with Param1

The NET side seems to think a successfull call is an error.
On the AS400 side the object has been executed because the OS
tracks it.

Any suggestions?

It's been a while since I used an iseries but make sure that the parameter is set up as an i/o parameter in you as400CL. not just an i or an o param.

Found out from a expert in iseries that IBM's OLE provider for iSeries is buggy. He had the same problem. Used the ODBC provider instead and basically wrote the same code. Worked fine. So now I can make a call to a iseries box pass parms back and forth, execute whatever programs on the iSeries. Way cool. With this I could visulaize .NET being the "front end" app while the iseries doing all the "heavy lifting"