Aus ILE Programm direkt in IFS schreiben

[Fuerchau]

Wofür 2 Open? Nach dem 1. Open solltest du bereits Daten schreiben können.

[Frankk]

Hallo,

dachte ich auch! Aber: wenn ich nach dem ersten öffnen schreibe, dann hat die Datei einen undefinierten Inhalt.

Beispielsweise "Hello World" sieht dann so aus:

È…““–@æ–™“„@

Im iNavigator sieht es korrekt aus!

Wenn ich die Datei schreibe und anschließend wieder gleich schließe und danach erneut öffne, kann ich die Datei einwandfrei beschreiben und alles sieht ok aus!

Das war einer der Punkte mit dem ich mich schwer tat!

[Fuerchau]

Dann stimmt was mit deiner Job-Umgebung nicht, denn im 1. Open gibst du eine CCSID 1252 an, im 2. Open verwendest du CCSID 0.
Hast du mal deine Job-CCSID geprüft? Ist die u.U. wieder mal *HEX?

[BenderD]

... der casus knaxus sind die flags. Beim ersten open wird die CCSID angegeben und die Datei erstellt. Das 2. open wird als Textdatei gemacht, was Konvertierung bedeutet.

D*B

[Fuerchau]

Dann kann man das Flag O_TEXTDATA ja bereits beim 1. Open angeben;-).

[Frankk]

OK! Dann werde ich das heute mal probieren! Melde mich sobald ich näheres weiß.

[BenderD]

nö, dann wird nicht konvertiert (RTFM).

[Frankk]

Genau!!! Dann wird nicht konvertiert!!

habe das "Programm" umgeschrieben:

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

Danach 3 Zeilen geschrieben:

eval line1 = *blanks
eval line = 'äüöß 1. Zeile'
eval line1 = line + crlf
callp write(fd: %addr(line1): %size(line1))

...


Ergebnis:

ÀÐj¡@@@@ñK@é…‰“…@@@@@@@@@@@@@@
%JZà¡@@@@òK@é…‰“…@@@@@@@@@@@@@@
%JZà¡„„„@óK@é…‰“…@@@@@@@@@@@@@@
%

[Fuerchau]

Dann probier mal noch bitte folgendes:

When the O_TEXT_CREAT flag and its prerequisite flags are not set, the specified or derived CCSID is the CCSID in which data is to be returned (when reading from a file), or the CCSID in which data is being supplied (when writing to a file).

Mit der Interpretation, dass dies Binary-Mode ist.

https://www.ibm.com/support/knowledg...htm#HDRIFSCCSD

[Frankk]

Du meinst das O_TEXT_CREAT flag einfach weglassen?

[Fuerchau]

Nein, hinzufügen. Das ist nicht zu verwechseln mit O_TEXTDATA.
Es ist halt immer etwas schwierig, die englische Doku zu verstehen.
Es ist schon seltsam, dass bei der O_CREAT für die Textumwandlung O_TEXT_CREAT erforderlich ist wobei bei bestehenden Dateien O_TEXTDATA bereits ausreicht.

[Frankk]

Klar! Wer lesen kann....

Hatte den Wert verwechselt!!!


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



Fd liefert mir den Wert -1 (= Fehler)!

Verstehe nicht warum.

Im Code gibt es zwar den Hinweis:

Note: O_TEXT_CREAT requires all of the following flags to work:
O_CREAT+O_TEXTDATA+(O_CODEPAGE or O_CCSID)

Alle Werte sind ja angegeben (Außer O_CCSID) aber es heißt ja: OR