RE: Creating XML data for posting

[David FOXWELL <David.FOXWELL@xxxxxxxxx>]

Hey this is the RPG list and you've just thrown a cat among the pigeons.
This one doesn't know much aboutCOBOL.

I've managed to compile the program, but where will the XML go.
It crashes with MCH3601 on "XML GENERATE XMLMsg". Also, where is the parameter?

-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de PAPWORTH Paul
Envoyé : vendredi 13 février 2009 10:06
À : rpg400-l@xxxxxxxxxxxx
Objet : Creating XML data for posting

Cobol works very nicely

       Process  Options TIMESTAMP DATE TIME VARCHAR CVTTODATE
                        DATETIME
       Identification Division.
       Program-Id. CRTXMLS.
         Author. Paul Papworth.
         Installation. SLIB.
         Date-Written. April 2007.
         Date-Compiled.
     ** -------------------------------------------------------------
     **  Remarks.
     **  Create XML flux in the IFS or a field depending on a parameter
     **
     ** -------------------------------------------------------------
       Environment Division.
       Configuration Section.
         Source-Computer. IBM-AS400.
         Object-Computer. IBM-AS400.
         Special-Names. Requestor is work-station.
       Input-Output Section.
       File-Control.
       Data division.
       File Section.

       working-storage section.
        01 ds-to-xml.
           03  ds-xml.
             copy dds-FSWXDSS   of FSWXDSS .

       LINKAGE SECTION.
       01  data-record  pic x(10600) .
       01  XMLMsg       pic X(10600).
       01  IFSFile      pic x(50).
       01  ret-code     pic xx.
       Procedure division using data-record xmlmsg ifsfile ret-code.
      *    Place the generated XML into a variable.
           move data-record to ds-xml.
           XML GENERATE XMLMsg
              FROM ds-xml
              on exception
              move 'KO' to ret-code
              goback
           END-XML.

      * Place the generated XML into an IFS file.
           XML GENERATE FILE-STREAM IFSFile
                    FROM ds-xml
              on exception
              move 'KO' to ret-code
           END-XML.
           goback .
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.