HI THIS IS BHAVESH I AM GETTING ERROR WHILE EXECUTING RDO PREPARED STATEMENT THROUGH VB6 ODBC CONECTIVITY ON AS/400 SERVER PL. NOTE THAT IT IS WHEN I HAVE CHANGED MY SERVER BOX FROM V4R5 TO V5R2 MODEL 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

Software/Hardware used: