Re: consulta sobre XML desde RPG

Fri, 05 Sep 2008 10:47:14 -0700 

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' )
      * 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]> 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&amp;#225;s de NEWS/400.
> &amp;#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&amp;#225;s de NEWS/400.
&amp;#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

Responder a