Hallo camouflage,

ich hatte ein ähnliches Problem und habe das so gelöst:
- temp. PF mit fester Satzlänge erstellen
- per Pgm füllen
die Felder mit einem Trennzeichen trennen und am Ende der Zeile einen CRLF ausgeben
D $CRLF C CONST(X'0D25')
D $TRENNER S 1A INZ(';')
- temp. PF ins IFS kopieren
CPYTOSTMF FROMMBR('/qsys.lib/qtemp.lib/datei.file/datei.mbr')
TOSTMF('/zielordner/zieldatei.csv') DBFCCSID(1141) STMFCCSID(1208)

Vielleicht nicht schön, funktioniert aber.

Gruß Carsten