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.
midrange.com
