Interestingly enough we were working on something similar today and
found the "MS Excel XML Spreadsheet" in File Transfer From iSeries.

Creates an XML file format that can be directly imported to Excel that
looks like below. 

You could create the file transfer and save it, then run from the AS/400
side to create stream file and then send it. 

I am using V5R4 Client Access. Not sure if this available in earlier
Client Access releases but sure makes it easy. 

<?xml version="1.0"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:html="http://www.w3.org/TR/REC-html40";>
<DocumentProperties xmlns="urn:schemas-microsoft-com:office:office">
<Author>IBM iSeries Access for Windows</Author>
</DocumentProperties>
<ExcelWorkbook xmlns="urn:schemas-microsoft-com:office:excel">
</ExcelWorkbook>
<Worksheet ss:Name="Sheet1">
<Table>
 <Row>
  <Cell><Data ss:Type="String">CRNUMB</Data></Cell>
  <Cell><Data ss:Type="String">CRDATE</Data></Cell>
  <Cell><Data ss:Type="String">CRDUED</Data></Cell>
  <Cell><Data ss:Type="String">CRCMPD</Data></Cell>
  <Cell><Data ss:Type="String">CRITNO</Data></Cell>
  <Cell><Data ss:Type="String">CRITDS</Data></Cell>
  <Cell><Data ss:Type="String">CRPONO</Data></Cell>
  <Cell><Data ss:Type="String">CRSERH</Data></Cell>
  <Cell><Data ss:Type="String">CRDISC</Data></Cell>
  <Cell><Data ss:Type="String">CRRADP</Data></Cell>
  <Cell><Data ss:Type="String">CRDISD</Data></Cell>
  <Cell><Data ss:Type="String">CRCARC</Data></Cell>
  <Cell><Data ss:Type="String">CRVNDN</Data></Cell>
  <Cell><Data ss:Type="String">CRADDR</Data></Cell>
  <Cell><Data ss:Type="String">CRCTYS</Data></Cell>
  <Cell><Data ss:Type="String">CRINIT</Data></Cell>
  <Cell><Data ss:Type="String">CREFFE</Data></Cell>
  <Cell><Data ss:Type="String">CRIRRN</Data></Cell>
  <Cell><Data ss:Type="String">CRREMK</Data></Cell>
  <Cell><Data ss:Type="String">CRSIMI</Data></Cell>
  <Cell><Data ss:Type="String">CRPEND</Data></Cell>
  <Cell><Data ss:Type="String">CRVNUM</Data></Cell>
  <Cell><Data ss:Type="String">CRCRTDT</Data></Cell>
  <Cell><Data ss:Type="String">CRCRTUS</Data></Cell>
  <Cell><Data ss:Type="String">CRCHGDT</Data></Cell>
  <Cell><Data ss:Type="String">CRCHGUS</Data></Cell>
 </Row>
 <Row>
  <Cell><Data ss:Type="String">1</Data></Cell>
  <Cell><Data ss:Type="Number">1070225</Data></Cell>
  <Cell><Data ss:Type="Number">1070225</Data></Cell>
  <Cell><Data ss:Type="Number">1070225</Data></Cell>
  <Cell><Data ss:Type="String">123</Data></Cell>
  <Cell><Data ss:Type="String">X132</Data></Cell>
  <Cell><Data ss:Type="String">X133</Data></Cell>
  <Cell><Data ss:Type="String">X134</Data></Cell>
  <Cell><Data ss:Type="String">XXXX</Data></Cell>
  <Cell><Data ss:Type="String">Y</Data></Cell>
  <Cell><Data ss:Type="String">NOW IS THE TIME &quot;FOR ALL GOOD
MEN&quot; TO &quot;COME&quot; TO THE AID.
9679879874949879849/7967498749874987987498749874987489749874984984984984
9849849849849849849849848949849849849849+8497498465411984984984944984984
89498498488949848949849849841984964849849+849846464654SDFSDFASFASFASDFAS
FASFSFASFSDFASFASFSDFFASDFSDFASDFSDFSAFASFASFDASDFASFAFAASDFASDFDDSF</Da
ta></Cell>
  <Cell ss:Index="13"><Data ss:Type="String">DFALKSFDJ</Data></Cell>
  <Cell ss:Index="23"><Data ss:Type="Number">0</Data></Cell>
  <Cell ss:Index="25"><Data ss:Type="Number">0</Data></Cell>
  <Cell><Data ss:Type="String">QSECOFR</Data></Cell>
 </Row>
 <Row>
  <Cell><Data ss:Type="String">2</Data></Cell>
  <Cell><Data ss:Type="Number">0</Data></Cell>
  <Cell><Data ss:Type="Number">0</Data></Cell>
  <Cell><Data ss:Type="Number">0</Data></Cell>
  <Cell><Data ss:Type="String">JDSFJALKF</Data></Cell>
  <Cell><Data ss:Type="String">LSJADFLAJ</Data></Cell>
  <Cell><Data ss:Type="String">ALKJFLAJSD</Data></Cell>
  <Cell><Data ss:Type="String">LAKJFLADJ</Data></Cell>
  <Cell><Data ss:Type="String">LAJSF</Data></Cell>
  <Cell><Data ss:Type="String">Y</Data></Cell>
  <Cell><Data ss:Type="String">LASJFLAKSDFJ</Data></Cell>
  <Cell><Data ss:Type="String">JL;JSFLAKJF</Data></Cell>
  <Cell><Data ss:Type="String">ALSJDFLASFJ</Data></Cell>
  <Cell><Data ss:Type="String">ALSJFDALSDFJ7</Data></Cell>
  <Cell><Data ss:Type="String">ASLFJSADLSAFJ</Data></Cell>
  <Cell><Data ss:Type="String">ALJLFKJSDFLJ</Data></Cell>
  <Cell><Data ss:Type="String">LAAJDLFKJ</Data></Cell>
  <Cell><Data ss:Type="String">ALJLASJFDL</Data></Cell>
  <Cell><Data ss:Type="String">ALJFLASJFSAL</Data></Cell>
  <Cell><Data ss:Type="String">LAJFLSDFJ</Data></Cell>
  <Cell><Data ss:Type="String">N</Data></Cell>
  <Cell><Data ss:Type="String">134</Data></Cell>
  <Cell><Data ss:Type="Number">1070225</Data></Cell>
  <Cell><Data ss:Type="String">QSECOFR</Data></Cell>
  <Cell><Data ss:Type="Number">1070212</Data></Cell>
  <Cell><Data ss:Type="String">ALANC</Data></Cell>
 </Row>
</Table>
</Worksheet>
</Workbook>



As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.