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 .