Creating XML data for posting -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

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 mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.