|
<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
- <TransactionSet
xmlns="http://www.blahblahblah.com/transaction/tscfeed/1.0">
- <InterchangeHeader>
<GUID>6f58f8674a7ef23</GUID>
<TransDate>2012-09-21</TransDate>
<TransTime>18:26:39:38</TransTime>
<Version>V2.0</Version>
<TransCode>LIC</TransCode>
<Sender>WALMT</Sender>
<Receiver>CWTS</Receiver>
<TestProdInd>P</TestProdInd>
</InterchangeHeader>
</TransactionSet>
There is more to the doc but this is all I'm trying to capture right now.
Here is the code I'm using (modified from a Klemment example:
0002.01 D TransactionSet ds qualified
0002.02 D dim(999)
0002.03 D InterchangeHeader...
0002.04 D likeds(IntChgHeader_t)
0002.05 D
0002.06 D IntChgHeader_t ds qualified
0002.07 D based(template)
0002.08 D GUID 15a
0002.09 D TransDate 10a
0002.10 D TransTime 11a
0002.11 D Version 4a
0002.12 D TransCode 3a
0002.13 D Sender 5a
0002.14 D Receiver 5a
0002.15 D TestProdInd 1a
0002.16
0020.00
0021.00 D x s 10i 0
0022.00 D xmlfile s 1000a varying
0023.00 D options s 100a varying
0024.00 D divider s 52a
0025.00
0026.00 /free
0029.00 xmlfile = '/HOME/WALMT.XML';
0030.00
0031.00 options = 'doc=file +
0033.00 case=any +
0034.00 allowextra=yes +
0035.00 allowmissing=yes';
0037.00 xml-into TransactionSet %xml(xmlfile: options);
As an Amazon Associate we earn from qualifying purchases.
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.