RE: Using RPG programs as stored procedures via CA Express OLEDB

Christopher K. Bipes     mailto:ChrisB@Cross-Check.com
Sr. Programmer/Analyst   mailto:Chris_Bipes@Yahoo.com
CrossCheck, Inc.         http://www.cross-check.com
6119 State Farm Drive    Phone: 707 586-0551 x 1102
Rohnert Park CA  94928 Fax: 707 586-1884

If consistency is the hobgoblin of little minds, only geniuses work here.  Karen Herbelin - Readers Digest 3/2000

-----Original Message-----
From: Walden H. Leverich [mailto:WaldenL@techsoftinc.com]
Sent: Wednesday, March 29, 2000 3:16 PM
To: MIDRANGE-L@midrange.com
Subject: Using RPG programs as stored procedures via CA Express OLEDB

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 ------------------