Supongo que lo que siempre puedes hacer es meter un programa CL o RPG " en medio" , que reciba los par�metros en un formato, y llame al programa RPG como quieras. Saludos Jesus Busquets Grespania, S.A Please respond to [EMAIL PROTECTED] To: � � � �[EMAIL PROTECTED] cc: � � � � (bcc: Jesus Busquets/NOTES/ES) Subject: � � � �RE: C�digo Visual Basic [IMAGE] Ya, pero el programa RPG pertenece a un paquete standard y evidentemente no tengo los fuentes... Gracias en cualquier caso. Saludos, Ricard Gran� -----Mensaje original----- De: juan [mailto:[EMAIL PROTECTED]] Enviado el: martes, 26 de febrero de 2002 17:42 Para: [EMAIL PROTECTED] Asunto: Re: C�digo Visual Basic Es mejor que se lo pases como alfanumerico en VB y convertirlo a numerico en el CL o RPG. En el ejemplo el campo de busqueda en el AS400 es numerio, y el programa lo unico que hace es situarse en el fichero mediante SETLL Juan Matoses Cuquerella SUECA (Valencia) "Gran�, Ricard" wrote: > Perfecto gracias. > > Solo un detalle m�s, el par�metro en el programa del AS400 es n�merico, > alguien sabe como le paso un valor num�rico desde el VB? > > Saludos, > > Ricard Gran� > > -----Mensaje original----- > De: juan [mailto:[EMAIL PROTECTED]] > Enviado el: martes, 26 de febrero de 2002 15:17 > Para: [EMAIL PROTECTED] > Asunto: Re: C�digo Visual Basic > > Dim PGM As String * 100 > Dim ERROR As Long > Dim ERRORI As Long > Dim NUMERO As Long > > Private Sub Command1_Click() > End > End Sub > > Private Sub Command2_Click() > List1.Clear > For X = 1 To 10 > Call OTRO > Next > End Sub > > Private Sub Command3_Click() > Text1 = Text1 - 20 > Call Command2_Click > End Sub > > Private Sub cwbRemoteCommandButton1_Click() > Text1 = Format(Text1, "0000000") > �PGM = "CALL PGM(QGPL/VERDJOB) PARM(" & "'" & Text1 & "'" & ")" > Me.cwbRemoteCommandButton1.CommandString = PGM > End Sub > > Private Sub cwbRemoteCommandButton1_CommandComplete(ByVal returnValue As > Long) > ERROR = Me.cwbRemoteCommandButton1.GetErrorMessageText(ERRORI, VAR) > Me.List1.AddItem (VAR) > End Sub > > Private Sub OTRO() > Text1 = Format(Text1, "0000000") > cwbRemoteCommandButton1.DoClick > Text1 = Text1 + 1 > End Sub > > Private Sub cwbRemoteCommandButton2_Click() > �PGM = "CALL PGM(QGPL/COLAPC01) PARM(" & "'" & Text2 & "'" & ")" > Me.cwbRemoteCommandButton2.CommandString = PGM > End Sub > > Private Sub cwbRemoteCommandButton2_CommandComplete(ByVal returnValue As > Long) > Dim RETURNVAL As Long > Dim CERO As Integer > List1.Clear > Do While RETURNVAL = 0 > RETURNVAL = cwbDataQueueTextBox1.TransferData(Null, CERO) > List1.AddItem cwbDataQueueTextBox1 > Loop > End Sub > > Aqui tienes dos tipos de recuperar datos del AS400, a trav�s de mandato > remoto y > cola de datos. > Estos ejemplos llaman a un programa en el AS400 con un codigo de cliente, > recuperando diez registros del fichero de clientes �a partir del codigo > introducido. > > Otra forma que funciona muy bien es a traves de mensajes producidos en el > AS400 > y que se recuperan en el PC, es un metodo sencillo. > > El PC a trav�s de un mandato remoto llama a un programa en el AS400 que > genera > un mensaje (p.e. CODIGO Y NOMBREAPELLIDOSCLIENTE) �en una cola de mensajes > determinada, recuperando el PC el mensaje del AS400 en dicha cola de > mensajes. > > No he encontrado codigo de ejemplo, en breve intentar� mandarlo. > > "Gran�, Ricard" wrote: > > > Alguien tiene por ah� algun trozo de c�digo escrito en Visual Basic que > haga > > un call a un programa del AS400 (RPG, Cobol, etc...)pas�ndole par�metros > > mediante variables y recuperando los valores que retorna ? > > > > Concretamente, el problema lo tengo a la hora de recuperar en el programa > VB > > los valores que devuelve el AS. > > > > Saludos y gracias, > > > > Ricard Gran� > > > > _____________________________________________________ > > 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]?body > > _____________________________________________________ > 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]?body=LEAVE > > _____________________________________________________ > 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]?body _____________________________________________________ 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]?body=LEAVE _____________________________________________________ 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]?bodyLEAVE (Embedded image moved to file: pic19355.pcx)
pic19355.pcx
Description: Binary data
