Hallo zusammen,

erst mal Danke für alle Tipps. Auch wenn Ihr mich für dumm haltet, aber seit heute Morgen läuft es Warum auch immer. Ich habe nichts geändert. Hier nochmal die Quelle und vielen Dank!

Gruß co_steffl

if unlink('/ASES/export/prtacctab.txt') < 0;
err = errno;
if err <> ENOENT;
callp die('unlink(): ' + %str(strerror(err)));
endif;
endif;

fd = open ( %trim(path) // Open for create
: flags
: mode
: codepage
);

callp close(fd);

flags = O_WRONLY + O_TRUNC + O_TRUNC + O_TEXTDATA;

fd = open ( %trim(path) // open for proceed
: flags
: mode
);

if fd < 0;
callp die('open(): ' + %str(strerror(errno)));
errmsg = %str(strerror(errno));
callp die('open() for output: ' + ErrMsg);
endif;
.
.
.

begsr init;

codepage = 1252;
path = '/ASES/export/prtacctab.txt';
flags = O_WRONLY + O_CREAT + O_TRUNC + O_CODEPAGE;
mode = S_IRUSR + S_IWUSR + S_IRGRP + S_IROTH;