Genau!!! Dann wird nicht konvertiert!!

habe das "Programm" umgeschrieben:

Flags = O_WRONLY + O_CREAT + O_APPEND + O_CCSID +O_TEXTDATA;
Mode = S_IRWXU + S_IRWXG + S_IRWXO;
Fd = Open(%Trim(txt_file):Flags:Mode:1252);

Danach 3 Zeilen geschrieben:

eval line1 = *blanks
eval line = 'äüöß 1. Zeile'
eval line1 = line + crlf
callp write(fd: %addr(line1): %size(line1))

...


Ergebnis:

ÀÐj¡@@@@ñK@é…‰“…@@@@@@@@@@@@@@
%JZà¡@@@@òK@é…‰“…@@@@@@@@@@@@@@
%JZà¡„„„@óK@é…‰“…@@@@@@@@@@@@@@
%