Using RPG programs as stored procedures via CA Express OLEDB

["Walden H. Leverich" <WaldenL@xxxxxxxxxxxxxxx>]

All,

 

Has anyone successfully called an RPG program from VB (or ASP) using the RPG program as a stored procedure? I'm using the following code, but I receive an error  80070057 ("The parameter is incorrect"). I have created the stored proc in SQL on the 400 and there are no error messages in the QZDASOINIT job on the 400.

 

Thanks,

 

-Walden

 

------------Sample Code ----------------

Dim cn As Connection
Dim cm As Command

 

Set cn = New ADODB.Connection
Set cm = New ADODB.Command

 

cn.Open "Provider=IBMDA400;Data Source=thorin", "Walden", "xxxx" (Obviously the correct password here)

 

cn.Execute "call techgen.setup" 'Sets library list

 

cm.ActiveConnection = cn
cm.Prepared = True
cm.CommandText = "TECHGEN.TSA0XFR"  'So much for setting library list
cm.CommandType = adCmdStoredProc

cm.Parameters.Append cm.CreateParameter("@Rtn", adChar, adParamOutput, 7)
cm.Parameters.Append cm.CreateParameter("@ID", adNumeric, adParamOutput, 7)
cm.Parameters.Append cm.CreateParameter("@Name", adChar, adParamInput, 50)
cm.Parameters.Append cm.CreateParameter("@Code", adChar, adParamInput, 6)

 

cm.Parameters("@Name") = "G"
cm.Parameters("@Code") = "G"

 

cm.Execute  '*****CODE FAILS HERE

 

---------------End of Code ------------------