STRING FOR PREPARED STATEMENT I AM USING AS FOLLOWS
Public SosRdoEnv As rdoEnvironment
Public SosRdoCon As rdoConnection
Public SosPrpStmt1 As rdoPreparedStatement
Public SosResultset1 As rdoResultset
Public MjobNo As String
Public MjobName As String

Set SosRdoEnv = rdoEngine.rdoCreateEnvironment(“”, “”, “”)
SQuery = “DSN=TIMRDO;UID=ASHIMA;PWD=ASHIMA;”
On Error GoTo ErrorHandler
Set SosRdoCon = SosRdoEnv.OpenConnection(“”, rdDriverNoPrompt, False, SQuery)
SosRdoCon.QueryTimeout = 3600

SQuery = “CALL REPLIB.REPSTOR(?,?)”
Set SosPrpStmt1 = SosRdoCon.CreatePreparedStatement(“”, SQuery)
SosPrpStmt1(0).Value = “”
SosPrpStmt1(1).Value = “”

SosPrpStmt1(0).Direction = rdParamInputOutput
SosPrpStmt1(1).Direction = rdParamInputOutput
SosPrpStmt1.Execute

MjobNo = SosPrpStmt1(0).Value
MjobName = SosPrpStmt1(1).Value

ERROR IS
INTERNAL DRIVER ERROR