Re: CGIDEV2 XML Section Not Found

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

Hi Charles,

I'm trying to reproduce your problem, but I cannot.  Here's the RPG code 
I used (I did my best to derive this from your posts):

     H DFTACTGRP(*NO)

      /copy hspecsbnd
      /copy prototypeb
      /copy usec

     D DocName         s             10a
     D CodePage        s             10i 0
     D rc              s             10i 0
     D Xml_Output      s            100a   varying
     D OCOUNT          s             10a   varying inz('123')

      /free
        Xml_Output = '/home/klemscot/xmltest.xml';

        DocName = 'OPXMLBCH';
        callp gethtml('HTMLSRC': '*LIBL' : DocName:  '<AS400>');
        CodePage = 819;
        callp UpdHtmlVar('OCOUNT':OCOUNT);
        callp wrtsection('TOP');
        callp wrtsection('AUTH');
        rc = WrtHtmlToStmf(XML_Output:CodePage);
        *inlr = *on;
      /end-free

When I run this, I get no errors.  My 'xmltest.xml' file is written 
successfully to the IFS and contains data from /both/ the TOP and AUTH 
sections.  Granted, several of the variables say **Missing Data** 
because I didn't add the extra UpdHtmlVar() lines, but this doesn't seem 
to be related to the problem you describe.

So I'm at a loss...   all I can say is "works for me, using your code".

And you're absolutely right that using <AS400>AUTH should (and does!) 
work fine.  It looks idiotic, IMHO... but it certainly works.


On 6/2/2010 3:21 PM, Versfelt, Charles wrote:
> Hi,
>
> Thanks for all the replies.
>
> All of my<AS400>  lines start with the first character, no spaces before.
> Exactly like this:
>
> <AS400>TOP
> <AS400>AUTH
> <AS400>MARK
> <AS400>AUTHMARK
> <AS400>ENDDAY
> <AS400>BOTTOM
>
> Subsequent lines (the XML content) are indented.
> I tried moving the first and last lines of the XML content also to character 1.  No impact.
> I don't think all the XML has to start in character 1?
>
> Here are all my beginning and ending tags.  (I left out some of the XML fields for space sake)
>
> <AS400>TOP
> <?xml version="1.0" encoding="UTF-8"?>
>    <transRequest RequestCount=/%OCOUNT%/>
> <AS400>AUTH
> <newOrder BatchRequestNo=/%OCBCH#%/>
>         <industryType>/%OCINDS%/</industryType>
>         <comments>/%OCCOMM%/</comments>
> </newOrder>
> <AS400>MARK
> <markForCapture BatchRequestNo=/%OCBCH#%/>
>         <txRefNum>/%OCTREF%/</txRefNum>
>         <terminalID>/%OCTRID%/</terminalID>
> </markForCapture>
> <AS400>AUTHMARK
> <newOrder BatchRequestNo=/%OCBCH#%/>
>         <industryType>/%OCINDS%/</industryType>
>         <transType>/%OCTRTP%/</transType>
> </newOrder>
> <AS400>REFUND
> <newOrder BatchRequestNo=/%OCBCH#%/>
>         <industryType>/%OCINDS%/</industryType>
> </newOrder>
> <AS400>ENDDAY
> <endOfDay BatchRequestNo=/%OCBCH#%/>
>         <bin>/%OCCBIN%/</bin>
>         <merchantID>/%OCMRID%/</merchantID>
>         <terminalID>/%OCTRID%/</terminalID>
> </endOfDay>
> <AS400>BOTTOM
> </transRequest>
>
> To those who suggested different syntax:  That's not how it was done in the CGIDEV2 sample programs,
> I'm not sure why the syntax would have to be different.
>
> Charlie