Hola Forum
Aún no he tenido respuesta a mi pedido, alguien puede darme una mano en este
problema.
Gracias
Aldo Vásquez Salazar
Analista de Sistemas
Informa S.A.
612-6000 anexo 3151
www.tekno.com.pe
-----Original Message-----
From: Aldo Vasquez
Sent: Viernes, 20 de Junio de 2003 02:10 p.m.
To: '[EMAIL PROTECTED]'
Subject: AS/400 y .NET
Hola Forum
Estamos tratando de ejecutar un pgm RPG desde un pgm .NET, cuando ejecutamos
el RPG sin enviar parametros funciona correctamente, el problema viene
cuando le enviamos parametros. Hemos intentato algunas variantes pero no
damo con la solución.
Alguno de los tigres del forum puede darme una pista.
Les adjunto copia del programa .NET
Private cnn As New System.Data.OleDb.OleDbConnection()
Private cmd As New System.Data.OleDb.OleDbCommand()
Private opc As String
opc = "Provider=IBMDA400;User ID=" & txtUSER.Text.Trim.ToUpper &
";Password=" & txtPASSWORD.Text.Trim.ToUpper & ";" & _
"Data Source=192.168.11.36;Transport Product=Client
Access;SSL=Default;"
cnn.ConnectionString = opc
cnn.Open()
cmd.Connection = cnn
cmd.CommandText = "{{CALL /QSYS.LIB/MYLIB.LIB/MYPGM.PGM(?,?)}}"
cmd.CommandType = CommandType.Text
cmd.Parameters.Add("", Data.OleDb.OleDbType.Char, 8)
cmd.Parameters.Add("", Data.OleDb.OleDbType.Char, 6)
cmd.Parameters(0).Direction = ParameterDirection.Output
cmd.Parameters(1).Direction = ParameterDirection.Output
cmd.ExecuteNonQuery()
Desde ya, muchas gracias por la ayuda
Aldo Vásquez Salazar
Analista de Sistemas
Informa S.A.
612-6000 anexo 3151
www.tekno.com.pe
_____________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, envía el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
