* ------------------------------------------------------------------------
      * (C) Ajut/400
      * ------------------------------------------------------------------------
      *
      *  Programado por: José Alejandro Martínez Señoret
      *                  mailto:alex@ajut400.com
      *
      * ------------------------------------------------------------------------
      *                  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