Hallo Elmar,

leider werden externbeschriebene Dateien und physische Quellendateien, die weniger oder mehr als drei Felder enthalten, vom Befehl CPYTOSTMF nicht unterstützt.

Ich kann Dir zwei Möglichkeiten anbieten:

1) Eine Datei mit CRTPF ohne DDS (RCDLEN)erstellen, in diese dann die Feldinhalte mit Separatoren hinein-CAT-en, z.B.
20021021|001|00000046443|0|000|352785|
anschließend diese Date mit dem Befehl
CPYTOSTMF
FROMMBR('QSYS.LIB/DEINE.LIB/DEINE.FILE/DEIN.MBR') TOSTMF('/TMP/ZIELDATEI.TXT')
STMFOPT(*REPLACE)
STMFCODPA(*PCASCII)
kopieren, oder

2) die w.o. erstellte Datei bereits in ASCII zu beschreiben (XLATE, Tabs kannst Du von mir haben) und dann mit dem Befehl
CPYTOIMPF FROMFILE(AS400FIL MBRNAM)
TOSTMF('/TMP/ZIELDATEI.TXT')
MBROPT(*REPLACE) RCDDLM(*CR)
DTAFMT(*FIXED)
DECPNT(*COMMA)
DATFMT(*EUR)
TIMFMT(*EUR)
kopieren...

viel Erfolg,

Robert