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

You may wish to set the cm object to nothing first as I am almost positive
that is your problem. I generally use a separate ADODB.Command object for
each command.

______________________________________________
Eric N. Wilson
President
Doulos Software & Computer Services
2913 N Alder St.
Tacoma WA 98407


----- Original Message -----
From: "Walden H. Leverich" <WaldenL@techsoftinc.com>
To: <MIDRANGE-L@midrange.com>
Sent: Wednesday, March 29, 2000 3:16 PM
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 ------------------
>

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---