gracias.
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de alex martinez Enviado el: viernes, 05 de septiembre de 2008 12:41 Para: forum.help400 Asunto: Re: consulta sobre XML desde RPG Una de las cosas buenas que tiene XML es que es independiente de lenguajes y sistemas. Puede generar el XML a mano, por supuesto. copio y pego, un ejemplo en ILE-RPG * ------------------------------------------------------------------------ * (C) Ajut/400 * ------------------------------------------------------------------------ * * Programado por: José Alejandro Martínez Señoret * * ------------------------------------------------------------------------ * CRTSRCPF FILE(*CURLIB/XMLDATA) * RCDLEN(2000) * MBR(XMLDATA) * ------------------------------------------------------------------------ H datedit(*ymd) fxmldata o f 2000 disk D SrcSeq s 6S 2 D SrcDat s 6S 0 D SrcDta s 1988 d wl pr d l 1988 value d wa pr d a 30 value d l 1988 value * grabar cabecera c callp wl ( '<?xml version="1.0" - c encoding="ISO-8859-1"?>' ) * grabar elemento raiz c callp wl ( '<favoritos>' ) * grabar entidad c callp wa ( 'url' : 'htpp://www.ajut400.com<http://www.ajut400.com>' ) * grabar elemento raiz c callp wl ( '</favoritos>' ) * fin c eval *inlr = *on Oxmldata e grabar o srcseq o srcdat o srcdta p wl b d pi d l 1988 value c add 1 srcseq c move udate srcdat c eval srcdta = l c except grabar p e p wa b d pi d a 30 value d l 1988 value c if l <> *blanks c callp wl ( '<' + c %trim( a ) + c '>' + c %trim( l ) + c '</' + c %trim( a ) + c '>' ) c else c callp wl( '<' + c %trim( a ) + c ' />' ) c endif p e El 5 de septiembre de 2008 19:05, Peñaherrera, Mauro <[EMAIL PROTECTED]<mailto:[EMAIL PROTECTED]>> escribió: Compañeros del foro: Una consulta, necesito hacer un programa para generar un XML con información del as400, no sé si alguien puede dar una "mano" de algún documento sobre este tema, un ejemplo o sugerencias de cómo debo realizarlo. De antemano muchas gracias. Saludos Mauro Peñaherrera TECNOLOGIA-SISTEMAS ________________________________ Nota de descargo: La información contenida en este e - mail y sus anexos es confidencial y sólo puede ser utilizada por el destinatario del mismo. Esta información no debe ser distribuida, ni copiada total o parcialmente por ningún medio sin la autorización de DINERS/INTERDIN. Además, DINERS/INTERDIN no asume responsabilidad sobre información, opiniones o criterios contenidos en este e-mail. Disclaimer: The information contained in this e-mail and its attached files are confidential and intended only for the use of the person to which it is addressed. This information can not be totally or partially distributed nor copied by any media without the authorization from DINERS/INTERDIN. In addition, DINERS/INTERDIN does not assume responsibility about this information, opinions or criteria contented in this e-mail. __________________________________________________ Forum.HELP400 es un servicio m&#225;s de NEWS/400. &#169; Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
__________________________________________________ Forum.HELP400 es un servicio m&#225;s de NEWS/400. &#169; Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
