Aus ILE Programm direkt in IFS schreiben

[RobertMack]

Mein Trick ist, die Datei nach dem Erstellen gleich zu schliessen und erneut zu öffnen:

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

Callp Close(Fd);
Fd = Open(%Trim(IfsLink):O_CCSID+O_WRONLY+O_TEXTDATA:0: 0);