No creo poder ayudarte mucho pero yo tengo un programa que corra con Visual Interdev y
le paso parametros a un programa CL no es RPG pero no creo que sea mucha diferenencia,
te lo paso para que lo veas y a lo mejor te da alguna idea
<%@ Language=VBScript %>
<HTML>
<HEAD>
<title>AS400 Spool Files</title>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0";>
<%
wlib=request.form("plibrary")
wfile=request.form("pfile")
wmbr=request.form("pmbr")
xblank="x x"
zlib=trim(wlib) & mid(xblank, 2, 10-len(trim(wlib)))
zfile=trim(wfile) & mid(xblank, 2, 10-len(trim(wfile)))
zmbr=trim(wmbr) & mid(xblank, 2, 10-len(trim(wmbr)))
cmdtxt="call libgstest.cpymbr ('" & zlib & "', '" & zfile & "', '" & zmbr & "')"
Dim cnt
Dim rs
DIM fld
Dim cmd
dim nfld
Set cnt = Server.CreateObject("ADODB.Connection")
cnt.open "dsn=s1030060", "santillang", "rpgf3as4"
set cmd=cnt.execute(cmdtxt)
Set rs = cnt.execute("Select * from qtemp.fmbrt")
%>
</HEAD>
<BODY>
.
.
.
.
Saludos
Gerardo Santillana
IT Department
Delphi Mechatronic Systems
US Ph: (956) 554.5832
MX Ph: (88) 12.81.63/64/65 Ext. 5832
e-mail [EMAIL PROTECTED]
-----Original Message-----
From: Aldo Vasquez [mailto:[EMAIL PROTECTED]
Sent: Monday, June 23, 2003 10:54 AM
To: [EMAIL PROTECTED]
Subject: FW: AS/400 y .NET
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]
_____________________________________________________
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]
