×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
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 ------------------
midrange.com
