Frankk
28-01-21, 13:46
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!
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!