Erstmal vielen Dank für alle Antworten.

Leider habe noch kein Lösung meines Problems gefunden, da ich

- weder die Source des Tools CVTPFXLS habe noch
- ein eigenes RPG, JAVA etc. Programm erstellen kann

Die vorgestellten Lösungen sind leider nicht universell einsetzbar. Ich benötige eine Möglichkeit, eine beliebige Datei
in Excel zu übernehmen. Natives Excelformat ist nicht notwendig. Auch das von mir verwendete Tool schreibt nur ein Textfile mit Trennzeichen, was in Excel aber problemlos (und ohne Rückfragen) geöffnet werden kann. Der User merkt gar nicht, dass er kein "echtes" Excelfile geöffnet hat.

Denke auch, dass dies mit Bordmitteln der AS400 (SQL, CPYTOIMPF etc.) ebenfalls grundsätzlich möglich sein sollte.

CPYTOIMPF hat aber den Nachteil, dass ich keine Feldbezeichnungen übernehmen kann. Mit dem Tool CVTPFXLS kann ich als Spaltenüberschrift sogar die Feldbeschreibung automatisch übernehmen. Feldnamen sind ja in der Regel wenig aussagekräftig.

Gibts da was mit SQL o.ä.?

Da heute denke ich praktisch jeder von uns Dateien ins Excel übernehmen muss, wäre eine Lösung sicher für alle von Nutzen!

Anbei das CL, welches ich heute für den Versand einer beliebigen AS400-Datei als Email und Excelattachment benutze.

Danke
HS

0001.00 /************************************************** ******************/
0001.01 PGM PARM(&LIB &PF &DATEI &EMAIL &NACHRICHT)
0001.03 /* DAS CL SCHICKT DIE ÜBERGEBENE DATEI PF AN DIE ÜBERGEBENE MAILADRESSE */
0001.04 DCL VAR(&EMAIL) TYPE(*CHAR) LEN(32) /*Mailadresse*/
0001.05 DCL VAR(&PF) TYPE(*CHAR) LEN(10) /*AS400-Datei*/
0001.06 DCL VAR(&LIB) TYPE(*CHAR) LEN(10) /*AS400-Bibliothek*/
0001.07 DCL VAR(&DATEI) TYPE(*CHAR) LEN(12) /*Mame der Exceldatei*/
0001.08 DCL VAR(&PFAD) TYPE(*CHAR) LEN(32) /*Ausgabefolder AS400 */
0001.09 DCL VAR(&NACHRICHT) TYPE(*CHAR) LEN(256) /*Text in Email */
0001.10 CHGVAR VAR(&PFAD) VALUE('/QDLS/TEMP/'!!&DATEI)
0001.11 /* wegen möglicher Leerzeichen in Bibilioheksname in benanntes File kopieren */
0001.12 CRTDUPOBJ OBJ(&pf) FROMLIB(&LIB) OBJTYPE(*FILE) +
0001.13 TOLIB(QTEMP) NEWOBJ(DAT) DATA(*YES)
0001.20 CVTPFXLS FROMFILE(QTEMP/DAT) TOSTMF(&PFAD) +
0001.21 FLDHDR(*TEXT) STRDLM('"')
0001.22 SNDDST TYPE(*DOC) TOINTNET((&EMAIL)) +
0001.23 DSTD(BESCHREIBUNG) MSG(&NACHRICHT) +
0001.24 DOC(&DATEI) FLR(TEMP)
0001.10 CHGVAR VAR(&PFAD) VALUE('/QDLS/TEMP/'!!&DATEI)
0001.26 DLTDLO DLO(&DATEI) FLR(TEMP)
0001.27 AULSYS/DLTOBJ OBJ(QTEMP/DAT) OBJTYPE(*FILE)
0002.00 ENDPGM
0001.00 /************************************************** ******************/