Aus ILE Programm direkt in IFS schreiben

[Fuerchau]

Du musst natürlich einen eigenen Prototyp definieren, der 5 Parameter erlaubt.
Die 2. CCSID muss dann auch eine DB-unterstützte CCSID wie 273, 1141, 1200 sein.

[Frankk]

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!

[Fuerchau]

Diese Hinweise hätte ich nun glatt von Birgitta erwartet;-):
https://www.ibm.com/support/knowledg...udfifsread.htm
https://www.ibm.com/support/knowledg...ocifswrite.htm

Schön, wer bereits V7R4 im Einsatz hat.

[Andreas_Prouza]

... oder mit entsprechenden TR auch mit 7.3 verfügbar.