habs ausprobiert!

Hier der Code:

D open PR 10I 0 extproc('open')
D path * value options(*string)
D oflag 10I 0 value
D mode 10U 0 value options(*nopass)
D codepage 10U 0 value options(*nopass)
D codepage1 10U 0 value options(*nopass)

...

Flags = O_WRONLY + O_CREAT + O_APPEND + O_CCSID;
Mode = S_IRWXU + S_IRWXG + S_IRWXO;

Fd = Open(%Trim(txt_file):O_CCSID+O_WRONLY+O_TEXTDATA+
O_TEXT_CREAT:1252:273);

Fd = -1 (leider!!)

ich denke, mit der Variante

Open => Close => Open => Write => Close

kann ich gut leben!