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=LEAVE
