RE: [WEB400] Using Varying

[MWalter@xxxxxxxxxxxxxxx]

Jim,

Here is a code snippit,

     DhtmlOut          S           1024    VARYING
     Dx                s             10i 0

     c                   clear                   htmlOut
     c                   eval      htmlOut = x'15' +
     C                             '<UL>'
     C**                           '<TABLE border="1">'
     c                   eval      outLn = %len(%trim(htmlOut))
     c                   callb     'QtmhWrStout'
     c                   parm                    htmlOut
     c                   parm                    outln
     c                   parm                    qusec



     c     *start        setll     qrpglesrc
     c                   dou       %eof(qrpglesrc)
     c                   read      Qrpglesrc
     c                   if        %eof(qrpglesrc)
     c                   leave
     c                   endif

     c                   clear                   htmlOut
     c**                 eval      htmlOut = x'15' + '<TR><TD>'
     c                   eval      htmlOut = x'15' + '<LI><TT>'

     c                   for       x = 1 to %len(srcDta)
     c                   if        %subst(srcdta:x:1) = *blank
     c                   eval      htmlout = htmlOut + '&nbsp'
     c                   else
     c                   eval      htmlout = htmlOut +
     c                              %subst(srcdta:x:1)
     c                   endif
     c                   endfor
     c                   eval      htmlout = htmlout +
     C                              '</tt>'
     C***                           '</tt></TD></TR>'

     c                   eval      outLn = %len(%trim(htmlOut))
     c                   callb     'QtmhWrStout'
     c                   parm                    htmlOut
     c                   parm                    outLn
     c                   parm                    qusec

     c                   enddo

     c                   clear                   htmlOut
     c                   eval      htmlOut = x'15' +
     C                             '</UL>'
     C***                          '</TABLE>'
     c                   eval      outLn = %len(htmlOut)
     c                   callb     'QtmhWrStout'
     c                   parm                    htmlOut
     c                   parm                    outln
     c                   parm                    qusec

When I do it this way, I get scrambled data. When I make htmlOut a fixed
length and use %trim to put the fields together, It works fine.


Thanks,

Mark


Mark Walter
Sr. Programmer/Analyst
Hanover Wire Cloth a div of CCX, Inc.
mwalter@hanoverwire.com
http://www.hanoverwire.com
717.637.3795 Ext.3040